








SPERRYS<EUNIVAY 


COMPUTER SYSTEMS 


Operating System/3 (OS/3) 


Information Management 
System (IMS) Action 


Programming in COBOL 
and Basic Assembly 
Language (BAL) 


User Guide 





This Library Memo announces the release and availability of “SPERRY UNIVAC® Operating System/3 (OS/3) 
Information Management System (IMS) Action Programming in COBOL and Basic Assembly Language (BAL) User 
Guide’, UP-9207. 
The Information Management System (IMS) Action Programming in COBOL and Basic Assembly Language (BAL) 
User Guide is one of five books replacing the IMS 90 Applications User Guide/Programmer Reference, UP-8614 Rev. 
1. Other manuals replacing UP-8614 are: 
_ IMS Concepts and Facilities, UP-9205 
— __IMS Action Programming in RPG I! User Guide, UP-9206 
— __ IMS Terminal Users Guide, UP-9208 

@ - IMS Data Definition and UNIQUE User Guide, UP-9209 


This manual describes and illustrates how to write COBOL and basic assembly language action programs. It is 
presented in six parts as follows: 


1. INTRODUCTION 
Section 1. Transaction Processing in the IMS Environment 
2. BASIC IMS ACTION PROGRAMMING 
Section 2. General Rules for Coding Action Programs 
Section 3. Communicating with IMS 
Section 4. Receiving Input Messages 
Section 5. Processing Data Files 


Section 6. Sending Output Messages 


LIBRARY MEMO ONLY 







LIBRARY MEMO AND ATTACHMENTS 


Mailing Lists BZ, 


& CZ and MZ 


Mailing Lists AOO, AO7, AO8, BOO, BO7, 18, 18U, 19, 
19U, 20, 20U, 21, 21U, 28U, 29U, 75, 75U, 76, and 

76U 

(Cover and 585 pages) 


Library Memo for 
UP-9207 





September, 1982 


UDT-~251 Rev. M73 


USING IMS SPECIAL FEATURES 





Section 7. Using Screen Format Services to Format Messages 

Section 8. Calling Subprograms from Action Programs 

Section 9. Action Programming in a Distributed Data Processing Environment 
Section 10. Additional Special Features 

PREPARING ACTION PROGRAMS FOR EXECUTION 

Section 11. Compling, Linking, and Storing Action Programs 

SNAP DUMP ANALYSIS 

Section 12. Debugging Action Programs 

APPENDIXES 

Appendix A. Statement Conventions 

Appendix B. COBOL Action Programming Examples 

Appendix C. Basic Assembly Language (BAL) Action Programming Examples 
Appendix D. Status and Detailed Status Codes 

Appendix E. Generating Edit Tables 

Appendix F. Device Independent Control Expressions and Field Control Characters 


Appendix G. Differences Between Extended COBOL and 1974 American National Standard COBOL 


The complete titles and ordering numbers of the books that form the IMS library are: 


Information Management System (IMS) System Support Functions User Guide, UP-8364, Rev. 7 
Information Management System (IMS) Concepts and Facilities, UP-9205 
Information Management System (IMS) Action Programming in RPG II User Guide, UP-9206 


Information Management System (IMS) Action Programming in COBOL and Basic Assembly Language (BAL) 
User Guide, UP-9207 


Information Management System (IMS) Terminal Users Guide, UP-9208 
Information Management System (IMS) Data Definition and UNIQUE User Guide, UP-9209 


IMS/DMS Interface User Guide, UP-8748, Rev. 1 











Destruction Notice: This release supersedes and replaces “SPERRY UNIVAC Operating System/3 (OS/3) 
Information Management System 90 (IMS 90) Applications User Guide/Programmer Reference” UP-8614 Rev. 1, 
released on Library Memo dated October 1980. Also destroyed are Updating Package A, UP-8614 Rev. 1—A, 
released on Library Memo dated September, 1981 and Updating Package B, UP-8614 Rev. 1—B, released on Library 
Memo dated December, 1981. Please destroy all copies of UP-8614 Rev. 1, UP-8614 Rev. 1—A, UP-8614 Rev. 1—B, 
and their Library Memos. 


Additional copies may be ordered by your local Sperry Univac representative. 




















Information Management System (IMS) 


Action Programming in COBOL 
and Basic Assembly Language 





UP-9207 





©1980 — SPERRY CORPORATION 


This document contains the latest information available at the time of preparation. 
Therefore, it may contain descriptions of functions not implemented at manual 
distribution time. To ensure that you have the latest information regarding levels of 
implementation and functional availability, please consult the appropriate release 
documentation or contact your local Sperry Univac representative. 


Sperry Univac reserves the right to modify or revise the content of this document. No 
contractual obligation by Sperry Univac regarding level, scope, or timing of functional 
implementation is either expressed or implied in this document. It is further understood 
that in consideration of the receipt or purchase of this document, the recipient or 
purchaser agrees not to reproduce or copy it by any means whatsoever, nor to permit 
such action by others, for any purpose without prior written permission from Sperry 
Univac. 


Sperry Univac is a division of the Sperry Corporation. 
FASTRAND, SPERRY UNIVAC, UNISCOPE, UNISERVO, and UNIVAC are registered 


trademarks of the Sperry Corporation. ESCORT, MAPPER, PAGEWRITER, PIXIE, and 
UNIS are additional trademarks of the Sperry Corporation. 


This document was prepared by Systems Publications using the SPERRY UNIVAC UTS 
400 Text Editor. It was printed and distributed by the Customer Information 
Distribution Center (CIDC), 555 Henderson Rd., King of Prussia, Pa., 19406. 


PRINTED IN U.S.A. 














UP-9207 SPERRY UNIVAC OS/3 PSS 1 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





PAGE STATUS SUMMARY 


ISSUE: UP-9207 
RELEASE LEVEL: 8.0 


; Page Update 













; P Update 
Pemere [me || 
ee 
ronmsne [mem | 
Posonine | vow |_| 
rs re 
a Ce 


User Comment 
Sheet 


Page Update 





Acknowledgment 


Preface 


Title Page 


ia ed 
Title Page 

> [we 
> rm | 
ims 
=p fime |_| 
erm | 


PART 3 
Title Page 


ce cc 
ewe | 
Ce 
a ro 


PART 4 
Title Page 


PART 5 
Title Page 


PART 6 
Title Page 


Appendix A 
Appendix B 1 thru 64 = 


All the technical changes are denoted by an arrow (>} in the margin. A downward pointing arrow ( Y ) next to a line indicates that 























technical changes begin at this line and continue until an upward pointing arrow ( 4 ) is found. A horizontal arrow (>) pointing to 
a line indicates a technical change in only that line. A horizontal arrow located between two consecutive lines indicates technical 
changes in both fines or deletions. 








UP-9207 SPERRY UNIVAC OS/3 Acknowledgment 1 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





Acknowledgment 


We are indebted to the many systems analysts and_ staff 
members of Sperry Univac branch offices and customer 
organizations who helped us develop the OS/3 IMS library. They 
gave us suggestions, answered numerous questions, reviewed 
the manuals, and provided us with ‘‘real-life’’ programming 
examples. The customer organizations assisting us include: 
m Gay and Taylor Insurance Adjustors, Winston-Salem, NC 
w Penn Ventilator Company, Philadelphia, PA 

@ = Victor Valley Community College District, Victorville, CA 


The Sperry Univac organizations assisting us include: 


m Los Angeles Access Center, Customer Support Services, Los 
Angeles, CA 


m Charlotte Commercial Branch, Raleigh Office, Raleigh, NC 


a Charlotte Commercial Branch, Greensboro Office, 
Greensboro, NC 


m= =Minneapolis Marketing Branch, Minneapolis, MN 

= Wellesley General Branch, Wellesley, MA 

= Philadelphia Manufacturing Branch, Wayne, PA 

m Des Moines Marketing Branch, West Des Moines, IA 


m= System 80 Benchmark and Demonstration Services, Blue 
Bell, PA 











SPERRY UNIVAC OS/3 Preface 1 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





Preface 


This manual is one of a series designed to instruct and guide you 
in using the SPERRY UNIVAC Information Management System 
(IMS) for Operating System/3 (OS/3). It describes all aspects of 
writing action programs in COBOL and Basic Assembly Language 
(BAL). 


Before you start writing action programs, you should understand 
basic IMS concepts as described in the information management 
system (IMS) concepts and facilities, UP-9205 (current version). 
You should also be able to code standard COBOL or BAL 
programs. For more information on programming in these two 
languages, see the current versions of: 


= Extended COBOL supplementary reference, UP-8059 


= 1974 American National Standard COBOL programmer 
reference, UP-8613 


= Assembler programmer reference, UP-8227 

Information in this manual is divided into six parts: 

PART 1. INTRODUCTION 

= Section 1. Transaction Processing in the IMS Environment 
Introduces COBOL and BAL programmers to action programs 
and their interface with IMS. Also previews actions, 


transaction structures, action program termination, 
succession, and single-thread and multithread environments. 
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PART 2. BASIC IMS ACTION PROGRAMMING 


Section 2. General Rules for Coding Action Programs 


Discusses COBOL and BAL action program structures and 
compares them to regular COBOL and BAL program 
structures. Describes the activation record, its contents, 
structure, and use. 


Section 3. Communicating with IMS 


Provides a more detailed description of the COBOL and BAL 
program information blocks including formats, contents, and 
use. 


Section 4. Receiving Input Messages 


Describes the input message area including the formats, 
contents, and use of the input message control header 
format for COBOL and BAL programs and the description of 
input message text. 


Section 5. Processing Data Files 
Tells how to access and update data files. 
Section 6. Sending Output Messages 


Covers all aspects of output messages including the formats, 
contents, and use of the output message control header for 
COBOL and BAL programs; the use of the SEND function for 
multiple output or message switching; the use of a work 
area for output messages; continuous output; and, 
output-for-input queueing. 


PART 3. USING IMS SPECIAL FEATURES 


Section 7. Using Screen Format Services to Format 
Messages 


Discusses and shows examples of how to display a screen 
format, display a replenish screen or error format; handle 
error returns; receive formatted input in a successor 
program; display a screen format on an auxiliary device; and 
use screen formats in a_ distributed data processing 
environment. 
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Section 8. Calling Subprograms from Action Programs 


Describes how to call subprograms from COBOL or BAL 
action programs and illustrates the use of a subprogram. 


Section 9. Action Programming in a Distributed Data 
Processing Environment 


Presents basic distributed data processing terminology, 
defines and illustrates directory, operator, and action 
program routing of transactions, and describes how to 
initiate a remote transaction and how to process a 
transaction initiated by a remote system. 


Section 10. Additional Special Features 


Describes the downline load feature and how to write your 
own downline load program. Also describes how to 
disconnect a_ single-station dial-in line from an action 
program and how to initiate batch jobs from your action 
program using the RUN function. 


PART 4. PREPARING ACTION PROGRAMS FOR EXECUTION 


Section 11. Compiling, Linking, and Storing Action 
Programs 


Provides control streams needed to compile and link your 
action programs and describes how to store them in load 
libraries. 


PART 5. DUMP ANALYSIS 


Section 12. Debugging Action Programs 


Discusses all portions of termination and CALL ‘SNAP’ dump 
and provides examples and a step-by-step explanation of 
how to interpret them. 


PART 6. APPENDIXES 


Appendix A. Statement Conventions 


Describes the format conventions used in this manual. 
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m Appendix B. COBOL Action Programming Examples 


Contains complete compiler listings with accompanying 
flowcharts of sample COBOL action programs discussed 
throughout the manual. Examples include simple and dialog 
transactions, external and immediate internal succession, 
screen format services, sending a message to another 
terminal, output-for-input queueing, and continuous output. 


m Appendix C. Basic Assembly Language (BAL) Action 
Programming Examples 


Contains complete compiler listing with accompanying 
flowcharts of sample BAL action programs discussed 
throughout the manual. 


# Appendix D. Status and Detailed Status Codes 


Provides status codes and detailed status codes returned 
after execution of function calls issued by action programs. 


m Appendix E. Generating Edit Tables 


Discusses the edit table generator including coding rules, 
parameter values that describe the edit table, edit table 
execution, and error processing. Shows how input messages 
entered at the terminal are edited. Includes a sample action 
program that uses an edit table. 


m Appendix F. Device Independent Control Expressions and 
Field Control Characters 


Explains device independent control expressions (DICE), their 
values, interpretation, how to create them via the DICE 
macroinstructions, and when to use them. 


m= Appendix G. Differences Between Extended COBOL 
and 1974 American National Standard COBOL 


Describes the minor differences between using the extended 
COBOL and 1974 COBOL compilers to compile action 
programs. 


As one of a series, this manual is designed to guide you in 
programming and using the OS/3_ information management 
system. Depending on your need, you should also refer to the 
current versions of other manuals in the series. Complete manual 
names, their ordering numbers, and a general description of their 
contents and use are as follows: 
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Information management system (IMS) concepts and 
facilities, UP-9205 


Describes the basic concepts of IMS and the facilities that 
IMS offers. 


information management system (IMS) system support 
functions user guide, UP-8364 


Describes the procedures to generate, initiate, and recover 
an online IMS system. 


Information management system (IMS) action programming 
in RPG Il user guide, UP-9206 


Describes how to write action programs in RPG Il, with 
extensive examples. 


Information management system (IMS) data definition and 
UNIQUE user guide, UP-9209 


Describes data definitions for use with the uniform inquiry 
update element (UNIQUE) or your action programs and 
explains how to use UNIQUE. 


Information management system (IMS) terminal users guide, 
UP-9208 


Describes terminal operating procedures, standard and 
master terminal commands, and_ special purpose IMS 
transaction codes. Also includes UNIQUE command formats 
with brief descriptions. The manual is in easel format for 
ease of use at the terminal. 


IMS/DMS interface user guide, UP-8748 


Describes how to access a data base management system 
(DMS) data base from IMS. 
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INTRODUCTION 


1. Transaction Processing 
in the IMS Environment 


1.1. INTRODUCING IMS 


The SPERRY UNIVAC Information Management System (IMS) is 
an interactive, transaction-oriented file processing system. It is 
interactive because it carries on a conversation with the terminal 
operator; it is transaction-oriented because for each input 
message, the terminal operator receives a response or output 
message. In this way, operators are constantly informed of the 
results of their inquiries. 


1.2. INTERACTING WITH IMS 


Action programs Application programs, called action programs, interact with IMS 
process messages to process input messages from terminals, perform file retrieval 
or updating functions, and create output messages. 


Languages used — You can write action programs in RPG Il, COBOL, or basic 

BAL, COBOL, RPG Il assembly language (BAL). IMS also provides a set of action 
programs called the uniform inquiry update element (UNIQUE) that 
performs file retrieval and updating functions through the use of 
commands from the terminal. 


Purpose of this manual This manual tells you how to write action programs in COBOL 
and basic assembly language (BAL). Action programs are similar 
to standard COBOL and BAL programs, but must follow specific 
rules because they operate under the control of IMS. 


Read IMS concepts Before reading further, be sure you understand IMS concepts. 
and facilities They are described in the IMS concepts and facilities user guide, 
manval tee UP-9205 (current version). You should also be able to code 
standard COBOL or BAL programs. For more information on 
programming in these two languages, see the current versions of: 
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Programming 
language 
documentation 


Read these if 
IMS accesses 
data bases 


Prerequisites for 
using this manual 
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Extended COBOL programmer reference, UP-8059 


1974 American National Standard COBOL programmer 
reference, UP-8613 


Assembler programmer reference, UP-8227 


if your action programs access a DMS data base, consult the 
current versions of the following manuals: 


IMS/DMS interface user guide/programmer _ reference, 
UP-8748 


DMS data description language programmer reference, 
UP-8022 


DMS data manipulation language user guide/programmer 
reference, UP-8036 


Throughout this manual, we assume you've read and understood 
UP-9205, and the appropriate language manual. However, as 
required, we briefly define terms and describe concepts that are 
directly related to RPG II action programming. 
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IMS TERMS 


1.3. BASIC IMS TERMS 


Action defined The term action programming comes from the fact that the unit 
of work in IMS is the action. An action begins when an operator 
enters a message at a terminal and ends when a response to 

What action that message is returned. This is an important point to remember 

programs do since the action programs you write are involved primarily with 
this activity - processing input messages, performing file retrieval 
or updating, and creating output messages. 


An action always consists of three activities: 





Transaction defined A transaction is one action or a series of actions. 


A simple transaction (Figure 1-1) consists of a single action. 







TRANSACTION CODE 


Example — INPUT MESSAGE { CKACCT 2-412-733 ACCOUNT NUMBER 
simple ors 

: ACTION PROGRAM 
transaction 


CURRENT ACCOUNT BALANCE = $869.22. 


o 
OUTPUT MESSAGE { 
*PROCESSING COMPLETE* 


Figure 1-1. A Simple Transaction. /n this example, one action program processes 
the input messsage and produces an output message - the checking 
account balance for the account specified and a processing complete 
notice. 
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dialog 
transaction 


Transaction codes 
initiate 
transactions 


Transaction code 
defined 
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A dialog transaction (Figure 1-2) consists of two or more related 
actions. 


TRANSACTION CODE 










INPUT MESSAGE { CUST 35567 CUSTOMER NUMBER 
bw 


ACTION PROGRAM 


bw AMOUNT DUE = $79.25. 
OUTPUT MESSAGE 


ENTER PAYMENT AMOUNT $25.33 


INPUT MESSAGE 
oS 


oD NEW BALANCE IS $53.92 
OUTPUT MESSAGE 
*PROCESSING COMPLETE* 


Figure 1-2. A Dialog Transaction. /n this example, two action programs are 
sequenced to produce amount due information, allow data entry, and 
compute a new balance for a specific customer account. 


To begin a transaction, the operator enters a 1- to 8-character 
transaction code. (In single-thread IMS, the transaction code is 1 
to 5 characters.) This code tells IMS the name of the action 
program that will process the input message. 


Transaction codes are either the entire input message or a part 
of it. Transaction codes are defined to IMS at configuration time. 
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TRANSACTIONS 


1.4. STRUCTURING TRANSACTIONS 


Series of action 
programs 
processes 
transaction 


Types of transaction 
termination 


Distinction between 
termination and 
succession 


Normal 
termination 


Sometimes a single action program can process the function 
required. But more often, a series of action programs is needed. 
In either case, we create what we call a transaction structure. 


Transaction structure depends on how you terminate action 
programs. There are four major types of termination: 





> Normal 


> External succession 


> Delayed internal succession 





Immediate internal succession 


From here on, we'll call the termination types normal termination, 
external, delayed, and immediate succession. 


Using the words termination and succession in the same 
context can be somewhat confusing. In IMS, termination means 
that an action program is finished processing. Whether you 
specify normal termination, external, delayed, or immediate 
succession, you are telling IMS that the current action program is 
finished processing and is now terminating. 


Succession means that although the action program is 
terminating, the transaction is not complete. A successor action 
program will continue processing the transaction. 


Normal termination means that the transaction itself is complete. 
No more processing occurs. 


However, external, delayed, or immediate succession means that 
another action program follows and to resume processing. 


Figures 1-3 through 1-6 illustrate these concepts. 
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Normal termination 


External 
succession 
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ACTION 
PROGRAM 


INPUT OUTPUT 
SPECIFIES 
MESSAGE MESSAGE 
NORMAL ° 


TERMINATION 





Figure 1-3. Normal Termination 


Use normal termination to tell IMS that once your program 
creates an output message, the transaction is complete. When 
you don't specify the type of termination, IMS _ terminates 
normally. The last action program in a transaction always ends 
with normal termination. 


INPUT ACTION OUTPUT — 
MESSAGE PROGRAM MESSAGE 
(1) (1) (1) 


INPUT ACTION OUTPUT 
MESSAGE | PROGRAM MESSAGE 
(2) (2) (2) 





Figure 1-4, External Succession 


Use external succession to tell IMS that the current action 
program is sending an output message and terminating; however, 
the transaction is not complete. When the terminal operator 
enters a second input message, the action program you named 
as external successor processes the second action, produces an 
Output message, and terminates. 
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TRANSACTIONS 


INPUT ACTION OUTPUT 
MESSAGE PROGRAM MESSAGE 
(1) (1) (1} 


OUTPUT MESSAGE 
J (1) QUEUED AS 
INPUT MESSAGE 
(2) 


ACTION OUTPUT 
PROGRAM MESSAGE 


(2) (2) 





Figure 1-5. Delayed Internal Succession 


Delayed Use delayed succession to tell IMS that the current action 

succession program has processed an input message and produced an 
output message; however, that message isn’t going to the 
terminal. Instead, it becomes the input message to the action 
program you named as_ successor. The successor program 
produces an output message that does go to the terminal and 
terminates. With delayed succession, the second action program 
uses the output message of the predecessor as its input 
message. Even though only one input message and one output 
message are seen at the terminal, internally there are two 
separate actions, each with an input and output message. 


INPUT ACTION ACTION OUTPUT 
MESSAGE PROGRAM PROGRAM MESSAGE 
(1) (1 1) 





Figure 1-6. Immediate internal Succession 


Immediate Use immediate succession to tell IMS that the current action 

SHEGESSICN program processed an input message but is not producing an 
output message. When it terminates, its successor action 
program immediately takes up where processing left off, 
produces an output message and terminates. In immediate 
succession, there is only one input and one output message. 
Thus, two action programs are processing a single action. 
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TRANSACTIONS 





Combining transaction 
structures 


With these four types of termination or transaction structures 
there is a good deal of flexibility in structuring transactions. There 
are basically no limitations as to how you can combine them. For 
example, you can specify immediate succession, delayed 
succession, external succession, and finally normal termination, 
all in turn (Figure 1-7). 






NOTE: 











Connecting lines represent 
immediate internal, delayed 
internal, or external succession, 
or any combination of them. 














ACTION 
PROGRAM 
1 







| TRANSACTION 
INITIATION 



















ACTION 
PROGRAM 
2 


ACTION 
PROGRAM 
3 


















ACTION 
PROGRAM 
4 


ACTION 
PROGRAM 
5 

















ACTION 
PROGRAM 
7 












ACTION 
PROGRAM 
6 


ACTION 
PROGRAM 
8 


TRANSACTION 
TERMINATION 





Figure 1-7. Dynamic Transaction Structure 
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ACTION PROGRAM PROCESSING 





1.5. WRITING EFFICIENT ACTION PROGRAMS 


Reentrant or In part, the coding you use in your action program determines 

Sata tae! the efficiency of your message processing. The most efficient 
way to code an action program is to make the code reentrant or 
sharable. Action programs can be shared only in a multithread 
IMS environment. However, even in a single-thread environment 
you should write reentrant or sharable code, because you may 
later wish to use multithread IMS. 


Reentrant code A reentrant program is completely sharable, and none of the 
code is self-modifying. BAL action programs can be reentrant. 
This can mean great performance improvement because it avoids 
waiting when several actions require the same action program. 


MAIN STORAGE 





ACTION 
PROGRAM 
ACTION 1 ACTION 2 
Shared code Shared code is a means of executing a COBOL program as if it 


were reentrant. COBOL programs are sharable in the Procedure 
Division and Working Storage Section but not in IMS control 
regions. 


Serially reusable code A third type of coding that we use for action programs is serially 
reusable code. Serially reusable action programs can process only 
one action at a time. You can modify the action program code 
but you must reset or restore it, because the same copy of the 
program sometimes remains in storage to process the next 
action. 
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MAIN STORAGE 






ACTION 1 





ACTION 1 


ACTION 
ACTION 2 | PROGRAM 


(PROGA) 


; Remember that your action programs should serve the best 
Programming clear . P . . 
piessages interests of terminal operators who request information from your 
file. For this reason, messages you receive or create should be 
simple and understandable with a minimum of operator-entered 
codes or other data required at the terminal. 
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1.6. HOW IMS ACTION PROGRAMS INTERFACE WITH IMS 


Activation record links 
action program 
to IMS 


Interface area 
names 


Interface area 
usage 


Layout of the 
activation 
record in 
main storage 


To communicate with IMS, an action program must link itself to 
IMS. This link is the activation record. The activation record 
handles the control and communication of data between IMS and 
your action program. The activation record can contain up to six 
interface areas: 















ACTIVATION 
RECORD 


ACTION 
PROGRAM 


> Input message area (IMA) Continuity data area (CDA) 


Output message area (OMA) Work area (WA) 


D Program information block (PIB) Defined record area (DRA) 





Whether or not you use all six interface areas depends on the 
needs of your action program. All the interface areas are optional 
except the input message area and program information block. 


Even if you don’t access the program information block IMS 
automatically returns values there to the status code fields after 
each |/O request. 


Figure 1-8 shows how main storage looks when the action 
program PROGO1 is loaded in a multithread IMS system. The 
layout of the activation record is slightly different in single-thread 
IMS. 
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MAIN STORAGE 


PROGRAM 
INFORMATION 
BLOCK 


OUTPUT 
MESSAGE 
AREA 


CONTINUITY 
- DATA AREA ACTION 


PROGRAM 
PROGO1 


INPUT 
MESSAGE 
AREA 


DEFINED 
RECORD 
AREA 





Figure 1-8. Activation Record in Main Storage 





Action program and Figure 1-9 shows the relationship between an action program @ 


interface area and its interface areas. 
relationship 


ACTIVATION RECORD 





PROGRAM OUTPUT CONTINUITY 
INFORMATION MESSAGE DATA 
BLOCK AREA AREA 


INPUT DEFINED 
MESSAGE RECORD 
AREA AREA 





Figure 1-9. The Action Program and Its Interface Areas 
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COPY AND MACRO LIBRARIES 





a Formats of PIB, IMA, 


and OMA headers in 
IMS COPY library 


Your action program must define the formats of the interface 
areas that make up the activation record. 


For COBOL action programs, you use COPY statements to copy 
the program information block, and the input and output message 
area headers into the linkage section of your action program. You 
have to code the descriptions of the continuity data area and 
work area according to the action program application. 


ACTION IMs 


PROGRAM COPY 
LIBRARY 


LINKAGE SECTION. 
01 P-I-B. COPY PIB. 


01 1-M-A. COPY IMA 


01 O-M-A. COPY OMA 





Receiving interface areas in |n BAL action programs, you assign registers to receive the 

a BALacten program addresses of interface areas. The formats for the program 
information block and the input and output message area headers 
are in the form of DSECTS in the system macro library, 
$Y$MAC. You issue macroinstructions to copy these formats 
into your program. 


ACTION 


PROGRAM SYSMAC 


LIBRARY 


USING ZA#DPIB, R3 


ZA#DPIB DSECT 


ZM#DPIB 
ZA#DPIB DSECT 
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COPY AND MACRO LIBRARIES 





CALL function Action programs also interface with IMS through the COBOL 

interface CALL statement or the BAL CALL or ZG#CALL macroinstruction. 
You use these CALL functions to issue requests to IMS for file 
access and other operations. 





FUNCTION CALL 


DATA RETRIEVAL 











BASIC IMS ACTION PROGRAMMING 


NY +30} NU 
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2. General Rules for Coding 
Action Programs 


2.1. COBOL ACTION PROGRAM STRUCTURE 


No differences 


Omitting input-output 
section 


Omitting the file section 


Files described in 


IMS configuration 


Working-storage contents 


Though COBOL action programs are similar to conventional 
COBOL programs, certain differences characterize them. 


Identification Division 


The identification division is the same as any COBOL 
identification division. 


Environment Division 
The first important difference is in the environment division. 


You must omit the input-output section in the environment 
division. It is not needed because you supply a file description in 
the file section of the IMS configuration. You also name your 
files, give file types, and any additional information concerning 
file processing as part of IMS configuration. 


Data Division 


Instead of using an FD statement to name the file you are 
accessing, omit the file section and place the file name in the 
working-storage section. 


When you use a function CALL statement for a particular file 
later in your program, IMS associates the file name you specified 
at configuration time with the file you name in working-storage. 


In a sharable COBOL action program, the working-storage section 
in an action program may contain constants only. Describe each 
elementary item in the working-storage section with a VALUE 
clause. 
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Figure 2-1 shows an example of correct and_ incorrect 
working-storage section coding for an action program. 


Working-storage 


example 
e INCORRECT CORRECT 


DATA DIVISION. DATA DIVISION. 
STORAGE SECTION. WORKING-STORAGE SECTION. 
-INDICATOR PIC X(19). 77 ~DMOALT PIC X(6) VALUE ‘DMOALT'. 
-MSG-LITS. @1 ERR-MSG-LITS. 
ERR-1 PIC X(19). @2 ERR-1 PIC X(19) 


ERR-2 PIC X(19). 


ERR-3 PIC X(19). ERR-3 PIC X(19) 


@ ERR-4 PIC X(19). ERR-4 PIC X(19) 


NO VALUE CLAUSES 





Figure 2-1. Describing Working-Storage Items in a Sharable COBOL Action 
Program 





Linkage section required Every COBOL action program requires a linkage section. This 
section is optional in a conventional COBOL program. 


Your action program's linkage section defines the areas your 
program uses to interface with IMS. The names of these areas 
must correspond with the interface areas in the activation record 
and also with the names in the USING clause parameter list in the 
procedure division. (See Figure 2-2.) 
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COBOL coding for 
interface areas DATA DIVISION. 


LINKAGE SECTION. 
@1 P-I-B. COPY PIB74. 


@1 %I-M-A. COPY IMA74. 

@1 W-A. 

@1 O-M-A. COPY OMA74. 

@1 C-D-A. 

PROCEDURE DIVISION USING P-I-B I-M-A W-A 
O-M-A C-D-A. 





Figure 2-2. Describing Interface Areas in a COBOL Action Program 


Procedure Division 
USING clause names An action program always contains a USING clause in the 
interface areas procedure division statement. This is for naming the interface 
areas your program uses in processing messages. 


& Sequence of USING list Because parameters in the USING list are positional, you must 


parameters code them in the prescribed order shown in Figure 2-3. 

Dummy parameters lf, for example, your COBOL action program does not need the 

indicate omissions work area and continuity data area, you must still code a dummy 
parameter to indicate their omission from the USING list as 
follows: 


PROCEDURE DIVISION USING PROGRAM- INFORMATION -BLOCK 
INPUT -MESSAGE - AREA OUTPUT -MESSAGE -AREA. 





In this case, you are choosing the letter D as a dummy parameter 
name. Because continuity data area is the last parameter of the 
list, you can omit the dummy parameter. 
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CALL functions replace 
COBOL verbs 


Example 


Ending an action program 


Action programs do not use standard 1/O COBOL verbs in the 
procedure division. Instead, they issue CALL function statements 
to IMS. (See Section 5.) 


Figure 2-3 shows the correct and incorrect way to access data 
files from a COBOL action program. 


INCORRECT CORRECT 
PROCEDURE DIVISION USING PROCEDURE DIVISION USING 
PROGRAM- INFORMATION -BLOCK PROGRAM- INFORMATION- BLOCK 
INPUT-MESSAGE-AREA D INPUT-MESSAGE-AREA D 
OUTPUT - MESSAGE - AREA. OUTPUT -MESSAGE- AREA. 
BEGIN-ROUT. BEGIN-ROUT. 


OPEN MYFIL. 
READ MYFIL. 


MUST BE CALL FUNCTION, 
NOT COBOL VERB 





Figure 2-3. Accessing a Data File 


When you want to end an action program, use the CALL 
‘RETURN’ function. It returns control to IMS, and if you've built 
an output message in the output message area, the CALL 
‘RETURN’ sends the output message to the destination terminal. 


ACTION 
PROGRAM 


INPUT 
MESSAGE 
AREA 


OUTPUT 
MESSAGE 
AREA 
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2.2. COBOL PROGRAM STRUCTURE COMPARISON 


Identifying a COBOL action COBOL action programs are distinguished from conventional 
program COBOL programs by the 


COBOL action program m= absence of an input-output Section; 
characteristics 


m absence of a file section; 

mw linkage section containing a 77- or O1-level data description 
corresponding to each parameter on the procedure division 
USING clause; 


m™ CALL functions to access and manipulate files; and by the 


CALL ‘RETURN’ function that ends the action program. 


Figure 2-4 shows the similarities and differences between 
conventional COBOL action programs. 
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Action program and CONVENTIONAL PROGRAM STRUCTURE 
conventional COBOL IDENTIFICATION DIVISION. 


program compared PROGRAM-ID. program-name. 


(Any optional entry) 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC 0S3. 
OBJECT-COMPUTER. UNIVAC OS3. 
SPECIAL -NAMES. 

(Any 0S/3 implementor -names) 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename 

ASSIGN TO DISK-|fdname-V 

ORGANIZATION file-type. 
DATA DIVISION. 
FILE SECTION. 
FD filename 

LABEL RECORD STANDARD. 
@1 data-name-2 

@2 data-name-2 

@2 data-name-3 

WORKING-STORAGE SECTION. 

77 data-name. 
01° record-name. 


[LINKAGE SECTION. } 


(No control area description) 


PROCEDURE DIVISION. 


Figure 2-4. Conventional COBOL Versus COBOL Action Program Structures 








ACTION PROGRAM STRUCTURE 
IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

(Any optional entry) 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC OS/3. 
OBJECT-COMPUTER. UNIVAC 0S/3. 
SPECIAL-NAMES. 

(No special names) 

(No input-output section) 


DATA DIVISION. 
(No file section) 


WORKING-STORAGE SECTION. 
(7 data-name. 


LINKAGE SECTION. 
@1  PROGRAM- INFORMATION - BLOCK 





@1  INPUT-MESSAGE-AREA 


[@1 WORK-AREA] 


{@1 OUTPUT-MESSAGE -AREA} 


{01 CONTINUITY-DATA-AREA] 

PROCEDURE DIVISION USING program- 
information-block input-message-area 
[work -area] [output -message- area] 
[continuity-data-area]. 

Para-1. 


Para-2. 


CALL*RETURN'. 
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2.3. COBOL LANGUAGE RESTRICTIONS 


In addition to omitting input-output and file sections, there are 
several restrictions to observe when you write a COBOL action 
program. 


Identifying action programs Some programmers like to use a function key to identify the 

with function keys action program load module. If you do this, don’t use a function 
key (F#nn) as the PROGRAM-ID name because the COBOL 

How to use compiler treats the # symbol as invalid. Instead, supply a valid 
PROGRAM-ID name in the identification division and then include 
a LOADM statement with F#nn as the load module name at 
link-edit time. 


Example For example, you identify your action program as follows: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CREDIT. 


CREDIT is your program name. You then associate your 
program-id with a function key at link-edit time in the following 
job control stream: 


// EXEC LNKEDT 





ilegal syntax Some COBOL verbs, clauses, and sections are illegal in action 
programs. If you compile them with the shared code parameter, 
PARAM IMSCOD=YES, the compiler locates and deletes them 
from your program. (See Section 11.) 
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The following reserved words are illegal in 1974 COBOL action 
programs. For language restrictions on extended COBOL 
programs, refer to G.6. 


Reserved words 


ACCEPT MESSAGE COUNT 
ALTER 

CALL identifier 

CANCEL 

CLOSE 

COMMUNICATION SECTION 
DECLARATIVES 

DELETE 

DISABLE 


SEGMENT-LIMIT 
SEND 

SORT 

START 

STOP 
SYSCHAN-n 
SYSCONSOLE 
SYSFORMAT 
SYSIN 


ENABLE SYSIPT 
EXHIBIT SYSLOG 
FILE SECTION SYSLST 
INPUT-OUTPUT SECTION SYSOPT 
MERGE SYSOUT 
OPEN SYSSCOPE 
READ SYSTERMINAL 
RECEIVE SYSWORK 
RELEASE TRACE 
RETURN WRITE 
REWRITE 





illegal verbs with 


Other COBOL verbs must not have working-storage items as 
working-storage items 


receiving operands. These verbs are: 










ACCEPT PERFORM (varying) 










ADD SEARCH (varying) 
COMPUTE SET 

DIVIDE STRING 

INSPECT SUBTRACT 
MOVE TRANSFORM 
MULTIPLY UNSTRING 








Precautionary If you compile your action program with the shared code 
diagnostics parameter, the compiler flags the erroneous statement and issues 
a precautionary diagnostic. 


Extended COBOL 


For extended COBOL language-restrictions on action programs, 
language restrictions 


refer to G.6. 
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2.4. BAL ACTION PROGRAM STRUCTURE 


Activation record definition Similar to COBOL action programs, BAL action programs must 
provide a receiving area for the IMS activation record interface 
areas. You handle this by assigning registers to receive the 
addresses of the interface areas. 


DSECTs generate There are macroinstruction calls for the program information 

ee block and input and output message header formats. When you 
issue one of these macroinstructions, it calls a corresponding 
DSECT that generates the interface area format into your action 
program. 


BAL coding for interface 
areas USING ZAHDPIB,R9 


ZM#DPIB 


USING ZAHIMH,R12 
ZM#DIMH 


USING WA,R6 


USING ZA#DOMH 


USING CDA,R4 





Figure 2-5. Describing Interface Areas in a BAL Action Program 


Function call _ A BAL action program, like COBOL, uses function calls to access 
macroinstructions files. There are two forms of function calls, the CALL or the 
ZG#ALL macroinstruction. 
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ACTION 
PROGRAM 





Register 1 parameter list When you enter a message at the terminal and IMS transfers 
control to your BAL action program entry point, register 1 always 
points to a parameter list containing, in order: 

Program information block address 


Input message area address 





Work area address 
Output message area address 


Continuity data area address 


ACTION 
PROGRAM 


PARAMETER 
LIST 


PIB ADDR. 
IMA ADDR. 


WA ADDR. 
OMA ADDR. 
CDA ADDR. 


TRANSCODE 
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Parameter list entries The work area, output message area, and continuity data area 
(OPENS ener cas are optional. If you don’t need them in your program, IMS 
assigns a binary O to their place in the parameter list. 


Other registers contain save area and action program entry point 
addresses. (See 6.5 for more detail about BAL action 
programming.) 


Characteristics of aBAL | Several ways you can distinguish a BAL action program from 
SeURM BOG amt other BAL programs are: 


m™ Registers assigned to the addresses of interface area 
DSECTs 


w Use of CALL or ZG#CALL macroinstructions to access and 
manipulate files 


w Use of ZM#DPIB, ZM#DOMH, ZM#DIMH macroinstructions 
to transfer the program information block and the control 
header formats from the IMS activation record to the BAL 
program. 


a Use of ZG#CALL RETURN function to end the action 
program. 
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2.5. THE ACTIVATION RECORD 


Defining and constructing 
activation record 


Activation record structure 


How IMS uses the 
program 
information 

block 


How IMS uses the 
input message 
area 


How action programs use 
the work area 


How IMS uses the 
output message 
area 


How IMS uses the 
continuity data 
area 


Each time IMS initiates an action, it constructs an activation 
record in main storage. 


Each activation record has a program information block and an 
input message area. It may also have an output message area, 
work area, continuity data area, and a defined record area. 


The program information block contains information that IMS 
uses to communicate with your action program. By testing fields 
in the program information block for the status of IMS functions, 
your program can control the processing of files and the 
succession of action programs. 


IMS uses the input message area to exchange input message 
processing information with your program. Fields in the IMA hold 
control information that identifies input terminals, and gives 
message text length as well as message text. 


The work area is an interface area that you often use when your 
action programs are sharable or reentrant. It is modifiable 
working storage that your action program uses to build output 
messages (see 6.1) or as a record area for file input/output. 


Output message area fields notify IMS of output message control 
information such as output terminal identification, special output 
options, and output message text length. It also provides a place 
where IMS can interface with output message text. 


When used, the continuity data area provides the interface area 
where your action program passes data from action to action in 
a dialog transaction. IMS uses the continuity data area to 
interface with your action program's transfer of data from one 
action to another. 
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How IMS uses the 
defined record 
area 


IMS/action program 
conversation 


Activation record allocation 


Action program scheduling 


COBOL action program 
receiving area 


COPY statement 


Extended COBOL copy 
library names 
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ACTIVATION RECORD 











ACTION 
PROGRAM 2 


ACTION 
PROGRAM 1 


CONTINUITY 
DATA 
AREA 


REFERENCING 

CONTINUITY 

DATA AREA 
FIELDS 





IMS uses the defined record area to reference defined records. 
Your action program can’t access a defined record area (DRA) or 
write into the defined record area. You do not define this area in 
your program. 


When you enter a message at a terminal, IMS: 


m dynamically allocates the activation record interface areas 
that your program needs to converse with IMS; and 


m schedules and loads the action program needed to process 
the action. 


When IMS schedules a COBOL action program, that program 
must contain a linkage section where it can exchange data with 
IMS. Part of the linkage section must be formatted in a certain 
way. The IMS copy library provides this formatted source code. 


You use a COPY statement to transfer the formats of the 
program information block, input message area header, and 
output message area header from the IMS copy library areas to 
the linkage section of your COBOL action program. 


When you compile your COBOL action program using the 
extended COBOL compiler, the IMS copy library makes the 
program information block format and the output message area 
and input message area control headers available under the 
names PIB, OMA, and IMA. 
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1974 COBOL copy library 
names 
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When you use the 1974 American National Standard COBOL 
compiler, your COPY statement must use the names PIB74, 
OMA74, and IMA74 to transfer the interface area formats 
needed by your program. 


Figure 2-6 shows how a COBOL action program converses with 
IMS via the activation record. IMS sets up space in the activation 
record for each interface area your action program uses. 












| 


INPUT MESSAGE 
eed 





TRANS 1 


PROGRAM 
INFORMATION 


OUTPUT 
MESSAGE 


CONTINUITY 


DATA AREA | 01 P-I-B. COPY PIB74 
01 I-M-A. COPY IMA74. 
W001 W-A. 
01 O-M-A. COPY OMA74. 
01 C-D-A. 
PROCEDURE DIVISION USING} 


MESO GE P-I-B I-M-A W-A O-M-A 
moet C-D-A. 


DEFINED 
RECORD 
AREA 


Figure 2-6. iIMS/COBOL Action Program Interface. The COPY verb moves interface 
area formats from the IMS copy library to your action program's Linkage 
Section and your program converses with the IMS interface areas in the 
activation record. Note, your action program cannot access or write into 
the defined record area. 
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BAL DSECT names for A BAL action program accesses the activation record interface 

interface areas areas via macroinstructions that call DSECTs from the $Y$MAC 
system macro library or a user macro library. The ZM#DPIB 
macroinstruction calls the ZA#DPIB DSECT, the ZM#DOMH 
macroinstruction calls the ZA#OMH, and the ZM#DIMH 
macroinstruction calls the ZA#IMH DSECT. 


Example Figure 2-7 shows IMS communicating with a BAL action program 
via the activation record. Again, IMS sets up an interface area in 
the activation record for each interface area used by your BAL 
action program. 












TRANSACTION CODE 


DSECTS 











PROGRAM 
INFORMATION 
BLOCK 






















OUTPUT 
MESSAGE 
AREA 






ZIM#DPIB 


CONTINUITY 
DATA AREA 






ZM#DIMH 


WORK 
AREA 










INPUT 
MESSAGE 
AREA 


ZM#DOMH 





DEFINED 
RECORD 
AREA 


Figure 2-7. IMS/BAL Action Program Interface. The ZM#DPIB, ZM#DOMH, and 
ZM#DIMH macroinstructions call the format headers from the $Y$MAC 
system macro library. lf you use a work area or continuity data area, you 
must define and cover them in your action program. Note, your action 
program cannot access or write into the defined record area. 
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3. Communicating with IMS 


3.1. IMS ANSWERS ACTION PROGRAM MESSAGE PROCESSING QUESTIONS 


The program information block (PIB) is where IMS and action 
programs exchange data. IMS sets some program information 
block fields and your action program sets others. 


By testing the contents of the program information block fields, 
you can find the results of file input/output operations, obtain 
values of indicators, and construct your action program logic to 
handle error or other processing conditions accordingly. Figure 
3-1 shows some of the message processing questions answered 
by the PIB. 
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PROGRAM INFORMATION BLOCK DESCRIPTION 





_ 


o @N oa FF YN 


—_-_ —_ _ 
ar) 


13. 


14. 
15. 
16. 
















ACTION 
PROGRAM 





ANSWERS 





WAS MY READING, CHANGING, OR WRITING A RECORD SUCCESSFUL? 


WHAT ELSE CAN YOU TELL ME ABOUT MY I/O OPERATION? 

WHAT TYPE IS MY DEFINED RECORD? 

WHAT'S MY NEXT ACTION PROGRAM'S NAME? 

HOW AM ! GOING TO TERMINATE THIS ACTION? 

WILL | SET A NEW ROLLBACK POINT AT ACTION TERMINATION? 

AM | HOLDING RECORD LOCKS? 

WHEN DID THIS TRANSACTION OCCUR? 

WHAT IS MY DEFINED FILE NAME? 

WHAT IS MY DEFINED RECORD NAME? 

HOW LARGE IS MY WORK AREA AND HOW MUCH LARGER CAN IT BECOME? 


HOW LARGE IS MY INPUT CONTINUITY AREA TO RECEIVE THE CONTINUITY 
DATA? 


HOW LARGE IS THE CONTINUITY DATA AREA IN MY CURRENT ACTION 
PROGRAM? 


DO | NEED TO INCREMENT MY RECEIVING CONTINUITY AREA? 
WHEN DOES EACH ACTION START? 


WHAT TYPE TERMINAL SENT THE INQUIRY AND WHAT ARE ITS ATTRIBUTES? 





Figure 3-1. The Program Information Block Answers Action Program Processing 


Questions 
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COBOL PIB FORMAT 








® 3.2. COBOL PROGRAM INFORMATION BLOCK FORMAT 


Copying PIB format When you write COBOL action programs, you must copy the 
into Linkage Section predefined COBOL program information block format into the 
linkage section of your action program from the IMS copy library. 


PROCEDURE 
DIVISION 


LINKAGE 
SECTION 


PROGRAM 
INFORMATION 
BLOCK 
FORMAT 














Use the name PIB74 to copy the program information block 
format for 1974 American National Standard COBOL into your 

Extended COBOL PIB linkage section. If you write your action program in extended 
COBOL, use the name PIB. 


@ COBOL header format Figure 3-2 shows the COBOL program information block format 
for PIB for 1974 American National Standard COBOL. Note that the data 
names for TODAY and HR-MIN-SEC are different in extended 

COBOL. 


STATUS -COOL PIC 9(4) COMP-4e 
DETALLEO-STATUS-CODE PIC 944) COMP-4. 
RECOKD-TYPE RECEFINES DETAILEU-STATUS-COUE 

C3 PREDICTED-KECURD-TYPE FIC X. 

C3 DELIVERED-RECORD-TYPE PIC Xe 

SUCCLSSOR-10 PiC Xu). 
TERMINATION-INCICATOR PIC Xe 
LOCK-RULLEACK-INUICATOR PIC Xe 

TRANS ACTION-1D. 

o3 YLAR PIC 9(4) COMP-4. 

C3 TODAY PIC 944) COMP-4. © 
C3 HR-MIN-SEC PIC 919) COMP-4, @ 
CATA-CEF-RLEC-NAME PIC XT). 
OEFIWEG-FILE-NAME PIC X(7). 
STANUARD-MSC-LIME-LENGTH PIC 94) COMP-4. 
STANVARD-MSG-NUMEER-LINES PIC Gt4) COMP -4.e 
WORK-AREA-LENGTH FIC 9(4) COMP-4. 
CONTANUITY-CATA-INPUT-LENGTH PIC 9(4) COMP-4. 
CONTLNUITY-CATA-GUTPUT-LENGTH PiC 9(6) COMP-4,. 
WOKK-AREASiNC IC 904) COMP-4. 


Woo CVO a OC. 
ity MN het NN 


€ 





Figure 3-2. 1974 American National Standard COBOL Format for Program 
Information Block (Part 1 of 2) 
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COBOL PIB FORMAT 





CONTANUITY-OATA-AREA-INC 
SUCCESS-UNIT-IC. 
C3 TRANSACTIUN-CATE. 
C+ YEAR FIC 99. 
34 MONTH FIle 99. 
c+ TOLAY FIC 99. 
TIFPL-OCF-CAY. 
a4 HOUR PIC G9, 
34 AIBUTE FIC GY. 
54 SECOND PIC ¥9. 
FilLtk PIC XXar6 
URCE-TOR MITiWwAL -CHAFRS« 
SVURCE-TERMINAL-TYPL FIC Xe 
SUUKCE -TERM-MOG"LIRE-LENCTE PIC 9@(4) COMP-4, 
SOURCE -TERY-MSG-NURUER-LINES PIC 94) COMP-4. 
SOURCL -~TERM-ATTRIZGUTES PTC Xe 
LGr -aACDL PIC Xe 





NOTES: 
@ The name of this field in extended COBOL is DAY. 


@) ‘The name for this field in extended COBOL is TIME. 
Figure 3-2. 1974 American National Standard COBOL Format for Program 


Information Block (Part 2 of 2) 


Subsections 3.5 through 3.18 describe the contents and meaning 
of each field in the COBOL program information block. 
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BAL PIB FORMAT 








3.3. BASIC ASSEMBLY LANGUAGE PROGRAM INFORMATION BLOCK FORMAT 


Generating PIB DSECT When you write action programs in BAL, issue the ZM#DPIB 
macroinstruction to generate the BAL program information block 
DSECT (ZA#DPIB). The macroinstruction expands inline in your 
BAL action program coding and you can test program 
information block fields. 


ZM#DPIB 


PROGRAM 
INFORMATION 
BLOCK 
FORMAT 


ZA#DPIB 
DSECT 





BAL format for PIB Figure 3-3 shows the format of the ZA#DPIB DSECT that the 


ZM#DPIB macroinstruction calls into your action program from 
the $Y$MAC system library. 


FROC 
ZMaUPIb MAME 

ZAMUPIB CSECT PROGRAM-INFORMETION-BLOCK 
ZAaPSC OS H STATUS -CODE 
% 

ee 8 EQUATES FOR ZARPSC 

* 

ZAaPTSUC EGU 
ZAAPTKEY EQU 
ZAHPTEOF EQU 
ZASPTREQ EQU 
ZAHPTiOL EGU 
ZASPTIUP EOU 
ZAMPTIMC ECU 
ZAMPCSC CS 
x 

xe tQUATEL FOR ZARPLUSC (hhEN STATUS IS INVALID KEY ONLY? 

* 

ZAHPDONOI EQU Xx°CI* NO ILENTIFIER SUPPLIED 

ZAHPOZBI EQU Xx"L2? ICCNTIFIER 13 TOU LONG 

* 

ZASPCRKAN EQU X*L4 IDENTIFIER Is OUT OF RANGE 

x 

aoe x EQUATES FOR ZABPUSC (WHEN STATUS IS INWACIU REGUEST ONLY? 
* 


SUCCESSFUL REQUEST 
INVALIO KEY 

ENMU CF FILE 

INVALIG REQUEST 

1/G ERRCR 

INVALTU UPDATE (URM ONLY) 
IvMC CRKOR 
CETAILEL-STATUS-COCE 


Mew fw eC 





Figure 3-3. BAL Format for Program Information Block (ZA#DPIB DSECT) 
(Part 1 of 3) 
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BAL PIB FORMAT 





ZAaPCPAK EQU INCORRECT NUMGER CF PARAMETERS 
ZASPOCOU EQU : FUNCTIGN COGc OUT GF LEGAL RANGE 
ZASPDVAL EQU INCOKKECT PARAMETER VALUE 

ZARBPOSHR EQU SHARLD RECORL NCT Ih USE CY TRANS. 
* DUPLICATE KEY ON INSCRT (VS79 ONLY? 
ZARPOLEF ECU FILE NOT CEFINEO 

ZAHPDOPN EQU FILE NOT OPEN 

ZAWPDIYP EQU FUNCTION INVALLO FOR TYPE OF FILE 
ZAHPDLOC EQU RECORDS NOT LOCKED 

x UPDATE SUPPRESSED FOR FILES ¢VS/9) 
ZAaPOTUP EQU 9 PUT OR DELETE NCT PRECEDED BY GETUP 
ZARPOILL EQU 1s ILLEGAL FUNCTION REQUESTED 
ZAHPDASS £QU il FILE NOT ASSIGNEU TC THIS ACTION 
ZAMPOMCD EQU 12 REQUIRtG MGOULE NOT CONFIGURED 

* NOT USED ON VS/9 

ZAAPOCAP EQU 13 ILE CAPACITY EXCEECEC ON INSERT 

* NOT USEC ON VS/9 

ZAAPUSPA EQU 14 INSUFFICIENT SPACE IN MAIN STORAGE 
* NCT USEC ON VS/9 

ZAAPCUPU EGU 15 UPCATE KOT PERMITTED IN CONF, 
ZARPDSUP EQU 17 UPCATE SUPPRESSED FOR FILES 

* NGT USED ON WS/9 

ZAHPOREC EQU 18 RECORD ALREADY LOCKEU (S/T ONLY? 

* NOT USED ON VS/9 

* 

x Oe EGUATES FOR ZABPLSC teitN STATUS IS IMC ERROR UNLY?D 

* 

ZAAPDUIQ EQU OUTPUT-TO-INPUT QUEUING ERROR 
ZASPDDES ECU KISSING OR INVALID GESTINATION 
ZASPORKEA EQU NO ICAM NETWURK BUFFER AVAILABLE 
ZAHPOVLER EQU ICAM CISK ERKOK 

ZAaPLLFL EGU INVACIo UUTPUT MESSAGE LENGTH 
ZAarSiC GS Clo SUCCLESSOR-ID 

ZAAPSING CS Cul TEKMINATION-iNDICATGR 

e ox x EQUATLS FOR ZA&PSIND 

ZAXPSWN = CQU Cte NCRMAL TERM 

ZARPSNA = EQU cfat ABNORMAL TERM 

ZAAPSNS = EWU crest AEWCKMAL TORN wITH SNAP 

ZABPSNI ECU ctit IMMEDIATE INTERNAL SUCCESSION 
ZARPSNC EGU cb DELAYED INTEXNAL SUCCESSION 
ZABPSwE = éQu c'ct EXTERNAL SUCCESSION 

ZAMPLiI OS CL1 LOCA-ROLLBACA-INOICATGR 

ee LOCUATLES FOn ZARPCRI 

ZAEPLRIN EGU cin? wkITe KOLLGACK POINT,RELEASE LOCKS 
ZASPLKIO LOU ctor RGOLLGACK UPDATES 

ZABPLAIH &GU ctH! HOLE LuCasS iO 

ZAMPLRIK EQU C’R* RELLASE FENOAND LOCKS INDICATOR 
ZARPTID cS cls TKANSACTION~id 

ZABPOLRN LS CL? DA TA-UtF -RELC-NAME 

ZAEORR OS CLT DEF INEG-FILE-NAMNE 

ZAHPMLL CS H STANGARKO-4SG-LINE-LENCTH 

ZASPMNL CS H STANDARD -BSG-NUMGE R-LINES 

CaAaRPWwA iS tH wORK-ARLA-LENGTH 

ZAHPCLIN oS CCNTINUITY-UATA-INFUT-LENGTH 
ZAaPCEL Leu : COA LEN 2 US/3 BASIC 

ZAaPCL cs CONTiNUITY-SaTA-OUTPUT-LONUTH 
ZASPeAL 8S ORK-ARLA-INC 





Figure 3-3. BAL Format for Program Information Block (ZA#DPIB DSECT) 
(Part 2 of 3) 
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ZASPCOI 
ZARUTE 
ZARTML 
ZARUNID 
ZARTTTYP 
x 

ee 

* 
ZABTFCC 
ZASTNON 
 ZASTWS 
ZASTNOUV 
ZART3ET 
ZABTICKS 
ZARTSCP 
ZAHT4PR 
ZARTHC 
ZARTEDT 
ZARTMLL 
ZASTMNLE 
ZAATATIYK 
P< 4 

a a 

* 
ZAATAROV 
ZAHTASE 
ZASTAKAT 
ZhATASER 
ZAHTACER 
* 

eu ok 

x 
ZARUDRMO 
ZAeUTR 
ZAHPTKA 
ZARP TRC 
ZAPF IKE 


2TaRSAAP 
ZARPSAAP 
Z2TR#HSATW 
ZAaPSAVE 


Zh HoIhT 
ZAEPLOTH 


ZARPLLN 
ESYSECT 


cs 
cs 
cs 
OS 
cs 


LQUATCS FOR Z2AaTTTYP 


EQU 
£QU 
ECU 
EQU 
EQU 
EQU 
£QU 
EQU 
LOU 
ecu 
cs 

CS 

cs 


EQUATES FOR ZAKTATIR 


ecu 
ecu 
EQU 
EGU 
LQu 


EQUATLS 


cs 
ECU 
£QU 
EOL 
Qu 
us 
QU 
£CU 
EGU 
cs 
cs 
cs 


= 
ts 


CNOP 
EQU 
teu 
(S.CT 
END 


H 

CLO 
CLo 
CL3 
cLd 


C*F* 
ctv" 
Ct 
C°Nn?® 
C*.3" 
crc 
ctu* 
c*’P* 
cea? 
cet 
H 

kK 
CL 


Cin? 
Css 
c*K* 
chat 
ct 


x 


SA 
A 
i2a 


ued 
*—ZASLPIo 
x-2AHCPIL 


BAL PIB FORMAT 








FOR ZA&GUPMS 


CONTINUITY-DATA-AREA-INC 
CUKRCNT CATE - YYMMCG 


SUCCESS-UNIT TIME 


SUCCESS-UNIT-UNICUE-1ID 
TERMINAL TYPc 


UTS4HCC CP 


UTS20 OR WORKSTATION 
TTY, oCIsac, 


UTS1C, 
3271 
CONSOLE 
UTSSTC CP 
uTS4CC PR 
UTS4C 


~- HHMMSS 


(Us MODE) GR UTS42C 
UIGS OR U2L0 


(Uc MODE) 


UTS4CC Text cODITOR 
TERMINAL-MSG-LINE-LENGTH 
TERMINAL-MSG-NUMBER-LINES 


TERMINAL ATTKIBUTES 


NONVIOLCG 


SCRELN EYPASS 


KATAKANA 


OR 


ocTinces 


SCKECN EYPASS AND KATAKANA 
NO ATTRIBUTES 


CCP MOUC 


GIRECTGRY TRANS ROUTING 
PFOGRAM TRANS KOUT *G 


PRUGRAM TRANS KOUT*'G - 


PPOGRAM TRANS ROUT *L 


ACTIVATE 


ABORT/CANCEL 


END 


ACTIUN FROGRAM SAVE AREA 
ACTIUN PROGRAM SAVE ARCA 
CGNT ACT AND INTERNAL 


SAVE AKLA 


RTEIFM ENTRY PT USED 


PIE LCENCTH 


BY UNK MOC 





Figure 3-3. BAL Format for Program Information Block (ZA#DPIB DSECT) 


(Part 3 of 3) 
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PIB FIELD: STATUS-CODE 








3.4. CONTENTS OF THE PROGRAM INFORMATION BLOCK 


The program information block is always present in the activation 
record. Each field in the program information block contains data 
that aids IMS and your action program in processing messages. 


COBOL data names The data names given for each COBOL field correspond to the 
correspond to BAL labels ~—_ |abels of the DS statements in the BAL program information 
block. 


3.5. OBTAINING COMPLETION STATUS (STATUS-CODE) 


IMS sets value after Each time you issue a CALL function, IMS sets a half-word binary 

CALL functions value in the STATUS-CODE field (ZA#PSC) of the program 
information block to indicate the results of your file operation or 
other requests. 


Testing PIB fields You should test this value after performing a file operation. IMS 
can return the following status codes: 





Status code meanings Code (Hex) Meaning 
00 Successful 
01 Invalid key or record number 
02 End of file or unallocated optional file 
03 Invalid request 
04 1/O error 
05 Violation of data definition 
06 Internal message control error 
O07 Screen formatting error 


Testing Status Codes in a COBOL Action Program 


Testing method One way to test the status code is to compare the contents of 
the STATUS-CODE field with the possible status code values. If 
the status code is zero, the function request was successful and 
processing continues. If the status code is greater than zero, an 
error has occurred and the program goes to the error routine. 
Figure 3-4 illustrates coding to test the STATUS-CODE field for 
invalid record type (status code 1) after a GET function. 
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PIB FIELD: STATUS-CODE 








& GET-STATE-RECORD. 


CALL 'GET' USING STATE WORK-AREA STATE-NAME-IN. 
IF STATUS-CODE EQUAL 1 GO TO PROCESS-ERROR. 


PROCESS-ERROR. 
(error routine) 





Figure 3-4. Testing the Status Code in a COBOL Action Program 


Testing Status Codes in a BAL Action Program 


Testing method After issuing a CALL macroinstruction, you test the ZA#PSC 
location in the program information block using a compare logical 
immediate (CLI) instruction and branch to the appropriate error 
routine that handles the specific error returned by IMS. If the 
status code is not zero, it is an error; if it’s 1, it’s an invalid key; 
and 4 indicates it’s an |I/O error. Figure 3-5 illustrates this 
coding. For status code values related to specific function calls, 
see Appendix D. 





OUTTEXT(4) ,NEWLINE 
ZAHPSC+1,1 
IOERROR 
OUTTEXT+4(L'MSGCON2) ,MSGCON2 
TERM 
IOERROR OUTTEXT+4(L'MSGCON3) ,MSGCONS3 
MSGCON2 C'INVALID STATE NAME! 
MSGCONS C'1I/O ERROR' 





Figure 3-5. Testing the Status Code in a BAL Action Program 


UP-9207 
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PIB FIELD: STATUS-CODE 








Invalid request I/O errors 


Accepting all error returns 


Accepting limited error 


returns 


Receiving Error Returns 


When IMS detects an error before it performs the CALL function, 
it returns the invalid request code 3. Errors detected after IMS 
passes control to data management, the control system, or 
ICAM, are considered unrecoverable and IMS returns the I/O 
error code of 4. 


You can accept all error returns or only status codes 1 and 2. If 
you want your action program to receive control after all error 
code returns, specify ERET=YES in the PROGRAM section of 
your configuration. Then, each time a CALL function is 
completed, you must test for all possible error status codes. (See 
Figures 3-4 and 3-5.) 


When you want to receive only status codes 1 and 2 in your 
action program, take the ERET=NO default at configuration time. 
lf IMS returns any other error status codes and you've taken the 
ERET default, IMS cancels the transaction, terminates your 
program, and sends an error message to the terminal. 
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PIB FIELD: DETAILED-STATUS-CODE 














3.6. OBTAINING ADDITIONAL STATUS INFORMATION 
(DETAILED-STATUS-CODE) 


IMS sets value after When IMS returns status codes 3, 4, 6, or 7, it also returns a 

CALL functions detailed status code. The DETAILED-STATUS-CODE | field 
(ZA#PDSC) of the program information block provides additional 
data about the error. 


Detailed Status Codes for Invalid Request (Status Code 3) 


Detailed status codes 





al For example, you might receive a status code of 3 indicating 
invalid request. Invalid requests can occur for a number of 
reasons, so IMS returns a detailed status code to further explain 
the invalid request error. Table D-3 describes the detailed status 
codes that IMS can return with status code 3. 
STATUS-CODE 
Rags 
__| DETAILED-STATUS-CODE | 
Detailed Status Codes for |/O Error (Status Code 4) 
Codes for MIRAM files Suppose IMS returns a status code of 4 (I/O error). If your action 


program uses MIRAM files, IMS returns a detailed status code 
composed of a data management error code (DMnn) and a 
subcode. For example, if you received a binary value equal to 
hexadecimal 16 in the first byte of the detailed status code, and 
a binary value equal to hexadecimal 01 in the second byte, you 
interpret this as a DM16 error code with a subcode of 01. 


Interpreting DM error codes The DM 16 error message tells you that a partition table was not 
associated with the DTF at OPEN time and that there was a 
wrong key location. To determine the reason for the error, refer 
to the system messages programmer/operator reference, 
UP-8076 (current version); look up the error code under 
alphabetically prefixed messages and the error subcode under 
data management error message subcodes. 


UP-9207 
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PIB FIELD: DETAILED-STATUS-CODE 





Codes for other file types 


Detailed status codes 
in Table D-5 


Detailed status codes 
in Table D-6 


When your files are not MIRAM files and IMS returns an !/O error 
(status code 4), it returns a detailed status code from 
filenameC+2. By referring to the data management user guide, 
UP-8068 (current version) under the bit significance of filenameC 
byte 2, you'll get more detail on what caused the I/O error 
according to the bits set. See Table D-4 for these detailed status 
codes. 


Detailed Status Codes for Internal Message Control Error 
(Status Code 6) 


These detailed status codes pertain to messages sent via the 
SEND function call. See Table D-5 for these detailed status 
codes. 


Detailed Status Codes for Screen Formatting Errors 
(Status Code 7) 


When you use screen format services and errors occur, you 
receive a status code of 7 and IMS returns the detailed status 
codes that we show in Table D-6. 
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PIB FIELD: RECORD-TYPE 





3.7. OBTAINING DEFINED RECORD STATUS (RECORD-TYPE) 


When accessing defined records, the detailed status code has a 
different meaning. 


Detailed status code The COBOL program information block redefines the 
ee DETAILED-STATUS-CODE field as RECORD-TYPE, naming the 


first byte the PREDICTED-RECORD-TYPE and the second byte the 
DELIVERED-RECORD-TYPE. 


Predicted record type The predicted record type is a 1-byte alphanumeric indicator that 
tells defined record management the type of defined record to 
expect after a GET, GETUP, or INSERT function call. It also tells 
the type of the next sequential record expected after the SETL 
and GET function calls. You assign the value to the record type 
in the TYPE statement of your defined file definition. (See the 
information management system data definition and UNIQUE user 
guide, UP-9209 (current version).) 


Delivered record type The delivered record type is also a 1-byte alphanumeric indicator 
that tells the record type actually returned by defined record 
management to your action program. 


BAL use of detailed When your action program is in BAL and you access defined 

status code records, the values returned in the half-word detailed status code 
field, ZA#PDSC, represent a 1-byte alphanumeric value for the 
predicted record type followed by a 1-byte alphanumeric value 
for the delivered record type. 


Additional information Subsection 5.5 explains in greater detail the use and 


interpretation of the detailed status codes returned for defined 
record management. 
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PIB FIELD: SUCCESSOR-ID 





3.8. IDENTIFYING SUCCEEDING ACTION PROGRAMS SUCCESSOR-ID) 


Function 


Normal termination 


Other termination 


Subprogram succession 


The SUCCESSOR-ID (ZA#PSID) field identifies the action program 
you want activated after the current action program terminates. It 
is a 6-byte fieid left-justified and zero-filled (i.e., X‘FO’). 


When your action programs terminate normally, you need not 
place a value in SUCCESSOR-ID. For programs ending in 
immediate internal, external delayed, or immediate internal 
succession, you must give the name of the next or succeeding 
action program to which control passes. 


If your program calls a subprogram, you place the name of the 
subprogram you're calling into the SUCCESSOR-ID field. (For 
more details, see Section 8.) 


3.9. USING SUCCESSOR-ID TO DISPLAY ERROR CODES 


Interpreting error codes 


Displaying error code 


Method 


Where displayed 


Conditions generating 
invalid request errors 


The SUCCESSOR-ID field can also be used to indicate specific 
errors to the terminal operator. 


When you issue a function call, IMS returns a status code and 
detailed status code. To find the cause of an error, you can look 
at your program information block and then check the status and 
detailed status code values documented in this manual. (See 
Appendix D.) 


You have a programming alternative that gives you immediate 
error data at the originating terminal or console after the error 
occurs. First, determine the possible causes of errors and 
associate a successor-id with each possible error condition. 
Then, assign a termination code to each error type. When an 
error occurs, move your error termination code to the 
SUCCESSOR-ID field and terminate your action program 
abnormally by moving A or S to TERMINATION-INDICATOR (see 
3.10). 


IMS sends the termination error code from the SUCCESSOR-ID 
field to the originating terminal or console after abnormal 
termination occurs. By looking at the error code at the terminal, 
you can quickly find out the cause of error. 


Suppose you want to know quickly on which function call an 
invalid request occurred. If you retrieve records (GET), retrieve 
them for update (GETUP), switch from random to sequential 
mode (SETL), or from sequential back to random mode (ESETL); 
you have at least four possibilities for an invalid request error. 
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PIB FIELD: SUCCESSOR-ID 











Figure 3-6 shows how you describe the error termination code 
for each function call your program uses and how to test for 
invalid request errors and move the appropriate indicators. 


Example - setting up 
error status display 


LINKAGE SECTION. 
@1 PROGRAM-INFORMATION-BLOCK. COPY PIB74. 
@1 INPUT-MESSAGE-AREA. COPY IMA74. 


PROCEDURE DIVISION USING PROGRAM- INFORMATION- BLOCK 
INPUT -MESSAGE-AREA 
WORK - AREA 
OUTPUT - MESSAGE - AREA 
CONTINUITY -DATA-AREA. 


IMS-CALLS SECTION. 
500-SETL. 
CALL 'SETL? IMS - FILENAME 
IMS-FILE-POSITION. 


500-EXIT. 
EXIT. 
501-ESETL. 
CALL 'ESETL' IMS-FILENAME. 


501-EXIT. 
EXIT. 
502-GET. 
CALL 'GET! IMS -FILENAME 
IMS -RECORD-AREA 
IMS-KEY. 


502-EXIT. 
EXIT. 
503-GETUP. 
CALL 'GETUP' IMS - FILENAME 
IMS-RECORD-AREA 


503-EXIT. 
EXIT. 





Figure 3-6. Testing Error Termination Codes and Moving them to Sucessor-id 


UP-9207 
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PIB FIELD: SUCCESSOR-ID 





Example - test and display 


First, set up an item in your work area using a VALUE clause to 
associate it with the error code values that can be returned. 


Then, in your procedure division after you perform a function call, 
test the status code for a code 3 (invalid request). If IMS returns 
an invalid request status code, move the appropriate error 
termination code to the SUCCESSOR-ID field and move an §S to 
TERMINATION-INDICATOR to terminate the action program with 
a snap dump. 
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PIB FIELD: TERMINATION-INDICATOR 




















3.10. TERMINATING ACTION PROGRAMS (TERMINATION-INDICATOR) 


Determines how action IMS needs to know how your action program terminates. You 
program terminates choose the type of termination by moving one of six different 
values to the TERMINATION-INDICATOR (ZA#PSIND) field of the 
program information block. Termination actually occurs with the 
CALL RETURN execution of the CALL ‘RETURN’ statement in COBOL programs 
ends program or the ZG#CALL RETURN macroinstruction in BAL programs. 


Normal Termination (N Indicator) 


Use N for last In normal termination, the output message is sent to the terminal 

action program and all resources are released including the current action 
program. When you use several successive action programs to 
process messages, terminate the last action program normally by 
moving ‘N’ to the termination indicator. 


Default value IMS places a default value of N in the termination indicator. 

However, when more than one action program processes an 

action, as in immediate internal succession, you may have moved 

another value to the termination indicator before the final action 
program executes. Any value you moved there remains until 

@ changed by the successor action program. To be sure of 
obtaining a normal termination when needed in a series of action 
programs, move the normal (N) indicator to the termination 
indicator. 


Move N to indicator 
after immediate succession 


External Succession (E Indicator) 


Function The value E in the termination indicator tells your IMS that the 
current action program terminates in external succession. IMS 
sends the output message to the terminal, releases all resources 
including the current action program, and saves continuity data 
for use by the successor program. When IMS receives the next 
input message from the originating terminal, it schedules the 
succeeding action program as indicated in the SUCCESSOR-ID 
field. 


When external succession Sometimes you need to process more than one message to 

is used perform a transaction. The input of a second message depends 
upon the response a terminal operator gives to a previous output 
message. Using external succession in your action program 
allows the terminal operator to enter data required by the 
succeeding action program. 





UP-9207 


SPERRY UNIVAC OS/3 3-18 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





PIB FIELD: TERMINATION-INDICATOR 





Example of use 


Function 


File availability 


immediate internal 
succession process 


Successor program 


Suppose your action programs are moving file data to the 
terminal screen. One action program might move menu data to 
the screen and succeed externally to a second action program 
that requires the terminal operator to enter a specific customer 
account number and choose one of the menu items (Figure 3-7). 





ACTION 
PROGRAM 
2 





CUST-DEL 











Figure 3~7. Using External Succession 


Immediate Internal Succession (I Indicator) 


When you move the value | to the termination indicator, it tells 
IMS that you are terminating the current action program in 
immediate internal succession. This is characterized by the 
execution of two or more action programs during one action. In 
other words, several action programs execute without operator 
intervention to produce one output message. Because immediate 
internal succession involves only one action, all files accessed by 
the successor program must be available at the beginning of the 
initial program execution. To make files available, specify them in 
the configurator ACTION section. 


When your current action program terminates, IMS: 

p> releases it; 

> initiates the succeeding action program; and, 

D passes all areas referenced by your current action program 
to the successor action program, without sending an output 
message to the terminal. 

The successor action program receives control of all interface 

areas used by the previous action program. Because IMS passes 


the contents of these areas on to the successor program, no 
deallocation or reallocation of resources is needed. 
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) Example of use In Figure 3-8, action program 1 outputs a menu and terminates 
in external succession, as in Figure 3-7. The terminal operator 
enters a customer number and chooses from the menu the 
operation he wants to perform. Action program 2 receives the 
input entries, determines which successor program is needed to 
process the particular menu selection, and terminates in 
immediate internal succession. Action program 3 performs the 
requested operation and sends a response to the terminal. 


NO 5944 

ACTION ADD Y-N- 
CHG1 YRA- 
CHG2 Y-N- 
CHG3 Y-N- 
DEL Y-N- 


ACTION 
PROGRAM 
2 


5944 
ACTION a AMWAY VARIETY STORE 


PROGRAM 


3 5348 MARIAN RD. 


SEKONDA, WI 68867 








Figure 3-8. Using Immediate Internal Succession 


Response time increased Avoid immediate internal succession in a multithread IMS 

in multithread IMS environment. Because IMS holds storage areas from one action 
program to another and multithread IMS queues transactions, 
response time can be slowed. 


Files allocated to Another disadvantage of immediate internal succession is that 

first program the first action program must have all files allocated to it even if 
they are only being used by the succeeding program. This could 
waste main storage. 


Delayed Internal Succession (D Indicator) 


You can terminate an action program in delayed _ internal 

Function succession by moving the value D to your termination indicator. 
When you terminate this way, it holds the output message of the 
current action program and queues it as the input message to the 
successor action program. 
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When used 


Delayed internal 
succession process 


Output messages 
are queued 


Advantages 


Example of use 





In some situations during message processing, your main storage 
areas must be changed or different files must be accessed. At 
the same time, it may not be necessary for the terminal operator 
to receive an output message between action programs. In 
delayed internal succession, your first action program passes an 
output message internally to the successor action program that, 
in turn, uses the output message as its input. To complete the 
delayed internal succession transaction, your internal messages 
must be transferred as well as any data contained in the 
continuity data area. 


Instead of immediately sending the output message to a 
successor action program, IMS queues the message as input to 
the successor program you name in the SUCCESSOR-ID field. 


During action scheduling, IMS dynamically allocates |/O areas for 
all files referenced in the action. You can reduce |!/O area 
requirements for actions by using delayed internal succession and 
then specifying frequently accessed files for one action, and less 
frequently accessed files for another action, in the ACTION 
section of your configuration. 


Suppose, for example, a terminal operator generally enters a 
transaction code and customer number to obtain data about a 
customer account. Occasionally he needs a credit history for a 
customer. This data is located on a less frequently accessed file 
and the input message containing the special code, CH, requires 
credit history data supplied by a different action program through 
delayed internal succession; Figure 3-9 illustrates this. 





CUSTFI 5944 CH 


: AMWAY VARIETY STORE 
ACTION 5348 MARIAN RD. 
ene || SEKONDA, WI 68867 
: PASSED TO CHAP FOR 


CREDIT CHECK 


ACTION 
ACCOUNTS RECEIVABLE HISTORY PROGRAM 
CUST-NO CUST-NAME AMT -PD DATE 2 
AMWAY V.S. $ 380.89 05/10/81 
$ 50.00 05/30/81 
$ 300.75 06/10/81 


BAL DUE $ 593.74 





Figure 3-9. Using Delayed Internal Succession 
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Abnormal termination 


Abnormal termination 
messages 


Single-thread error 
message format 


Multithread error 
message format 


Voluntary abnormal 
termination 
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Abnormal Termination (A and S Indicators) 


When an action program abnormally terminates, IMS: 


creates and sends an error message to the originating 
terminal; 


releases all resources; and 


rolls back files where applicable. 


After abnormal termination, single-thread IMS sends an error 
message to the originating terminal in this format: 


TRANSACTION CANCELLED, TERM ID:id TRANS ID: id 
TRANSCODE:code ACTION:name PROGRAM:name 
error-description 


Multithread IMS sends an error message in this format: 


TRANSACTION ABORTED.TRANS ID: id. TERM ID: id. 
TRANS CODE:code.CURR ACTION:name.CURR PROG:name. 
REASON:error-description 


You can find explanations of abnormal termination errors in the 
system messages programmer/operator reference, UP-8076 
(current version). 


In some cases, you may not want an action program to continue 
executing if certain requirements, such as file availability or 
input/output function error status codes, are not met. You can 
voluntarily cause an abnormal termination by moving A to the 
TERMINATION-INDICATOR field after testing these or other 
conditions. 
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Abnormal termination 
with snap dump 


IMS rolls back 
data files 


Using SUCCESSOR-ID with 
abnormal termination 


Displaying error codes 
at terminal 


Causes 


When you place the value S in the TERMINATION-INDICATOR 
field, IMS performs the same operations except, in addition, it 
provides a snap dump that can be very helpful in debugging 
action program errors. For a more detailed explanation of the 
snap dump, see Section 12. 


Voluntary termination with either the A or S indicator causes IMS 
to roll back your data files to the previous rollback point (or the 
beginning of the transaction). 


When you use either A or S termination indicators to voluntarily 
terminate your action program, do not name an action program in 
the SUCCESSOR-ID field. Instead, move a termination code (often 
containing the status and detailed status codes) to the 
SUCCESSOR-ID field. 


When an-_ action program terminates, IMS _ clears the 
STATUS-CODE and DETAILED-STATUS-CODE fields to zeros, so 
you cannot determine the cause of errors resulting from CALL 
functions by examining a dump. However, you can obtain these 
codes at the terminal after abnormal termination by moving them 
to the SUCCESSOR-ID field. Be sure to convert the status and 
detailed status codes from binary to display format before 
moving them to SUCCESSOR-ID. When IMS receives the A or S 
termination indicators, it automatically moves the contents of the 
SUCCESSOR-ID field to the originating terminal or console. Thus, 
you send the status and detailed status codes to the terminal. 


See Figure 3-6 for an example of error termination code 
descriptions and how to move them to the SUCCESSOR-ID field. 


Involuntary Termination 


Sometimes action programs terminate abnormally without your 
action program moving a value to the termination indicator. This 
type of termination is involuntary and occurs when IMS 
encounters an abnormal condition in processing action program 
requests. Two other causes of involuntary termination are the 
program-check and the timer-check error conditions. 
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& Program-check interrupt A program-check interrupt can occur, for example, when a 
(COBOL) COBOL action program describes a field as numeric and the data 
is not numeric. This is a data exception program check (error 
code, 07). 
Program-check In a BAL action program, the program-check interrupt can occur 
interrupt (BAL) if the action program uses the wrong registers to cover an area. 


This is an address exception program check (error code, 05). 


Program check results When a program check occurs, IMS terminates the current 
transaction, sends a transaction termination message to the 
terminal with the reason for abnormal termination, and provides a 
snap dump of the action program and its activation record. See 
the description of A and S termination indicators for the message 
formats and the OS/3 system messages programmer/operator 
reference, UP-8076 (current version) for their explanation. Also, 
see Section 12 for more about snap dumps. 


Use snap dump to By looking at the contents of the snap dump, you can determine 
find cause the error code and consequently, the type of error exception 
caused by the program check. 


Timer-check interrupt The timer-check interrupt occurs when an execution loop in an 
} action program continues beyond a specified time limit. In 
single-thread IMS, a timer-check interrupt also occurs when an 
action program executes for longer than a specified time. The 
same operations result for timer check as for program check; i.e., 
IMS cancels the transaction, sends the error message to the 
terminal, and provides a snap dump. 
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Summary 


Table 3-1 lists the termination indicator values, the type of 
termination each value selects, and the IMS_ operations 





performed. 
Table 3-1. Termination Indicators 
Termination types and : 
IMS operations 

Normal Output message is sent to terminal. All resources, 

Termination including current action program, are released. When 
you don’t move a value to this field, normal 
termination is assumed. 

External Output message is sent to terminal. Any data saved 

Succession by this program is stored in the continuity data file. 
All resources, including current action program, are 
released. Successor action program is scheduled 
when another input message is received from 
originating terminal. 

Delayed No output message goes to the terminal. Output 

Succession message is queued as input message to successor 
action program. Any data saved by the program is 
stored in the continuity data file. Ali resources, 
including current action program are released. 
Successor action program is_ initiated by normal 
scheduling process. 

Immediate No output message goes to the terminal. Current 

Succession action program only is released. Successor action 
program is immediately initiated and IMS passes to it 
(intact) the interface areas of the predecessor 
program. 

Abnormally Sends error message to originating terminal (includes 

without value moved to successor-id). All resources are 

Snap Dump released. All files are rolled back. 

Abnormally Same as A except a snap dump of current action 

with Snap program and its activation record is also provided. To 

Dump get a snap dump, specify // OPTION DUMP, 


JOBDUMP, or SYSDUMP in your IMS job control 
stream. 
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3.11. HOLDING RECORD LOCKS (LOCK-ROLLBACK-INDICATOR) 


While your action program is updating records, you don’t want 

Automatic record locking other action programs to access them. To protect records, IMS 
automatically locks them while your program is updating them. 
Normally, IMS releases these record locks at the end of each 
action. 


Recovery requirements What happens to the record your program is updating when 
abnormal termination occurs? To recover record images before 
the abnormal error occurred, IMS needs: 

m the previous image of the record you were updating; and 


m ~~ the rollback point. 


Automatic rollback points Normally, IMS establishes a rollback point at the end of each 


action. 
Controlling locks and You can control the release or holding of record locks and the 
rollback establishment of rollback points by moving values to the 


LOCK-ROLLBACK-INDICATOR field (ZA#PLRI). Two of the values 
indicate that you want record locks held or released (H or R) 
from action to action. The other two values indicate that you 
want to establish a new rollback point and release all locks (N) or 
reestablish a previous rollback point and release all locks (O). 


Single-thread restriction In single-thread IMS, you can use the H and R indicators only 
when you specify RECLOCK=YES in the OPTIONS section of the 
configuration. 


Before-images saved IMS saves before-images of records your program intends to 
update in the audit file. The audit file contains only the 
before-images of updates between established rollback points. 

Position of rollback Rollback points can occur at the end of an action or transaction 

points depending on the termination indicator used jointly with the lock 
rollback indicator. 


Table 3-2 summarizes the lock rollback indicators, their 
meanings, and applicable termination indicators. 
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Table 3-2. Summary of Record Locks and Rollback 





Lock rollback indicators 
and meanings 








Indicator 







Holds all locks imposed by the current action program 
into the successor program. 










Releases ali pending locks set by the current action 
program. Update locks are held into the successor 
program. 








Releases all locks for the transaction. Establishes a 
new rollback point in the audit file. This is the default 
value. 






Releases all locks for the action or transaction. Rolls 
back all updates for this action or transaction. 
Establishes new rollback point in the audit file. 






Establishing a New Rollback Point (N Indicator) 


Default value When you don't move a value into the LOCK-ROLLBACK- 
INDICATOR, IMS defaults to the value N. This value establishes a 
new rollback point in the audit file and releases all record locks. @& 





Figure 3-10 shows what happens to your data file and audit file 
when you use the N indicator. 


yj PROCEDURE DIVISION 


MOVE ‘N' TO LOCK-ROLLBACK- INDICATOR. 
CALL 'GETUP' USING DATA-FILE 

REC1 

KEY1. 


| CALL ‘PUT' USING DATA-FILE 
REC1. 








BEFORE-IMAGE f: 











Figure 3-10. Using the N Lock Rollback Indicator 
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Purpose The N_ indicator is useful when your program _ involves 
long-running update transactions and terminates in external or 
delayed internal succession. By releasing locks, it frees records 

Saving disk space so that other action programs can access them. Also, 
establishing additional rollback points with more limited range can 
reduce the size of the audit file and save disk space. 


Reestablishing the Old Rollback Point (O) 


Function When you move the value O to the LOCK-ROLLBACK-INDICATOR 
field, you reestablish the old rollback point. In other words, this 
indicator tells IMS to roll back all updates to the previous rollback 
point and reestablish the rollback point. The O indicator also 


Example releases all record locks. Figure 3-11 shows what happens to 
your data file and audit file when you use the O lock rollback 
indicator. 


& PROCEDURE DIVISION 


MOVE 'O' TO LOCK-ROLLBACK- INDICATOR. 
CALL 'GETUP' USING DATA-FILE 

REC1 

KEY1. 


CALL 'PUT' USING DATA-FILE 
REC1 


| BEFORE IMAGE 





Figure 3-11. Using the O Lock Rollback Indicator 
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Allowable termination 
indicators 


When used 


Function 


Allowable termination 
indicators 


When used 


Function 


Allowable termination 
indicators 


The O lock rollback indicator is effective when you use it with 
the normal (N), external (E), or delayed (D) termination indicator. 


The O rollback indicator is useful when you want to actually roll 
back the data file to its contents before the current action’s 
changes were made. This is helpful, for example, when the 
program updates a record invalidly and you want to assure 
validity by rolling back to a point before the invalid update 
occurred. 


Holding Record Locks Across Actions (H Indicator) 


There are situations in which you may want to hold record locks 
until you make further changes in a succeeding action. To do 
this, you move the value H to the LOCK-ROLLBACK-INDICATOR 
field during the first action. IMS does not establish a rollback 
point when you use this indicator. It simply holds locks between 
actions. Figure 3-12 illustrates the use of H in the lock rollback 
indicator. 


The H lock rollback indicator is effective only when you use it 
with the external (E) or delayed internal (D) termination indicators. 


Use the hold indicator, for example, when you want to prevent 
other action programs from accessing a record until the entire 
transaction finishes processing. You should avoid using the hold 
indicator when your transactions are long and when your 
programs are executing in a multithread environment. Holding 
locks across many actions in a multithread environment can 
cause deadlocks. 


Releasing Record Locks for Pending Updates (R) 


Moving the value R to the LOCK-ROLLBACK-INDICATOR field 
allows the release of locks imposed on records that are pending 
update. Only records that were updated remain locked. IMS does 
not establish a rollback point or roll back updates when you use 
this indicator. Figure 3-13 shows the use of the R lock rollback 
indicator. 


The R, like the H indicator, is effective only when you use it with 
the external (E) or delayed internal (D) termination indicators. 
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PROCEDURE DIVISION . PROCEDURE DIVISION . 











SECTION-A. SECTION-A. 





ad CALL 'GETUP' USING DATA-FILE 
| CALL 'GETUP' USING DATA-FILE REC1 
: REC1 KEY1. 


. KEY1. 
|| If STATUS-CODE NOT EQUAL ® 
e GO TO ERROR-ROUTINE. 

|| IF AMT < 2000 

GO TO TERMIN-IND 


IF STATUS-CODE = 3 ANO 
DETAILED-STATUS-CODE = 18 
MOVE ‘GETUP UNSUCCESSFUL 

RECORD LOCKED' TO 
OMA-MSG-TEXT 





2“) ELSE ELSE 


CALL 'DELETE' 





















CALL *PUT' USING DATA-FILE 
REC1. 





USING DATA-FILE 
REC1. 
_| TERMIN-IND. 
MOVE 'E' TO TERMINATION- INDICATOR. 
MOVE 'ACTPG2' TO SUCCESSOR-ID. 
ERROR-ROUTINE. 














PROCEDURE DIVISION . 


SECTION-A. 
CALL 'GETUP' USING DATA-FILE 
REC1 
KEY1. 
IF STATUS-CODE = 1 
MOVE 'RECORD DELETED! 
TO OMA-MSG-TEXT 
ELSE 
MOVE MORE-DATA TO REC1 
CALL *PUT' USING 
DATA-FILE 
REC1. 

















Figure 3-12. Using the H Lock Indicator. ACTPG1 on terminal 1 executes, terminates 
externally, and sets the H lock rollback indicator. ACTPGA on terminal 2 
executes and attempts to obtain REC1. ACTPG1 holds the lock for REC1 
and ACTPGA receives a status code of 3 and detailed status code of 18 
(12, on single thread. For multithread IMS, the request for REC1 is 
queued. When ACTPG2 gets control, the delete operation has not been 
executed in ACTPGA. Thus, ACTPG2 updates REC1. 


When used You generally use the release indicator when you've read a 
record for update and your program tests the record to 
determine whether or not it needs updating. If it doesn’t need 

@ updating, you want to release the lock so other actions can 
access it. At the same time, you want to hold locks on records 
that you have updated, so they can be rolled back if an error 
occurs during the following action. 
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PROCEDURE DIVISION . 


SECTION-A. 
“ROLLBA CALL 'GETUP' USING DATA- 
' USING DATA : : REC1 
REC : KEY1. 
KEY1. > cS IF STATUS-CODE = 3 AND 
IF STATUS-CODE NOT EQUAL ® : DETAILEO-STATUS-CODE = 18 
GO TO ERROR-ROUTINE. MOVE 'GETUP UNSUCCESSFUL 
IF AMT < 2000 | TRAMINAL 2 RECORD LOCKED' TO 
. GO TO TERMIN- INO ie MASE OMA-MSG- TEXT 
ELSE / ELSE 
CALL 'PUT' USING DATA-FILE : CALL ‘DELETE' USING DATA-FILE 
REC1. REC1. 
TERMIN- IND. 
MOVE 'E! TO TERMINATION- INDICATOR. 
MOVE 'ACTPG2' TO SUCCESSOR -ID. 
ERROR-ROUTINE. 





PROCEDURE DIVISION . 





SECTION-A. 
CALL 'GETUP' USING DATA-FILE 
REC1 
KEY1. 
IF STATUS-CODE = 14 
MOVE ‘RECORD DELETED’ 
TO OMA-MSG- TEXT 
ELSE 
MOVE MORE-DATA TO REC1 
CALL 'PUT' USING 
DATA-FILE 
REC1. 


Figure 3-13. Using the R Lock Indicator. ACTPG7 on terminal 1 executes, terminates 
externally, and sets the R lock rollback indicator. ACTPGA on terminal 2 
executes and attempts to obtain REC1. If ACTPG1 holds the lock for 
REC1, ACTPGA receives a status code of 3 and detailed status code of 
18 (12,,) on single thread. For multithread IMS, the request for REC7 is 
queued. When ACTPG2 gets control, if ACTPG!1 released the lock on 
REC1, REC1 was deleted by ACTPGA and ACTPG2 issues a record 
deleted message. Otherwise, ACTPG2 updates REC 1. 
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Release locks at 
end of update 


Lock for Update Feature 


If you specify lock for update (LOCK=UP) for a particular file in 
the FILE section at configuration time, IMS releases record locks 
when updates are completed rather than at the end of an action. 
When you use this option, IMS does not save before-images in 
the audit file and does not roll back updates at abnormal 
termination. You can use the H indicator to hold locks on 
uncompleted updates into the next action. 


UP-9207 SPERRY UNIVAC OS/3 3-32 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





ADDITIONAL PIB FIELDS 








3.12. TRANSACTION IDENTIFICATION (TRANSACTION-ID) 


Function When the terminal operator enters the first input message of a 
transaction, IMS places a unique message identifier in the 
TRANSACTION-ID (ZA#PTID) field of the program information 
block. IMS sets this value for all action programs that are part of 
the same transaction. 


3.13. IDENTIFYING A DEFINED FILE (DATA-DEF-REC-NAME, 
DEFINED-FILE-NAME) 


Function When your action programs access’ defined files, the 
DATA-DEF-REC-NAME § field (ZA#PDDRN) names the data 
definition record and the DEFINED-FILE-NAME (ZA#PDFN) field 
names the defined file or subfile. Both are 7-byte items, 
left-justified, and blank filled. The description of the defined file is 
contained in the data definition record in the named record file. 


How IMS uses these fields ASSuming your current action program is not succeeding another, 
when IMS schedules an action it also: 


Moves the data definition record name specified by the 
DDRECORD configurator parameter into the 
DATA-DEF-REC-NAME field 





Moves the defined file name specified by the DFILE 
configurator parameter into the DEFINED-FILE-NAME field. 
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Accessing defined files When your action program terminates in external (E) or delayed 

in successive actions internal (D) succession and the successor action program 
accesses a different defined file, you can pass the new data 
definition record name and defined file name to the succeeding 
action program by: 


moving the new names to DATA-DEF-REC-NAME field and 


DEFINED-FILE-NAME field in your action program (see Figure 
3-14); or, 


moving binary zeros (LOW-VALUES) to both fields and 
allowing IMS to insert the data definition record name and 
defined file name specified in the configurator for the 
successor action (see Figure 3-15). 


TO DATA-DEF-REC-NAME. 
TO DEFINED-FILE-NAME. 


e “| MOVE ACTPG2 TO SUCCESSOR-ID. 


4 MOVE ‘E' TO TERMINATION- INDICATOR. 





Figure 3-14. Action Program Passing Data Definition Record Name and Defined 
File Name to Successor Action Program 


UP-9207 SPERRY UNIVAC 0S/3 3-34 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





ADDITIONAL PIB FIELDS 








TO DATA-DEF-REC-NAME. 


TO DEFINED-FILE-NAME. 
DEFFIL1 


MOVE ACTPG2 TO SUCCESSOR-ID. 
MOVE 'E' TO TERMINATION- INDICATOR. 


ACTION ACTPG2 


CDASIZ 


IMS INSERTS NAMES 








Figure 3-15. IMS Passing Data Definition Record Name and Defined File Name to 
Successor Action Program 
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Accessing conventional files WWhen a succeeding action program accesses only conventional 

in successive actions files, your action program should move zeros to the 
DATA-DEF-REC-NAME and DEFINED-FILE-NAME fields of the 
program information block. This allows the successor action to 
access records that have contributed to the defined file used by 
the previous action. Figure 3-16 shows you how clearing the 
DATA-DEF-REC-NAME and DEFINED-FILE-NAME fields frees the 
source file for use by the successor action program. 


O DATA-DEF-REC-NAME. 
O DEFINED-FILE-NAME. 
DEFFIL1 


MOVE ACTPG2 TO SUCCESSOR-ID. 
MOVE 'E* TO TERMINATION- INDICATOR. 





Figure 3-16. Freeing Source File for Use by Successor Action 
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3.14. OBTAINING STANDARD MESSAGE SIZE (STANDARD-MSG-LINE-LENGTH, ® 
STANDARD-MSG-NUMBER-LINES) 


Message line length IMS places the configured values for standard message line 
length into the STANDARD-MSG-LINE-LENGTH field of the 
COBOL program information block or into the ZA#PMLL location 
of the BAL program information block. This field is a half-word 
binary value obtained from the CHRS/LIN configuration parameter. 


Lines per message Another value IMS inserts along with the standard message line 
length is the standard number of lines per message. This value is 
a half-word binary integer. In the COBOL program information 
block, this field is the STANDARD-MSG-NUMBER-LINES and the 
location in the BAL program information block is ZA#PMNL. IMS 
obtains the standard number of lines value from the LNS/MSG 
configuration parameter. 


Use of fields Your action program does not use these values. IMS uses them 


to determine the output message area_ size when 
OUTSIZE=STAN is configured. 


3.15. SETTING WORK AREA VALUES (WORK-AREA-LENGTH, WORK-AREA-INC) 





Work area length IMS sets the WORK-AREA-LENGTH field (ZA#PWA), which is a 
half-word binary value indicating the length of the work area 
allocated to an action. IMS obtains this value from your 
configuration WORKSIZE parameter. 


Adding work-area space When your action program succeeds to another action program, 
additional work area space may be needed. Under multithread 
IMS only, your action program can set a half-word binary value in 
the WORK-AREA-INC field (ZA#PWAI) to increment the number 
of bytes for the work area. This value is additional to the value 
you specified in the WORKSIZE parameter. 


3.16. SETTING CONTINUITY DATA VALUES (CONTINUITY-DATA-INPUT- 
LENGTH, CONTINUITY-DATA-OUTPUT-LENGTH, CONTINUITY- 
DATA-AREA-INC) 


Passing continuity data When you use delayed internal or external succession, you use 
the continuity data area. IMS passes data to a successor 
program via the continuity data record. The continuity data 
record contents begin with the first byte of the continuity data 
area. 
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Receiving continuity data A successor action program must define in the linkage section a 
continuity data area to access the contents of the continuity data 

Input length field record saved from its predecessor action. When your successor 
action program receives the data passed from the previous 
action, IMS places a_ half-word binary value into’ the 
CONTINUITY-DATA-INPUT-LENGTH field (ZA#PCDIN) to specify 
the length of the continuity data record passed to the current 
action by its predecessor action. 


Output length field IMS sets a_half-word binary value in the CONTINUITY- 
DATA-OUTPUT-LENGTH field (ZA#PCDO) to specify the size of 
the continuity data area allocated to the current action. The value 
in this field at the end of the action indicates the number of 
bytes of data to be saved when the current action terminates in 
external or delayed internal succession. 


Continuity data area Before the current action terminates, IMS checks _ the 

increment CONTINUITY-DATA-AREA-INC field (ZA#PCDI) to determine if 
the continuity data area should be incremented for the next 
action. The half-word binary value set by the current action 
indicates the number of bytes needed to save additional data for 
a successor action. IMS adds this increment value to the length 
of the saved continuity data record and compares it to the length 
specified in the CDASIZE configurator parameter. The larger value 
then becomes the continuity data area size (CONTINUITY- 
DATA-OUTPUT-LENGTH field) for the succeeding action program. 
Note that continuity data area size should not exceed the track 
size of the disk used for the continuity data file. 


Figure 3-17 illustrates how IMS establishes continuity data area 
input and output lengths and increment values. 


3.17. SUCCESS-UNIT IDENTIFICATION (SUCCESS-UNIT-ID) 


Obtaining date and time Each time IMS schedules a new action, it identifies the beginning 
of the action or success-unit by sending a date and time stamp 
to the SUCCESS-UNIT-ID field (ZA#DTE and ZA#TME) of the 
program information block. When your action program requires 
an accurate date/time value, it should’ reference’ the 
TRANSACTION-DATE and  TIME-OF-DAY fields’ in the 
SUCCESS-UNIT-ID of the COBOL program information block, or 
the ZA#DTE and ZA#TME locations in the BAL program 
information block. 
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ACTION ACTPG1 
CDASIZE=47 


ACTION ACTPG2 


CDASIZE=€9) 


USE LARGER 
SIZE FOR CDA 
IN SUCCESSOR 
PROGRAM 


CONTINUITY-DATA-INPUT-LENGTH CONTINUITY -DATA-INPUT-LENGTH 
CONTINUITY -DATA-OUTPUT-LENGTH CONTINUITY -DATA-OUTPUT-LENGTH 
CONTINUITY-DATA-AREA-INC : 





CONTINUITY DATA AREA CONTINUITY DATA AREA 


pee ee 


CDA INCREMENT 


——- — —  —— I 





Figure 3-17. Establishing Continuity Data Area Sizes 
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3.18. DETERMINING SOURCE TERMINAL CHARACTERISTICS 
(SOURCE-TERMINAL-CHARS) 


ADDITIONAL PIB FIELDS 





Terminal type identification When the terminal operator issues an input message, IMS sets 
an indicator in the SOURCE-TERMINAL-TYPE (ZA#TTTYP) field to 
identify the type of terminal sending the input message. Each 
1-byte character value it sends identifies a device type as 





follows: 

Value Description 

C System console 

F UTS 400 in native mode (with or without 
character protect feature) 

N UTS 10, DCT 500, 1000, or 
teletypewriter 

P UTS 400 in UNISCOPE mode with FCC protect 
feature 

T UTS 400 text editor 

U UTS 400 in UNISCOPE mode with character 
protect feature 

V UNISCOPE 100 or UNISCOPE 200 

W Workstation or UTS 20 

3 IBM 3270 

4 UTS 40 

Message line length After IMS identifies the terminal type that sent the input 


message, it places the message line length for the source 
terminal in the SOQURCE-TERM-MSG-LINE-LENGTH (ZA#TMLL) 


field as a half-word binary value. 


Lines per message IMS also sets the number of lines per message for the source 
terminal type in the SOURCE-TERM-MSG-NUMBER-LINES field 


(ZA#TMNL). 
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Testing terminal type 
and message length 


Example of use 


If you are going to send a message back to the source terminal, 
your action program can interrogate these fields to determine 
whether the terminal receiving your output message is capable of 
accommodating your message length. If your destination terminal 
is not the same as your source terminal, your program should 
use the STANDARD-MSG-LINE-LENGTH and STANDARD- 
MSG-NUMBER-LINES (see 3.14) when constructing the output 
message. 


Suppose you know that all terminals in your installation at Denver 
are UTS 400 devices and those in Pittsburgh are UNISCOPE 100 
devices. Your COBOL action program could issue an IF statement 
as follows to determine from which city you are receiving input. 


TERM-TEST. 
IF SOURCE-TERMINAL-TYPE EQUAL 'F! 
GO TO DENVER-ROUT 
ELSE IF SOURCE-TERMINAL-TYPE 
EQUAL 'V! 
GO TO PITTS-ROUT. 
GO TO ERR-ROUT. 
NEXT-ROUT. 


After your action program determines the source terminal type, 
the first statements in each city routine would compare the 
length of the output message you want to send back to the 
source terminal with the values in the SOURCE-TERM- 
MSG-LINE-LENGTH and SOURCE-TERM-MSG-NUMBER-LINES 
fields. For example: 


DENVER-ROUT. 
IF SOURCE-TERM-MSG-LINE-LENGTH 
EQUAL 8@ AND 
SOURCE -TERM-MSG-NUMBER-LINES < 24 
MOVE MSG-2 TO OMA-TEXT 
GO TO NEXT-ROUT. 

PITTS-ROUT. 
IF SOURCE-TERM-MSG-LINE-LENGTH 
EQUAL 80 AND 
SOURCE -TERM-MSG-NUMBER-LINES < 12 
MOVE MSG-1 TO OMA- TEXT 
GO TO NEXT-ROUT. 

ERR-ROUT. 
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Terminal attributes IMS returns one of the following 1-byte character values in the 
SOURCE-TERM-ATTRIBUTES field of the COBOL program 
information block field or in the ZA#TATTR field of the BAL 
program information block: 





Value Description 

A Screen bypass and Katakana 
K Katakana character set 

N Nonvideo device 

S Screen bypass feature 

Z None of these attributes 


3.19. DETERMINING REMOTE TRANSACTION STATUS (DDP-MODE) 


Initiating You initiate remote transactions either from a terminal or from an 

PEIOLE action program. (See Section 9.) IMS supplies values in the 
@ ee aeyere DDP-MODE (ZA#DDPMD) field. 

Remote transaction Two of the values (R and A) indicate how the remote transaction 

processing results was initiated. The other two values (C and E) indicate the 


successful or unsuccessful completion of the remote transaction. 


DDP-mode values The 1-byte character values returned by IMS to describe remote 
transaction status are: 


Operator-initiated remote transaction with operator 
or directory routing (Received by action programs 
processing remote transactions at the secondary 
IMS.) 


Action-program initiated transaction (Received by 
action programs processing remote transactions at 
the secondary IMS.) 


Unsuccessful remote transaction (Received by 
action programs that issued a CALL ACTIVATE 
function at the primary IMS.) 


Successful completion of remote transaction 
(Received by action programs that issued a CALL 
ACTIVATE function at the primary IMS.) 
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4. Receiving Input Messages 


4.1. NEED FOR INPUT MESSAGE AREA 


Input message area When a terminal operator enters a transaction code, your action 

required program must define an input area to receive it. The same is true 
when the terminal operator enters an input message in response 
to an output message. 





Receiving input When you use internal succession and pass data as input to the 
message from next action program, you must define an input area in the 
previous program 3 

successor program to receive the data. 


ACTION 
PROGRAM 2 


ae INPUT 
ACTION PROGRAM 1 AREA 





An input message area is always required in your action program 
because each action program must receive an input message, 
either via the terminal or action program succession, to produce 
an output response. Without an input message, no message 
processing is possible. 
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4.2. INPUT MESSAGE AREA CONTENTS 


Control header 


Input message text 


The first part of any input message area description is the 
16-byte control header. Your program obtains the appropriate 
COBOL or BAL input message control header format from the 
copy library or macro library. 


The second part of the input message area description is the text 
of the message itself. The input message text consists of the 
input fields your program expects to receive either from the 
terminal operator or by succession from a previous action 
program. 


INPUT MESSAGE 
ONTROL HEADER 
(16 BYTES) 


INPUT 
MESSAGE 





4.3. SIZE OF INPUT MESSAGE AREA 


Configuring input 
message area size 


Receiving control 
characters in 
input message area 


Specifying standard 
message size 


You tell IMS the size of your input message area at configuration 
time when you specify the INSIZE parameter in the ACTION 
section. The value given for the INSIZE parameter is the number 
of bytes in the input message header plus the message text 
length, including any control characters you expect to receive in 
your program. You receive control characters in your action 
program only when you specify EDIT=NONE in the configurator 
ACTION section. 


INPUT 


MESSAGE 
TEXT 





Instead of specifying an input message area length on the INSIZE 
parameter, you can specify a standard message_ size 
(INSIZE=STAN); IMS allocates an area based on your CHRS/LIN 
and LNS/MSG parameter values in the GENERAL section. 
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When you omit the INSIZE parameter or specify an inadequate 
amount of space for the input message area, IMS automatically 
allocates an area large enough to contain the actual input 
message. 


Automatic space allocation 


INPUT MESSAGE 
CONTROL HEADER 


INPUT MESSAGE TEXT 


ENTER CUSTOMER ID 
AND ZIP CODE. 





Edit table Automatic space allocation doesn’t occur if you use an edit table 
consideration (EDIT=tablename), so you must specify the number of bytes for 
the input message area on the INSIZE parameter. 


Overestimating IMA space On the other hand, if you specify more space than is needed, 
IMS fills the balance of the area with blanks. 


INPUT MESSAGE 
CONTROL HEADER 


INPUT MESSAGE TEXT 


ENTER CUSTOMER ID 
AND ZIP CODE. 





Overestimating wastes Note that you're wasting storage when you overestimate input 

Storage message area size. If you're not using the edit table generator 
and you aren't sure of the input message area size, omit the 
INSIZE parameter and let IMS determine the input message area 
length. 
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4.4. COBOL ACTION PROGRAM INPUT MESSAGE AREA 


Format names for 
1974 COBOL and 
extended COBOL 


Copying input message 
header 


Describing input 
message fields 


Input Message Header Format 


IMS supplies input message control header formats for extended 
COBOL and 1974 American National Standard COBOL. There is 
only a_ slight difference in their content. The COBOL input 
message header format is available in the IMS copy library under 
the name IMA for extended COBOL, or under the name IMA74 
for 1974 American National Standard COBOL. Figure 4-1 shows 
the format of the 1974 COBOL input message area control 
header. Note the different data names of TODAY and 
HR-MIN-SEC fields for extended COBOL. 


INPUT -MESSAGE- AREA. 
@2 SOURCE-TERMINAL - ID 
@2 DATE-TIME-STAMP. 

@3 YEAR COMP -4. 

@3 TODAY comP-4. @ 


@3 HR-MIN-SEC CoMP-4. @ 
TEXT-LENGTH COMP -4. 
AUXILIARY-DEVICE-ID. 

@3 FILLER 

@3 AUX-DEVICE-NO 





NOTES: 
@ The name of this field in extended COBOL is DAY. 
@ The name of this fietd in extended COBOL is TIME. 


Figure 4-1. 1974 COBOL Format for Input Message Area Control Header 


When you code your COBOL action program's linkage section, 
copy the input message area control header format into your 
action program from the copy library by using a COPY verb. 


Input Message Text Description 


The input message text description immediately follows the input 
message control header format. You describe the input message 
text expected by your program from the terminal or previous 
action program. In COBOL, describe the input message text as 
data items subordinate to the O1-level input message area 
description. The shaded area in Figure 4-2 shows the input 
message area control header formats generated by the COPY 
verb. Fields immediately following the shaded area represent the 
input text expected by the program. 
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Refer to the CSCAN action program example, PAYMT-3, in 
Appendix B for an example of this input text. When you copy the 
input message control header format from the copy library, all its 
fields are accessible to the CSCAN action program and can be 
referenced in the procedure division. 


LINKAGE SECTION. 
@1 P-1I-B COPY PIB74 


IMA 
CONTROL 
HEADER 
DESCRIPTION 


FILLER PIC X(6). 

CUSTID PIC X(6). 

FILLER PIC X. INPUT 
MSG-PAY. MESSAGE 
@3 MSG-CHAR PIC X OCCURS 7 INDEXED BY 1. TEXT 
FILLER PIC X. DESCRIPTION 





Figure 4-2. Sample COBOL Input Message Area Description 





UP-9207 





SPERRY UNIVAC OS/3 4-6 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





BAL INPUT MESSAGE AREA HEADER FORMAT 





4.5. BAL ACTION PROGRAM INPUT MESSAGE AREA 


Calling input message 
header DSECT 


Describing input 
message fields 


Input Message Header Format 


IMS supplies an input message area contro! header format for 
BAL action programs. It is in the form of a DSECT called by a 
macroinstruction in your action program. Figure 4-3 shows the 








format of the BAL input message area control header. 


ZAaIMH CSECT 
a 


INPUT PESSAGE HEADLR 
x 
ZABLSTIL CS CL4 SCUSCE TERMINAL It 
ZAaiODTS CS ALS& LCATE/TIME STAMP 
ZA#I1TRID EQU ECARTUTS L*cAwICTS UPTQUE TRANSACTION IG 


ZASIMHL tGu x= ZAaATMH INPUT MCSSAGt ARLA HEADER LENGTH 


ZAMITL os H TEXT LONGTH 
ts ctl RLSEF VEG FOR SYSTEM USE 
ZAALOLV CS Cli AUX DEVICE ID 


ECUATES FOR cAkIuUEy 


2AaToiol ly Cory GEVICE 
fAaIDIG2 ecu Cts CEVICL 
ZARICIO3 Edu C73" CEVICE 
ZAaLo ADH CCU Eras cEVICL 
Z248i0i05 ECU CSS Devict 
ZAa#LD1IDG ECU C*e* LEViCE 
ZAFIOLOT EQu ct7? CEVICe 
ZAFICICE Bou C85" UEVICL 
ZAHICIDO eu C9" CCVICL = 
ESYSCCT CSECT 
ENU 


eons ec ET SW ee 


Figure 4-3. BAL Format for Input Message Area Control Header (ZA#IMH DSECT) 





You issue the ZM#DIMH macroinstruction in your BAL action 
program to generate inline the input message control header 
(ZA#IMH DSECT). If you don't want to see the ZM#DIMH macro 
expansion inline, use the PRINT NOGEN instruction before you 
issue the ZM#DIMH macroinstruction. Even though the input 
message control header fields are not seen in your program 
coding, they are still available and you can reference them in your 
program. 


Immediately following the ZM#DIMH macroinstruction, you 
describe the input message text fields. Using define storage (DS) 
statements, you describe each field of your input message text. 
Figure 4-4 illustrates the macroinstruction to generate the input 
message control header format followed by the description of 
input message text expected from the terminal (transaction code 
and state name key). Refer to Appendix B for this example in the 
full context of the IMS state capital action program. Note that 
PRINT NOGEN is specified and the ZM#DIMH macroinstruction is 
not expanded inline. Nevertheless, this action program can still 
access any fields in the control header for values placed there by 
IMS. 
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OO rremee Suppresses inline 


macro expansion 


*ACTIVATION RECORD DEFINITION 


——— ee ees Makes IMA control header 
fields available. 
TCODE DS TRANSACTION CODE 
DS SPACE Input Message Text 
SNKEY DS STATE NAME KEY 





Figure 4-4. Sample BAL Input Message Area Description 


4.6. CONTENTS OF INPUT MESSAGE AREA CONTROL HEADER 


The header format identifies the terminal that sent the input 
message, the date and time when the message was sent, the 
length of the input text, and whether or not an auxiliary device 
transmitted input to the action program. Figure 4-5 shows some 
of the questions about input messages that the input message 
control header answers when IMS sets values in the control 
header fields. Subsections 4.7 through 4.10 describe input 
message header fields. 


WHICH TERMINAL 
SENT THIS 
MESSAGE? 


INPUT WHICH INPUT 


MESSAGE MESSAGE IS 
AREA THIS? 


'S . 
THIS MESSAGE 
COMING FROM 


HOW LONG IS 
THIS INPUT 
MESSAGE? 





Figure 4-5. Answers to Input Message Processing Questions 
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4.7. IDENTIFYING THE SOURCE TERMINAL (SOURCE-TERMINAL-ID) 


Source terminal 


identification 


NETWORK 


TRANSACT 
TRANSACT 
ACTION 


ACTION 


The SOURCE-TERMINAL-ID (ZA#ISTID) field specifies a 1- to 
4-byte name of the terminal that originated the input message. 
Your action program may need to check this field to determine 
which terminal sent a particular input message. This terminal 
name is the same name specified for the terminal in the ICAM 
network definition and in a TERMINAL section of the 
configuration (Figure 4-6). 


ICAM NETWORK DEFINITION 


TYPE=(GBL,,S),GAWAKE=YES,SAVE=YES, 
FEATURES=(OPCOM, TRACEMAX ,OUTDELV) 


BUFFERS 10,512,2,ARP=20 

LOCAP TYPE=(TCI),LOW=MAIN,MEDIUM=MAIN, HIGH=MAIN 

LINE DEVICE=(LWS) 

TERM ADDR=(312),FEATURES=(LWS) ,LOW=MAIN, INPUT=C(YES), 


MEDIUM=MAIN, HIGH=MAIN, TCTUPD=YES 


LINE DEVICE=(LWS) 
TERM ADDR=(313),FEATURES=(LWS),LOW=MAIN, INPUT=CYES), 


MEDIUM=MAIN, HIGH=MAIN, TCTUPD=YES 


LINE DEVICE=(LWS) 
TERM ADDR=(314),FEATURES=(LWS),LOW=MAIN, INPUT=(YES), 


MEDIUM=MAIN,HIGH=MAIN, TCTUPD=YES 


LINE DEVICE=(LWS) 
TERM ADDR=(315),FEATURES=(LWS),LOW=MAIN, INPUT=(YES), 


MEDIUM=MAIN, HIGH=MAIN, TCTUPD=YES 


PRCS LOW=MAIN 
ENDCCA 


IMS CONFIGURATION 


UNSOL=ACTION 
UNSOL=ACTION 
UNSOL=ACTION 
UNSOL=ACTION 


MENU ACTION=JAMENU 
SIGN ACTION=JASIGN 
JAMENU CDASIZE=1024 EDIT=NONE MAXSIZE=12000 


OUTSIZE=4096 WORKSIZE=10624 
FILES=SYSCTL,CUSTMST,XREF1,XREF2 


JASIGN CDASIZE=1024 EDIT=NONE MAXSIZE=12000 





Figure 4—6. Identifying the Source Terminal to ICAM and the Configurator 
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Testing source terminal Suppose your action program processes input messages 

identification differently, depending on which terminal sent the message. 
Before it can decide how to process the message, your program 
needs to check the name of the source terminal that sent the 
input message. 


Let's say that if your program receives a message from source 
terminals T100 through T300, it performs routine A. On the 
other hand, if your program receives a message from source 
terminals T400 through T600, it performs routine B. Your 
program simply interrogates the SOURCE-TERMINAL-ID field of 
the input message header as shown in Figure 4-7 and processes 
the input message according to the values placed in the 
SOURCE-TERMINAL-ID field. 


100-TERM-TEST. 
IF SOURCE-TERMINAL-ID GREATER THAN OR EQUAL 'T100! 
AND LESS THAN OR EQUAL TO 'T300! 
PERFORM ROUT-A 
ELSE IF SOURCE-TERMINAL-ID GREATER THAN OR EQUAL 'T400' AND 
LESS THAN OR EQUAL ‘T6909! 
PERFORM ROUT-B. 
GO TO ERR-ROUT. 
ROUT-A. 





ERR-ROUT. 





Figure 4-7. Interrogating the SOURCE-TERMINAL-ID Field 





UP-9207 


SPERRY UNIVAC OS/3 4-10 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


IMA FIELD: DATE/TIME STAMP 


4.8. IDENTIFYING THE ACTION (DATE/TIME STAMP) 


When input message 
received 


Identifying specific input 
message 


Using date/time stamp 


Testing specific input 
messages 


When IMS receives an input message, it places the date and 
time as a binary value in the DATE-TIME-STAMP field (ZA#IDTS) 
of your input message header. The first half word of the field 
contains the year; the second half word of the field contains the 
Julian day. The second word contains a sequence number unique 
to this input message. The date/time stamp is used for recovery 
purposes and not for determining the time of day. 


IMS uses this field to distinguish actions. Each time IMS receives 
an input message, it identifies the action via this date/time 
stamp. If you need the accurate date or time in your action 
program, you should interrogate the TRANSACTION-DATE and 
TIME-OF-DAY under SUCCESS-UNIT-ID in’ the program 
information block. 


The last word of the DATE-TIME-STAMP field contains a unique 
sequence number represented as a binary value for each input 
message processed. This sequence number is useful at error 
recovery time. In the error routine, your action program may 
choose to process messages 1 to 100 in one manner, and 
messages 101 to 200 in another manner. Thus, Figure 4-8 
shows coding that tests the HR-MIN-SEC (ZA#IDTS) field to 
determine the input message sequence number on which the 
error occurred and processes it accordingly. 


Note that when testing the DATE-TIME-STAMP field, all 
comparisons must be made in binary. Be sure to compare 
DATE-TIME-STAMP with values you define in working storage as 
binary items. 
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WORKING-STORAGE SECTION. 
77 ONE - HUNDRED PIC 9¢4) COMP -4 VALUE 100. 
LINKAGE SECTION. 


PROCEDURE DIVISION 


MSG-SEQ-TEST. 
IF HR-MIN-SEC LESS THAN OR EQUAL ONE-HUNDRED 
PERFORM ERR-ROUT- 1 
ELSE IF HR-MIN-SEC GREATER THAN ONE-HUNDRED 
PERFORM ERR-ROUT-2. 
ERR-ROUT. 


ERR -ROUT-1. 


ERR-ROUT-2. 





Figure 4-8. Testing Input Message Sequence 
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4.9. OBTAINING INPUT MESSAGE TEXT LENGTH (TEXT-LENGTH) 


Input message length 


Using TEXT-LENGTH field 


Qualifying TEXT-LENGTH 
field 


Once the terminal operator enters an input message, or a 
previous action program passes input data to a successor action 
program, IMS places a binary half-word value indicating the input 
message length plus four bytes for the TEXT-LENGTH (ZA#ITL) 
field itself into the TEXT-LENGTH field. 


Your action program may want to print out all input messages 
for a day’s transactions. Suppose the input messages received 
by your action program can vary in length and you plan to write 
them as variable-length unblocked records to a sequential file. 


The value IMS places in the TEXT-LENGTH field contains the 
length of the input message text your action program receives 
plus four bytes for the TEXT-LENGTH field. Each time your 
program receives an input message, it must first subtract four 
bytes from the value in TEXT-LENGTH. Your program then 
compares the resulting value with the different input message 
lengths that the program expects. When the program determines 
which size message was received, it moves TEXT-LENGTH minus 
four bytes to the record length field of your record area 
description in the work area. Finally, it moves the appropriate 
input message to the work area and writes it to the sequential 
file. Figure 4-9 shows the coding to test the TEXT-LENGTH field 
in the input message area. Note that you must subtract a binary 
4 from the COMP-4 TEXT-LENGTH field, and the record length 
field in the work area must also be a binary value. 


When you access the TEXT-LENGTH field in the input message 
area, your COBOL program must qualify the TEXT-LENGTH field 
by identifying it as a part of the input message area header; |.e., 
TEXT-LENGTH IN INPUT-MESSAGE-AREA. 
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WORKING-STORAGE SECTION. 


77 FOUR PIC 9 COMP -4 VALUE 4. 
77 FORTY PIC 99 COMP -4 VALUE 4@. 


LINKAGE SECTION. 
01 INPUT-MESSAGE-AREA. COPY IMA74. 
@5 MSG-IN-1. 
10 TRANS-CODE-1 PIC X(5). 
10 IN-MSG-TEXT-1 PIC X(35). 
MSG-IN-2 REDEFINES MSG-IN-1. 
10 IN-MSG-TEXT-2. 
20 TRANS-CODE-2 PIC 
20 TEXT-2 PIC 
10 FILLER PIC 
WORK - AREA. 
@5 IN-MSG-REC. 
10 REC-LEN PIC 9(4) 
19 MSG-TEXT. 
2@ MSG-1 PIC x(25). 
20 FILLER PIC X(15). 
OUTPUT -MESSAGE- AREA. COPY OMA74. 


PROCEDURE DIVISION USING PROGRAM- INFORMATION-BLOCK 


INPUT -MESSAGE-AREA 
WORK - AREA 
OUTPUT -MESSAGE- AREA. 


IN-MSG-MOVE 


MOVE TEXT-LENGTH IN INPUT-MESSAGE-AREA TO REC-LEN. 
SUBTRACT FOUR FROM TEXT-LENGTH IN INPUT-MESSAGE-AREA. 
MOVE SPACES TO MSG-TEXT. 

IF TEXT-LENGTH IN INPUT-MESSAGE-AREA EQUAL FORTY 

MOVE MSG-IN-1 TO MSG-TEXT 

ELSE MOVE IN-MSG-TEXT-2 TO MSG-1. 
CALL 'PUT' USING IN-MSG-FIL IN-MSG-REC. 
IF STATUS-CODE > ® GO TO ERR-ROUT. 





ERROR -ROUT. 


Figure 4-9. Testing the TEXT-LENGTH Field 
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4.10. IDENTIFYING AUXILIARY DEVICES (AUXILIARY-DEVICE-ID) 


Auxiliary device 
identification 


Obtaining auxiliary device 
number 


Example of use 


COBOL coding 


When an input message is received from an auxiliary device, IMS 
places the number of the auxiliary device in the second byte of 
the AUXILIARY-DEVICE-ID (ZA#IDEV) field, AUX-DEVICE-NO. 
Auxiliary device values range from 1 to 9. The first byte is 
reserved for system use. 


Just as your action program can check the source terminal 
identification, it can also check auxiliary device identification. To 
determine which auxiliary device sent the input message, your 
action program interrogates the AUX-DEVICE-NO field. 


Suppose your action program logic depends upon which auxiliary 
device transmitted a particular input message. If your input 
message came from auxiliary device 1, your program performs 
one routine. If device 2 transmitted the message, your program 
performs another routine. Figure 4-10 shows the procedure 
division coding used to check the number of the auxiliary device 
that sent the input message to your action program. 


AUX -DEV-TEXT. 
IF AUX-DEVICE-NO EQUAL 1 
PERFORM ROUT-A 
ELSE IF AUX-DEVICE-NO EQUAL 2 
PERFORM ROUT-B. 
GO TO ERR-ROUT. 
ROUT-A. 


ROUT-B. 


ERR-ROUT. 





Figure 4-10. Testing the AUX-DEVICE-NO Field in a COBOL Action Program 
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IMA FIELD: AUXILIARY-DEVICE-ID 





BAL coding 


The same test can be performed in a BAL action program by 
using the CLI instruction and branching to the appropriate routine 
to handle the processing of a message from either auxiliary 
device 1 or 2. Figure 4-11 shows this coding for a BAL action 
program. 


16 





ZAHIDEV+1, C'1' 
ROUTA 
ZAHIDEV+1, C'2! 
ROUTB 





Figure 4-11. Testing the AUX-DEVICE-NO Field in a BAL Action Program 
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4.11. INPUT MESSAGE TEXT 


Input message control 
sequences 


Use of DICE sequences 


DICE sequence contents 


Though input message texts vary according to_ individual 
applications, you must consider three important options before 
defining your input message area in your action program: 


> receiving control character sequences; 
b use of the edit table generator to edit input messages; and 


> use of screen format services to receive input on formatted 
screens 


Control Character Sequences 


Two input message control character sequences are used on 
input messages: device independent control expressions (DICE) 
and field control character sequences (FCC). Field control 
characters apply only to universal terminal system devices and 
workstations. 


Device Independent Control Expressions 


ICAM automatically inserts DICE sequences into input messages. 
DICE sequences show the format of input messages. A DICE 
sequence consists of the select character (101), a hexadecimal 
function code, and two hexadecimal coordinates: the first 
representing a row, and the second representing a column on the 
terminal. Function codes position the cursor, control carriage 
return, control forms, control line, feed line, and erase the screen. 
(See Table F-1 for further details.) The following diagram shows 
the relationship between the DICE sequences received in your 
program and their appearance on the screen. 
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EDIT configurator parameter IN most cases you configure the removal of DICE codes from 
input messages by specifying EDIT =tablename or EDIT =c in the 
configurator ACTION section; or by omitting the EDIT parameter. 


Configuring receipt of If you wish to receive DICE sequences on input messages, you 
DICE sequences configure EDIT=NONE, which indicates no input message editing. 


You may want to receive DICE sequences on input in order to: 


obtain cursor positioning control values for an input message 
and use this data in screen positioning output messages; or 


switch a message to another terminal via the SEND function. 


Receiving blanks Configuring EDIT=NONE also means that all blanks entered at the 

terminal, including leading blanks, are received in your input 
igetiay blanks weaved message area. However, in the case of an input message from 
from console input the system console, leading blanks are removed. 


Example of DICE sequence Suppose you receive an input message from a terminal and want 

use to send that message to another terminal; you want that 
message to arrive at the destination terminal in the same screen 
position as when it was entered on input. 


& First, define an area in the first four bytes of your input message 
area to receive the DICE control sequence. In the procedure 
division, move the DICE sequence from the input message area 
to the output message area before moving the destination 
terminal identification and output message text to the output 
message area and issuing the SEND function (Figure 4-12). 
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WORKING-STORAGE SECTION. 
ELEVEN 
LINKAGE SECTION. 


77 


INPUT -MESSAGE -AREA. 


@5 
@5 
05 
05 
@5 
@5 


OUTPUT -MESSAGE-AREA. 


@5 
05 


DICE-SEQ 
TRANS - CODE 
FILLER 
DEST-TERM 
FILLER 

IN- TEXT 


CURSOR - POS 
OUT - TEXT 


PROCEDURE DIVISION 


MOVE -MESSAGE. 
MOVE DEST-TERM TO DESTINATION-TERMINAL-ID. 

SUBTRACT ELEVEN FROM TEXT-LENGTH IN INPUT-MESSAGE-AREA 
GIVING TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
MOVE DICE-SEQ TO CURSOR-POS. 

MOVE IN-TEXT TO OUT-TEXT. 


CALL 





COMP -4 VALUE 11. 


COPY IMA. 
PIC X(4). ~——-————RECEIVE DICE CONTROL SEQUENCES 
PIC X(5). 
PIC X. 
PIC X(4). 
PIC X. 
PIC X(28). 
COPY OMA. 
PIC X(€4). ~—-———— RECEIVE DICE CONTROL SEQUENCES 
PIC X(28). 
USING PROGRAM- INFORMATION - BLOCK 
INPUT -MESSAGE-AREA 
OUTPUT -MESSAGE-AREA. 


"SEND' USING OUTPUT -MESSAGE-AREA. 
IF STATUS-CODE NOT EQUAL @ GO TO ERROR-PROC. 


ERROR -PROC. 


Use of FCC sequences 


in input messages 





Figure 4-12. Receiving DICE Sequence on Input Message 


Field Control Character Sequences 


To receive FCC sequences in your input from a universal terminal 
system terminal or workstation, specify EDIT=NONE or 








FCCEDIT=NO in the configurator ACTION section. Leave five 
bytes in your input message text wherever you expect to receive 
the sequences. You describe the input message text including the 
FCC sequences much the same as you do for DICE sequences. 
Both FCC and DICE sequences can be interspersed in the 
message text instead of just at the beginning. 
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€ For more detailed information about the use of FCC sequences, 
see F.9, UTS 400 programmer reference, UP-8359 (current 
version), and OS/3 hardware and software summary, UP-8203 
(current version). 


Receiving Freeform Input 


Purpose of edit table Let's now consider the use of an edit table (EDIT=tablename) to 

generator edit input messages. You create an edit table by executing an 
offline IMS utility, the edit table generator, and configuring 
EDIT=tablename. This allows the operator to enter input 
messages in free form at the terminal. IMS uses the edit table to 
convert the free-form input message into the format your 
program requires. 


Describing input You describe the input message text in your action program to 

megssage text reflect the formatted input message you want to receive. IMS 
receives free-form input from the terminal, formats and validates 
this input as you specify on edit table parameters, and sends it 
to your program's input message text in the format described 
there. For a description of how to use the edit table generator, 
and a sample program that uses an edit table, see Appendix E. 


AP 1 
CUST-ORD 


CONVERT 


FORMATTED 
OUTPUT 





Receiving Screen Formatted Input 


Defining input Your action program can receive input entered on screen 

message text formats, using screen format services. Your action program 

displays the screen format by issuing a BUILD function. In your 

input message area, you describe all input or input/output fields 

@ entered by the operator. For more detail about receiving screen 
: formatted input, see Section 7. 
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5. Processing Data Files 


5.1. ACCESSING FILES 


Action programs 
access files via 
function calls 


IMS/data management 
interface 


File types supported 


Most IMS applications require access to data files. Your action 
programs exist to process messages that depend on data 
obtained from files. Though your action programs don’t directly 
access data files, they do issue I/O function calls that tell IMS to 
retrieve, insert, update, or delete records. 


When IMS receives a function call from your action program, it 
makes records available for processing. Data management access 
methods, SAM, DAM, ISAM, or MIRAM, perform the functions 
your action program requests. To access IRAM files, you must 
configure them as MIRAM files. 


IMS supports sequential, relative, and indexed files as well as 
defined files that are in indexed organization. Table 5-1 
summarizes the files supported by IMS. 


Table 5-1. Summary of File Types Supported by IMS 








Sequential SAM/dedicated MIRAM 


(tape and disk) 


Retrieve, Append 
(write unblocked output) 


Random DAM/MIRAM Retrieve*, Update, 
Insert, Delete 
Sequential MIRAM Retrieve 
Random ISAM/MIRAM Retrieve*, Update, 
Insert, Delete 
Sequential ISAM/MIRAM Retrieve 
Random ISAM/DAM/ Retrieve*, Update, 
MIRAM Insert, Delete 
Sequential ISAM/DAM/ Retrieve 
MIRAM 


*Both retrieve and retrieve-with-the-intent-to-update can be requested. 
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Random and sequential Your action programs may issue random and sequential I/O 

functions functions to indexed and relative files but only sequential I/O 
functions to sequential files. Table 5-2 lists the file |/O functions 
allowed with each file organization and the CALL function 
parameters. 


Table 5-2. Summary of File 1/O Function Calls 











filename 
record-area 
filename 
record-area 


Sequential 







filename record-area record number@) 




























Relative GET filename position 
(nonindexed) GETUP filename record-area record number [record-number] 
PUT filename record-area [record-number filename 
record-area 
INSERT filename record-area record-number filename 
DELETE filename record-area record-number filename [key-of-ref} 
















GET 
GETUP 
PUT 


filename position 
[key[partial-key-count]] @) 
filename 

record-area 

filename 

filename [key-of-ref]@ 


filename record-area key [key-of-ref[dup-key-ct]K2) 
filename record-area key 
filename record-area 










Indexed 
















INSERT 
DELETE 


filename record-area 
filename record-area 

















filename position [key] 
filename record-area 
filename 


filename record-area key 
filename record-area key 
filename record-area 

filename record-area key 
filename record-area 


Indexed 
(defined file) 








NOTES: 


@ Sequential functions available with MIRAM, not DAM 
@ Record-number required for DAM files 


8B) Optional parameters available for MIRAM only 
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& 5.2. 1/0 FUNCTION CALLS 


Function calls are your program’s means of accessing data on 
files. You can issue an I/O function call in either COBOL or BAL 
action programs; their formats differ slightly. 
The COBOL CALL function statement format is: 

COBOL function call format CALL ‘function' USING filename, param-1,...param-n. 
The BAL CALL function is in the format of a macroinstruction. 
BAL action programs use either the CALL or ZG#CALL 


macroinstruction: 


BAL function call format 1 10 16 





CALL function, (filename, param-1,...param-n) 
ZGHCALL 


where: 


Function call name function 
Is the name of the I/O function requested by your action 


@ program. 


Function call parameters filename 


Is the name of the file on which the function is 
performed. 


param-1,...param-n 
Indicates the record area, record number, key, 
partial-key-count, key-of-reference, duplicate-key-count, 
or position relative to the record being processed. 


Status codes set After processing an |/O function call, IMS sets a status code 

after function calls value in the STATUS-CODE field (COBOL action program) or 
ZA#PSC location (BAL action program) of the program 
information block. The status codes returned by IMS are 
explained in more detail in Table D-1. 


Detailed status code IMS returns detailed status codes after processing certain I/O 

rons functions. These detailed status codes give more description of 
the error that occurred. For detailed status codes and their 
descriptions, see Tables D-2 through D-6 and 3.6. 
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Parameters refer to data 
names (COBOL) or labels 
(BAL) 


Filename 


Record-area 





Function Call Positional Parameters 


Both COBOL and BAL function CALL statements contain 
positional parameters that refer to data names in the data 
division of a COBOL action program or labels of storage locations 
in a BAL action program. Positional parameters include filename, 
record area, record number, key, partial key count, key of 
reference, duplicate key count, and position. 


Filename is a field containing the 7-character name of the file on 
which the specified function is performed. This name _ is 
left-justified and blank-filled. 


In a COBOL action program, the file name can be defined in 
working-storage: 





PIC X(7) VALUE ‘CUSTMST'. 


To call the file, issue a function call using the data name for the 
file: 





CALL ‘GET’ USING IMS-RECORD-AREA IMS-KEY. 


In a BAL action program, the file name can be defined as a 
constant in storage: 


1 10 16 














DC CL7'STATE' 


and called in the macro: 


1 10 16 








CALL GET, , IMS-RECORD - AREA, IMS-KEY) 
Record-area is the area to or from which IMS moves a logical or 
defined record. You define the record area within an O1-level 
item of the linkage section, usually the work area. 


01 WORK - AREA. 
05 PARAMETER-LIST. 
10 IMS - FILENAME PIC X(7). 
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Record area size 


ISAM and DAM 
considerations 


Record-number 
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In a BAL action program, you define the record area in a defined 
storage statement: 


1 10 16 


VO FUNCTION CALL PARAMETERS 





DSECT WORK AREA 





The record area size must be equal to or greater than the largest 
logical record it will contain. If your records are ISAM variable 
length, your record description must begin with a 2-byte binary 
field describing the length of the record. Other file types need a 
4-byte binary field describing length. In a COBOL action program, 
describing MIRAM or SAM variable-length records, the 
description might be: 


02 DATA-RECORD 









ic Xx. 





10 FIXED-PORTION. 
20 MAIN- INFO PIC X¢25). 
26 NR-OF-TRAILERS PIC 99 COMP -4. 


10 VARIABLE - PORTION OCCURS @ TO 10 TIMES 
DEPENDING ON NR-OF-TRAILERS. 
20 TRAILER PIC X(15). 
20 TRAILER-2 PIC X(5). 


The description for an ISAM variable-length record would not 
need the FILLER statement after the record length field. For DAM 
files, the record area should be a multiple of 256 bytes and 
larger than or equal to the record size. 


In a BAL action program, the statement might be: 
1 10 16 


VARLN DS CL4 


Record-number is an 8-byte field containing a right-justified binary 
number that specifies the position of the record relative to the 
beginning of a relative file. The first number is 1. The COBOL 
description of this field might be: 


10 IMS -REC-NUMBER PIC 9(10) USAGE COMP -4. 
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a ne 


A BAL action program might describe the record number as: 


1 10 16 





RECNO DS XL8 


Before issuing function calls containing the record-number 
parameter, move a record number value to this field. 


Key Key contains the value that identifies the record to be retrieved 
from or inserted into a file. You describe it in a COBOL action 
program's linkage section. A record key description in your 
COBOL action program might be: 


10 IMS -KEY PIC X(14). 


In a BAL action program, the equivalent statement might be: 


RECKEY DS CL14 


Again, before issuing function calls containing the key parameter, 
you must place a key value in this field. 


Partial-key-count Partial-key-count is used in the SETL function call for indexed 
MIRAM files when the position parameter is G, K, or H. It is the 
symbolic address of a 4-byte field containing a right-justified 
binary number. This binary number indicates the number of 
leading bytes in the key used to locate the record. 


The partial key count can be defined in the linkage section or the 
working-storage section of a COBOL action program. If defined in 
working storage, it must have a VALUE clause. For example, 





KING-STORAGE SECTION. 
PIC 9(4) USAGE COMP-4 VALUE 3. 





defines your partial key count before you issue the SETL function 
call using STPT as your partial-key-count parameter. 


The following data item has a binary value of 3 referring to the 
first three characters (279) of the specified key 


CALL 'SETL' USING MYFIL POS IMS-KEY 
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The partial key count should be defined in a BAL action program 
using a DC statement: 


1 10 16 





DC X'99000003' 





before being referenced in the macroinstruction: 


1 10 16 





ZGHCALL SETL,(MYFIL,POS,IMS-KEY, 





Key-of-reference Key-of-reference is the symbolic address of a 4-byte field 
containing a right-justified binary number. This binary number 
indicates which key of multiple keys is used for retrieving the 
record. Use the same type working-storage (COBOL) or defined 
storage (BAL) statements as in the partial key count example to 
define the key of reference, and assign a value to it before 
issuing the SETK function call. The value of key-of-reference 
must be between 1 and 5. 


Duplicate-key-count Duplicate-key-count is the symbolic address of a 4-byte field 
@ containing a right-justified binary number. This binary number 
ad indicates the number of the record for retrieval within a duplicate 
key set. The duplicate key count value must be defined before 
you reference it in your I/O function call. See examples of how 

this is done in the previous description of partial-key-count. 


Position Position is a symbolic address of a storage location containing a 
1-byte value. This value designates the position of the file at 
completion of the SETL function. Values are listed in the SETL 
function descriptions. 
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5.3. ACCESSING INDEXED FILES 


ISAM and MIRAM The indexed sequential and multiple indexed random access 

access methods methods (ISAM and MIRAM) process function calls issued by 
your action program to indexed files. With several exceptions, a 
key specification characterizes most file functions issued to 

Only primary key indexed files. Although IMS supports multiple keyed MIRAM files, 

used for updating you must use only the primary key identified in the configurator 
FILE section (PKEY=n parameter) to insert or update records. 
Changes or duplicates of alternate keys are allowed, except for 
primary keys. 


NOTE: 
Configuring MIRAM You must specify MODE=RAN in the FILE section of the 
files for random configuration to access MIRAM files randomly. If a file is 
acces? configured as MODE=SEQ, you can use only the sequential 


functions GET and PUT (5.9). 


5.4. RANDOM FUNCTIONS FOR INDEXED FILES 


Summary of random The random function calls GET, GETUP, PUT, INSERT, and 
functions DELETE: 


> retrieve records with or without updating; 

> write records back to a file; 

> logically or physically delete records; and 

> overwrite an existing record or add a new record to a file. 


For error status codes resulting from the execution of each of the 
random I/O function calls, see Table D-1. 
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e Reading Records Randomly (GET) 


Description The random GET function retrieves the record designated by the 
key value from the named file and places it into the specified 
record area. IMS does not perform the GET function if the 
requested record is currently locked by a different transaction. 
You cannot update a record retrieved by the GET function; use 
GETUP to retrieve a record for updating. 


The COBOL and BAL formats for the random GET function calls 
are: 


COBOL Format 1 (ISAM files) 


COBOL format CALL 'GET' USING filename record-area key. 
for ISAM files 


COBOL Format 2 (MIRAM files) 


COBOL format for CALL 'GET' USING filename record-area key 
MIRAM files [key-of-reference [duplicate-key-count]]. 


BAL Format 1 (ISAM files) 


@ BAL format for CALL GET, (filename, record-area,key) 
ISAM files ZGHCALL 


D> BAL Format 2 (MIRAM files) 


BAL format for nee GET, (filename,record-area,key 
MIRAM files ZGHCALL [,key-of-reference[,duplicate-key-count]]) 


Key-of-reference use For MIRAM files (Format 2), the key-of-reference value indicates 
which key of multiple keys is used for retrieving the record. This 
key level number must coincide with one of the data 
management KEYn_ specifications designated at configuration 
time. 


For example, your configurator FILE section might have KEYn 
designations of KEY1=(6,6), KEY2=(6,0), and KEY3=(5,12). 
(Key 1 starts in position 6 of the file, key 2 starts in position O, 
and key 3 starts in position 12.) Key 2 is configured as the 
primary key (PKEY=2 specifiction), so key 1 and key 3 are 
alternate keys. You want to access the file using key 1, so you 
use the key-of-reference value 1. When the key of reference is 
omitted, IMS uses the primary key, in this case, key 2. 
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WORK ING - STORAGE SECTION. 









77 Two PIC 9 COMP-4 VALUE ‘2'. 
77 THREE PIC 9  COMP-4 VALUE ‘3! 


PROCEDURE DIVISION. 


CALL 'GET' USING FIL-A REC-A_ KEY-A 





PRIMARY KEY OF 
KEY REFERENCE 


299448 
| AAAAAZ | 299448 | 45731 | 
| BBBBB1 | 299448 | 59063 | 
299448 

—— 


=e eee eee” 
KEY2=(6,0) [| KEY3=(5,12) 
KEY 1=(6,6) 





Duplicate-key-count use Also, on function calls to MIRAM files you can specify a 


duplicate-key-count value to indicate which record within a 
duplicate key set to retrieve. 


WORKING-STORAGE SECTION. 





PROCEDURE DIVISION. 


CALL 'GET' USING FIL-A REC-A KEY-A_ ONE 





KEY 1=(6,6) 
STARTS IN LOCATION 6 


AAAAA1 | 299448 
AAAAAZ | 299448 
| BBBBB1 | | 59063 | 
299448 


a 
DUPLICATE 
KEY SET 
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Retrieving logically 
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If you omit this parameter or if it equals 1, IMS retrieves the first 
record within the duplicate key set. If the value is zero or 
exceeds the number of records within the duplicate key set, IMS 
sets status code and detailed status code to 1. 


WORKING-STORAGE SECTION. 
77 DUP -KEY-CT PIC 9 USAGE COMP-4 VALUE '8'. 


299448 | 44813 
AAAAA2 | 299448 | 45731 


BBBBB1 59063 
nd 


DUPLICATE 





THERE !S NO EIGHTH 
DUPLICATE KEY 
SOe 24: 


DETAILED 
STATUS 01 STATUS 
CODE CODE 


(IN HEXADECIMAL) 


KEY SET 





Note that the sequence of records in a duplicate key set changes 
when one of the records in the set is deleted. If the deleted 
record is later restored by online or offline recovery, it is placed 
at the end of the duplicate key set instead of its original position. 


If you configure physical deletion of records (DELETP=YES in the 
FILE section, you can retrieve any logically deleted records on 
MIRAM files as normal data. You must configure physical 
deletion of records when files are multikeyed. 
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Description 


COBOL format 


BAL format 


Updating and deleting 
records 


Function call to 
same file may not 
intervene 


Reading Records for Update (GETUP) 


The GETUP function retrieves the record for updating and 
temporarily locks the requested record from access by other 
transactions. IMS does not perform the GETUP function if the 
requested record is currently locked by a different transaction. As 
with the GET function, IMS uses the key you specify on the 
GETUP function to locate the required record. Unlike the GET 
function, you can access a record for update only by the primary 
key. 


The COBOL and BAL formats for the GETUP function call to all 
indexed files are: 


COBOL Format 


CALL 'GETUP' USING filename record-area key. 


BAL Format 


oe GETUP, (filename, record-area,key) 
ZGHCALL 


To update or delete the record requested, issue a PUT or 
DELETE function call following the GETUP function. Other 
function calls to the same file may not intervene. Otherwise, the 
record must be retrieved again with a GETUP function before a 
PUT or DELETE can be performed. You may, however, issue 
other instructions and function calls to other files between the 
GETUP and PUT or DELETE functions. 


Incorrect Correct 


CALL 'GETUP' USING MYFIL CALL 'GETUP' USING MYFIL 
IMS -REC-AR IMS-REC-AREA MYKEY. 
MOVE CUST-NAME TO NAME-FIELD. 
CALL 'PUT' USING MYFIL 
MOVE CUST-NAME TO NAME-FIELD. IMS -REC-AREA. 
CALL 'PUT' USING MYFIL 
IMS-REC-AREA. 




















UP-9207 





SPERRY UNIVAC OS/3 5-13 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





INDEXED FILES: GETUP FUNCTION 





Key value must 
not be changed 
for ISAM 


Primary key must 
not be changed 
for MIRAM 


Key parameter 
field for ISAM 
and MIRAM 


Retrieving logically 
deleted records 


For ISAM files, you must not change the key value in the record 
area between the GETUP and succeeding PUT or DELETE 
function calls. IMS does not return an error, but you may damage 
your data file. 


For MIRAM files, do not change the value of the primary key in 
the record area between the GETUP and succeeding PUT or 
DELETE function calls. You may, however, change the value of 
alternate keys. 


For ISAM files, do not change the value of the key field used for 
the key parameter between the GETUP and succeeding PUT or 
DELETE function calls. This value may be changed when you use 
MIRAM files. 


@1 WORK-AREA. 
@5 REC-AREA 
Primary key. 1® ACCTNO 
Do not change 10 NAME 
Alternate key 10 ADDRESS 
Key parameter 10 OTHER-DATA 


field. Do not @5 MYKEY 
change for ISAM 


PROCEDURE DIVISION. 

MOVE INPUT-KEY TO MYKEY. 

CALL 'GETUP' USING MYFIL REC-AREA MYKEY. 
MOVE INPUT-NAME TO NAME. 

CALL 'PUT' USING MYFIL REC-AREA. 





If you configure physical deletion of records, you can retrieve any 
logically deleted records on MIRAM files as normal data. 
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Writing Updated Records (PUT) 


Description The random PUT function writes an updated record back to the 
file. It must be preceded by a GETUP function that retrieves the 
record for update. The first byte of nonkey data must not contain 
X'FF’, unless you have configured physical deletion for MIRAM 
files (DELETP=YES). 


Keys not needed No key is required on a PUT function because the key is in the 
specified key location in the record area. If you specify a key 
parameter, IMS returns a status code of 3 and a detailed status 
code of 1. 

The COBOL and BAL formats for the PUT function call are: 
> COBOL Format 


COBOL format CALL ‘'PUT' USING filename record-area. 


> BAL Format 


BAL format ae PUT, (filename,record-area) 
ZGHCALL 
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Deleting Records (DELETE) 


Description The DELETE function deletes a record that was retrieved for 
updating. The DELETE function must be preceded by a GETUP 
function. If other function calls to the same file intervene, you 
must reissue the GETUP function before the record can be 
deleted. 


The COBOL and BAL formats for the DELETE function call are: 
COBOL Format 


COBOL format CALL 'DELETE' USING filename record-area. 


> BAL Format 
BAL forest oe DELETE, (filename,record-area) 
ZGHCALL 


ISAM file logical deletion |The DELETE function for ISAM files is a logical deletion. A logical 
record deletion changes the first byte of nonkey data to X‘FF’ 
before the record is written back to the file. 


BEFORE LOGICAL DELETION 


THIS RECORD 
1S LOGICALLY 
DELETED. 
DELETION FLAG 
OF X'FF’ 





Single-keyed MIRAM files The DELETE function for single-keyed MIRAM files can be a 
logical or a physical deletion. A physical deletion is always 
performed for multikeyed MIRAM files. 


Logical deleticn To logically delete single-keyed MIRAM records, configure 
DELETP=NO or default to this value. The results of this logical 
deletion are the same as for ISAM records on logical deletion 
(e.g., X'FF’ in first byte of nonkey data). 
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Physical deletion 


Results when record is 
flagged for logical 
deletion 


Consideration when 
accessing file from 
non-IMS program 


To physically delete a single-keyed MIRAM record, create the file 
with the data management keyword RCB=YES and configure 
IMS with the DELETP=YES parameter. (DELETP=YES is 
assumed for multikeyed MIRAM.) The DELETE function then 
physically deletes the record from the file. 


IN 
CONFIGURATOR 
FILE SECTION 





Suppose the record you call for deletion is previously flagged as 
logically deleted. If you configure physical deletion, the GETUP 
function retrieves the requested record. If you configure logical 
deletion, the GETUP function returns a record not found status. 


NOTE: 


When IMS logically deletes a record (X‘FF’ in the first byte of 
nonkey data) and you later access the file from a non-IMS 
program, the record will not be recognized as deleted. You must 
check for HIGH-VALUES or X ‘FF’ in the first byte of nonkey data. 
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Adding Records (INSERT) 
Description The INSERT function places a new record into the file or 


COBOL format 


BAL format 


Unique keys 


Removes delete control 
character 


Changing length field 


overwrites a previously deleted record. This function is not 
preceded by a GETUP function. The first byte of nonkey data in 
the record being inserted must not contain a deleted record value 
of X'FF’, unless you have configured physical deletion for MIRAM 
files. The COBOL and BAL formats for the random INSERT 
function calls are: 


> COBOL Format 


CALL 'INSERT' USING filename record-area. 


> BAL Format 


een INSERT, (filename,record-area) 
ZGHCALL 


Indexed files do not require a key parameter in the INSERT 
function. Their keys must be embedded in the record. The key of 
the new record must have a value that is different from any 
already existing in the file. 


CALL 'INSERT' USING FIL-A REC-A. 


KEY OF RECORD 
INSERTED MUST 
BE UNIQUE AND 
} EMBEDDED IN 
RECORD. 





An INSERT function using a previously deleted record slot 
removes the delete control character. You can change the length 
field for variable-length records in MIRAM files, but not in ISAM 
files. 
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Physical delete For MIRAM files, you cannot overwrite a logically deleted record, 
eonsideravon when physical deletion is configured. An attempt to do this 
results in a status code of 1, invalid key. 


DELETP=YES 


SPECIFIED IN 
CONFIGURATOR 
FILE SECTION 


CALL ‘INSERT' USING FIL-A REC-A. 


FIL-A (MIRAM FILE) 
KEY-A 


4097 | DATA 





SLOT FOR INSERTION 

HAS LOGICAL DELETE 

FLAG. IMS RETURNS 

INVALID KEY STATUS STATUS CODE 


1 


(IN HEXADECIMAL) 
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5.5. SEQUENTIAL FUNCTIONS FOR INDEXED FILES 


Summary of sequential Sequential function calls SETK, SETL, GET, and ESETL 


functions 
> set a key of reference for sequential processing; 
> set an indexed file into sequential mode and position it to a 
selected location in the file; 
> retrieve records sequentially; and, 
reset the indexed file from sequential mode to random 
mode. 
For error status codes resulting from the execution of each of the 
sequential I/O function calls, see Table D-1. 
Changing access mode When accessing an indexed file sequentially, your action program 
to sequential must first set the file into sequential mode via the SETL function. 


During this time, the file is accessed exclusively by the 
transaction that sets the mode. Requests by other transactions 
for sequential or random mode functions are queued for later 


@ processing. 


Returning to random Sequential mode exists until your program requests an ESETL 

mode function or until the current action terminates. In either case, the 
indexed file returns to random mode. The file also returns to 
random mode if an error occurs on a SETK or SETL function or 
an invalid request (status code 3) occurs on a GET function. 


CHANGE TO 
SEQUENTIAL 
MODE 
STARTING 
POINT 
YY 


KEY-A 


RETURN TO 
RANDOM MODE 





FIRST GET > 










SECOND GET > 



















KEY-A 







cet O 












cet D 
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Shared file access 


NOTE: 


Shared file access among transactions is done only in the 
random mode. The use of sequential mode by one transaction 
can significantly degrade the response time for other transactions 
accessing the same file. 
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Setting the Key of Reference for Sequential Processing (SETK) 

Description The SETK function establishes the key of reference for 
subsequent indexed file positioning and retrieval. This function is 
used exclusively with multikeyed MIRAM files. 


The COBOL and BAL function call formats for the SETK function 
are: 


COBOL Format 


COBOL format CALL 'SETK' USING filename [key-of-reference]. 


BAL Format 


BAL format oe SETK, (filename[key-of-reference]) 
ZGHCALL 
Key-of-reference use The key-of-reference is the symbolic address of a 4-byte field 


containing a right-justified binary number. This value indicates 
which of the multiple keys to use on the succeeding SETL and 
Omitting key of reference GET functions. If the key-of-reference parameter is omitted, IMS 
@ uses the primary key for the search. 
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FIL-A (MIRAM FILE) 


KEY-A 
(PRIMARY KEY) 





KEY OF REFERENCE 


CONFIGURE: FILE FIL-A FILETYPE=DMRAM 
PKEY=1 
KEY1=(6,0) 





KEY3=(2,80) 


WORKING-STORAGE SECTION. 


77 ~—SOKEY-A PIC 9¢5 COMP -4 VALUE 1 








77 ~~ KEY-C PIC 9(5) COMP -4 VALUE 3. 


PROCEDURE DIVISION. 
PARA-1. 
CALL 'SETK' USING FIL- 





CALL ‘ESETL' USING FIL-A. 








Changing key-of-reference A GET function cannot directly follow a SETK function; you must 
position the file with the SETL function before retrieving records. 
It can be issued many times to change the key of reference. 
Once established, however, the specified key of reference 


remains in effect until another SETK, ESETL, or 
termination. 


Errors on SETK When any error occurs on a SETK function, the file is reset to 
random mode and any file locks in effect are released. For further 
sequential processing, you must issue another SETL and SETK 
function to reestablish the sequential mode and the key of 


reference. 
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Description 


Position values 


Start position 


Changing access position 


COBOL format 


BAL format 


Required and optional 
parameters 


Partial key search 
for MIRAM files 
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Setting Indexed Files from Random to Sequential Mode (SETL) 


The SETL function sets an indexed file into sequential mode and 
logically positions the file as follows: 






Beginning of file 
Greater than or equal to the key supplied 
Equal to key supplied 

Greater than key supplied 


The value of the position parameter determines the logical 
position of the file at completion of the SETL function. Indexed 
files start at position O. You can reissue the SETL function any 
time to change the sequential position of the file. For ISAM files, 
however, you must issue an ESETL function before reissuing 
another SETL function. 


The COBOL and BAL formats for the SETL function call are: 


COBOL Format 
CALL 'SETL' USING filename position [key[partial -key-count]]. 


BAL Format 


ae ! SETL,(filename,position[,key[,partialt -key-count]]) 
ZGHCALL 


You must supply a file name and choose a position value. 
Depending upon the position chosen, you also supply a key 
parameter. 


In addition, the SETL function allows for partial key search of 
indexed MIRAM files. To do this, use the _ optional 
partial-key-count parameter. It is the symbolic address of a 
4-byte field containing a right-justified binary number. This binary 
number indicates the number of leading bytes used from the key 
to locate the record. If you omit the partial-key-count parameter, 
data management uses the entire key to locate the record. 


UP-9207 SPERRY UNIVAC OS/3 





5-24 


IMS ACTION PROGRAMMING IN COBOL AND BAL 





INDEXED FILES: SETL FUNCTION 


POSITION 
FILE-A AT 
VALUE GREATER 
THAN OR EQUAL 
TO KEY-A 


FILE-A (MIRAM FILE) 


KEY-A 


POSITION FILE HERE (> 





USE ONLY 
FIRST 2 
BYTES OF KEY-A 
FOR THE SEARCH 


DEFINED IN 
WORKING STORAGE 
WITH VALUE OF 
63FBI 





Errors on SETL When any error occurs on a SETL function, the file is reset to 
random mode and any file locks in effect are released. For further 
sequential processing, you must issue another SETL function call. 
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Table 5-3 lists the SETL parameter choices for ISAM and 
MIRAM files. 


Table 5-3. SETL Parameter Choices for Indexed Files 


} Parameters 
Partial 
Key | Key 


a Se 
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Description 


Required parameters 


COBOL format 


BAL format 


Errors on sequential 
GET 
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Reading Records Sequentially (GET) 


The sequential GET function retrieves the next logical record in 
sequential order unless the record is marked logically deleted 
(i.e., X’FF’ in the first byte). If the record is marked logically 
deleted, the GET function retrieves the following record. For 
MIRAM files, if DELETP=YES is configured or assumed, data 
management retrieves logically deleted records as normal data. 


Filename and record-area parameters are required on sequential 
GET functions for indexed files. 


The COBOL and BAL formats for the sequential GET function call 
are: 


= COBOL Format 


CALL 'GET' USING filename record-area. 


a BAL Format 


as GET, (filename, record- area) 
ZGHCALL 


When an invalid request error occurs on a sequential GET 
function, after a SETL function, the file is reset to random mode 
and any file locks in effect are released. 
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Setting Indexed Files from Sequential to Random Mode (ESETL) 


Description The ESETL function changes the mode of indexed files from 
sequential to random. If a file is in the sequential mode for a 
transaction and you do not issue an ESETL function before 
termination of the current action, IMS resets the file to random 
mode. The ESETL function always requires a filename parameter. 


The COBOL and BAL formats for the ESETL function call are: 
= COBOL Format 


COBOL format CALL 'ESETL' USING filename. 


r BAL Format 


CALL ESETL, (filename) 


BAL format { 
ZGHCALL 
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RELATIVE FILES 








5.6. ACCESSING RELATIVE FILES 


Configuring MIRAM 
files for random 
access 





The direct and multiple indexed random access methods (DAM 
and MIRAM) process function calls issued by your action 
program to relative files. A record-number parameter 
characterizes most file functions to relative files although record 
numbers are not required on sequential functions. Random and 
sequential functions are supported for MIRAM files but only 
random functions for DAM files. 


NOTE: 


You must specify MODE=RAN in the FILE section of the 
configuration to access MIRAM files randomly. If a file is 
configured as MODE=SEQ, you can use only the sequential 
functions GET and PUT (5.9). 


5.7. RANDOM FUNCTIONS FOR RELATIVE FILES 


Summary of random 
functions 


Preformatting DAM files 


The random function calls GET, GETUP, PUT, INSERT, and 
DELETE: 


retrieve records with or without updating; 





write records back to a file; 
> logically or physically delete records; and, 
> overwrite an existing record or add a new record to a file. 


For error status codes resulting from the execution of each of the 
random I/O functions, see Table D-1. 


You must preformat DAM files offline before their initial use and 
they must contain the maximum number of physical records to 
be referenced online under IMS. 
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® Reading Records Randomly (GET) 


Description The random GET function retrieves the record you request by 
record number and places it into the specified record area. All 
record number fields must be 8 bytes long and binary. You 
cannot update a record retrieved by the GET function; use 
GETUP to retrieve a record for updating. 


If the requested record is currently locked by a _ different 
transaction, IMS does not perform the GET function. 


The COBOL and BAL formats for the random GET function call 
are: 


COBOL Format 


COBOL format CALL ‘GET' USING filename record-area record-number. 


BAL Format 


CALL GET, (filename, record-area,record-number ) 
BAL format 
ZGHCALL 
@ Retrieving logically lf a transaction requests a logically deleted record (X‘FF’ in the 
deleted records first byte), IMS returns an invalid record number status code of 


1. However, if DELETP=YES is configured for a MIRAM file, 
logially deleted records are retrieved, as normal data. 


IMS-REC- 
NUMBER 


THIS RECORD NOT RETREIV- foata. THIS RECORD RETRIEVED 
ED IF DAM FILE OR IF IF MIRAM FILE 

MIRAM FILE AND AND DELETP= YES 
DELETP=NO IS CONFIGURED IS CONFIGURED 


iF NOT RETREIVED, IMS SETS 
INVALID REC-NUMBER STATUS CODE 


STATUS-CODE 


(IN HEXADECIMAL) 
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Description 


COBOL format 


BAL format 


Updating and deleting 
records 


Record number omission 


Requesting logically 
deleted records 


Description 





Reading Records for Update (GETUP) 


The random GETUP function uses a record number to retrieve a 
requested record for updating and temporarily locks that record 
from access by other transactions. IMS does not perform a 
random GETUP function if the requested record is currently 
locked by a different transaction. All record number fields must 
be 8 bytes long and binary. 


The COBOL and BAL formats for the random GETUP function call 
are: 


COBOL Format 


CALL 'GETUP' USING filename record-area record-number. 


» BAL Format 


CALL GET, (filename,record-area,record-number ) 
ZGHCALL 


A GETUP function can be followed by a PUT function to update 
the record, or a DELETE function to mark the record as logically 
deleted or to physically delete it. 


If the record-number parameter is omitted from the PUT or 
DELETE function that follows a GETUP function (MIRAM files 
only), the record field in your program must remain unaltered until 
IMS completes the PUT or DELETE function. 


If the DELETP=YES parameter is configured and you issue a 
GETUP function call for a logically deleted record, IMS returns the 
logically deleted record as normal data. For DAM files, and for 
MIRAM files with DELETP=NO configured, IMS returns an invalid 
record number status of 1. 


Writing Updated Records (PUT) 


The random PUT function is used with the GETUP function to 
write an updated record back to the file. A PUT function must be 
preceded by a GETUP function that retrieves the requested 
record for update. The first byte of data in a record must not 
contain an X‘FF’ unless you have configured physical deletion for 
MIRAM files. 
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The COBOL and BAL formats for the PUT function call are: 
COBOL Format 


COBOL format CALL 'PUT' USING filename record-area [record-number]. 


BAL Format 


BAL Harnat ee PUT, (filename,record-area[,record-number ]) 
ZGHCALL 


Placement of PUT function A record-number parameter is required on the PUT function for 
DAM files, but is optional for MIRAM relative files. When you 
omit record-number for MIRAM files, no function call for the 
same file may be between the GETUP and PUT function. 





Suen 


GIVEN: IMS-REC-NUMBER 


IMS-REC- 
NUMBER 


RETRIEVE THIS RECORD; 
UPDATE IT; AND 
WRITE IT BACK 

TO THE FILE. 
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DAM files 


MIRAM files 


Placement of DELETE 
function 


COBOL format 


BAL format 


Logical deletion 





Deleting Records (DELETE) 


The DELETE function for DAM files logically deletes a record that 
was retrieved for updating. 


For MIRAM files, this function physically deletes a record if the 
file was created with the data management keyword RCB=YES 
and configured with the DELETP=YES parameter. For MIRAM 
files configured with DELETP=NO, the deletion is logical. 


For an effective logical or physical deletion, this function must be 
immediately preceded by a GETUP function. If other functions 
intervene, the GETUP function must be reissued before the record 
can be deleted. 

The COBOL and BAL formats for the DELETE function call are: 

> COBOL Format 


CALL ‘DELETE' USING filename record-area [record-number]. 


> BAL Format 


ale PUT, (filename, record-area[,record-number ]) 
ZGHCALL 


You must supply a record-number parameter on the DELETE 
function for DAM files; it is optional for MIRAM files. 


The logical DELETE function changes the first byte of data in a 
record retrieved for update to X‘FF’ before the record is written 
to the file. 
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CALL 'GETUP' USING FIL-A 
CALL 'DELETE' USING FIL-A REC-A. a AEGORD WUMIGER 
NOT REQUIRED 


BEFORE LOGICAL DELETION oor 


AFTER LOGICAL DELETION 


DATA........DATA 


THIS RECORD IS 
LOGICALLY DELETED. 
DELETION FLAG 

OF X'FF’. 





Physical deletion On the other hand, a physical DELETE actually removes the 
record from the file. 


SPECIFIED 

IN 
CONFIGURATOR 
FILE SECTION 


CALL 'GETUP' USING FIL-A REC-A IMS-REC-NUMBER. 
CALL 'DELETE' USING FIL-A REC-A. 


BEFORE PHYSICAL DELETION 





NOTE: 
& Consideration when When IMS logically deletes a record (X‘FF’ in the first byte) and 
accessing file from you later access the file from a non-IMS program, the record will 


non-IMS program 


not be recognized as deleted. You must check for HIGH-VALUES 
or X‘FF’ in the first byte. 
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Description 


Previously deleted record 
slots 


COBOL format 


BAL format 


Assigning relative record 
numbers 


MIRAM file extension 


Adding Records (INSERT) 


The INSERT function places a new record into the file or 
overwrites a previously deleted record. This function is not 
preceded by a GETUP function. The first byte of data in the 
record being inserted must not contain a deleted record value of 
x EFS 


An INSERT function using a previously deleted record slot 
removes the delete control character. You can change the record 
length field for variable-length records in MIRAM files only. The 
INSERT function for MIRAM files can also overwrite nondeleted 
records. 


The COBOL and BAL formats for the INSERT function call are: 
> COBOL Format 


CALL 'INSERT' USING filename record-area record-number. 


> BAL Format 


eee DELETE, (filename,record-area[,record-number ]) 
ZGHCALL 


INSERT functions issued to a relative file must supply a 
record-number parameter. If you configure MIRAM files with 
RCB=NO, any record you add to a relative file must be assigned 
a relative record number one higher than the last record in the 
file. This prevents the occurrence of erroneous data between the 
last record and the new inserted record. You may insert records 
within or beyond the limits of nonindexed MIRAM files; file 
extension is permitted. 

















UP-9207 SPERRY UNIVAC OS/3 5-35 


IMS ACTION PROGRAMMING IN COBOL AND BAL 








RELATIVE FILES: INSERT FUNCTION 





CALL 'INSERT' USING FIL-A REC-A 
GIVEN: REC-NO = 3 





CALL ‘INSERT' USING FIL-A REC- 
GIVEN: REC-NO = 6 





INSERT IMS-REC- 
OVERWRITES NUMBER 
A PREVIOUSLY 
DELETED RECORD. 


INSERT TO 
EXTEND FILE 
RECORD NO. 
ONE HIGHER 
THAN LAST 
RECORD NO. 
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5.8. SEQUENTIAL FUNCTIONS FOR RELATIVE FILES 


Summary of sequential 
functions 


Setting access mode 


Returning to random mode 


Shared file access 


Sequential function calls SETL, GET, and ESETL: 


> set a nonindexed MIRAM file into sequential mode and 
position it to a selected location in the file; 


retrieve records sequentially; and 
> reset the file from sequential mode to random mode. 


Sequential functions cannot be processed by the direct access 
method (DAM). 


For error status codes resulting from the execution of each of the 
sequential |/O functions, see Table D-1. 


When accessing a relative file sequentially, action programs must 
first set the file into sequential mode via the SETL function. 
During this time, files are accessed exclusively by the transaction 
that set the mode. Requests by other transactions for sequential 
or random mode functions are queued for later processing. 


Sequential mode exists until your program requests an ESETL 
function or until the current action terminates. In either case, the 
indexed file returns to random mode. 


NOTE: 


Shared file access among transactions is done only in the 
random mode. The use of sequential mode by one transaction 
can significantly degrade the response time for other transactions 
accessing the same file. 
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Description 


Position values 


Starting position 


COBOL format 


BAL format 


Required and optional 
parameters 


Record-number required 
for G, K, and H 





Setting Relative Files from Random to Sequential Mode (SETL) 


The SETL function sets a relative file into sequential mode and 
logically positions the file as follows: 






Beginning of file 
Greater than or equal to the record number supplied 
Equal to record number supplied 

Greater than record number supplied 


The value of the position parameter determines the logical 
position of the file at completion of the SETL function. Relative 
files start at position 1. You can reissue the SETL function any 
time you wish to change the sequential position of the file. 


The COBOL and BAL formats for the SETL function call are: 


COBOL Format 
CALL 'SETL' USING filename position[record-number ]. 
BAL Format: 


CALL | INSERT, (f ilename,record-area,record-number ) 
ZGHCALL 


You must supply a file name and choose a position value on the 
SETL function for relative files. The record-number parameter is 
not used with the B position value. When G, K, or H is specified 
for position, record-number must be specified. 
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CALL ‘SETL' USING FIL-A IMS-REC-NUMBER. 
GIVEN: IMS-REC-NUMBER has value of 3. 


IMS-REC- 
NUMBER 


IMS POINTS HERE 
AFTER THE 
SETL FUNCTION. 


“If record number 3 was logically deleted, 
IMS still points to record number 3 after the 
SETL function; however, on the next GET 
function IMS retrieves the following record. 





Errors on SETL When any error occurs on a SETL function, the file is reset to é 
random mode and any file locks in effect are released. For further 
sequential processing, you must issue another SETL function call. 











e 
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Description 


COBOL format 


BAL format 


Required parameters 


Errors on sequential 
GET 





Reading Records Sequentially (GET) 


The sequential GET function retrieves the next logical record in 
sequential order unless the record is marked logically deleted 
(i.e., X‘FF’ in the first byte). If the record is marked logically 
deleted, the GET function retrieves the following record. If 
DELETP=YES is configured, IMS retrieves logically deleted 
records as normal data. 


The COBOL and BAL formats for the sequential GET function call 
are: 


COBOL Format 


CALL 'GET' USING filename record-area. 


BAL Format 


CALL } SETL,(filename,position [,record-number ]) 
ZGHCALL 


Filename and record-area parameters are required. 


When an invalid request error occurs on a _ sequential GET 
function, the file is reset to random mode and any file locks in 
effect are released. 
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Setting Files from Sequential to Random Mode (ESETL) 
Description The ESETL function changes the mode of relative files from 
sequential to random. If a file is in the sequential mode for a 
transaction and you do not issue an ESETL function before 
termination of the current action, IMS resets the file to random 
mode. The ESETL function always requires a filename parameter. 
The COBOL and BAL formats for the ESETL function call are: 
> COBOL Format 


COBOL format CALL 'ESETL' USING filename. 


> BAL Format 


BAL format CALL ESETL, (filename) 
{ ZGHCALL 
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SEQUENTIAL FILES 








5.9. ACCESSING SEQUENTIAL DISK AND TAPE FILES 


Sequential files are The sequential and multiple indexed random access methods 
SAM or MIRAM (SAM and MIRAM) process function calls issued by your action 
Sequential MIRAM files program to sequential disk or magnetic tape files. A sequential 
configured as MODE SEQ. MIRAM disk file is defined in the configurator FILE section as 


MODE=SEQ. 
Same file can’t be used Only two functions, GET and PUT, are issued to sequential files. 
for input and output You can't use the same SAM or the same sequential MIRAM file 


for both input and output. (These files are defined individually in 
the configurator FILE section as input files or output files.) Input 
files may only be accessed by the sequential GET function. For 
output files, only the sequential PUT function is used. 


CONFIGURATION: 


FILE YUCK FILETYPE=DMRAM OUTPUT=NO MOD=SEQ € 
FILE ‘€1L-8 FILETYPE=DMRAM OUTPUT=YES MOD=SEQ og ollie 


ACTION PROGRAM 


CALL 'GET' USING | 


CALL ‘PUT! USING FIL 





For error status codes resulting from the execution of each of the 
following sequential 1/O functions, see Table D-1. 
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Reading Records (GET) 

Description The sequential GET function retrieves the next logical record in 
sequential order. Every record in the file is accessible regardless 
of contents. The first record of a sequential file retrieved in an 
IMS session is always the first record of the file. 


The COBOL and BAL formats for the sequential GET function call 
are: 


> COBOL Format 


COBOL format CALL 'GET' USING filename, record-area. 


> BAL Format 


BAL format CALL } GET, (filename,record- area) 
ZGHCALL 
Required parameters Filename and record-area parameters are required on the GET 


function. 
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Writing Records (PUT) 


Description The sequential PUT function writes fixed- or variable-length 
logical records to sequential files on tape or disk. Filename and 


Hequiied parameter record-area parameters are always required on this function. 


MIRAM file extension When writing to a MIRAM sequential file the records are 
appended to the end of the file, thus extending it. If you plan to 
write a new file, use the INIT parameter on the LFD statement for 
this file. 


The COBOL and BAL formats for the sequential PUT function call 
are: 


COBOL Format 
COBOL format CALL ‘PUT' USING filename record-area. 
> BAL Format 


Gar ineior CALL PUT, (filename,record- area) 
ZGHCALL 
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Defined record management 
accesses defined files 


Random and sequential 
functions 


Action can access 
one defined file 


Accessing defined and 
conventional files 


Defined record management services requests from action 
programs to retrieve and update the records of defined files. An 
action program can call upon the random access functions GET, 
GETUP, PUT, DELETE, and INSERT and also the sequential 
access functions SETL, GET, and ESETL. In response, IMS places 
defined records into (and takes them from) the record area 
named in the I/O function call. 


A transaction can access only one defined file during a given 
action — the file that was allocated before the beginning of the 
action. One action of a transaction can select a defined file not 
allocated to it and designate that the selected file be allocated to 
the succeeding action. (See the description of the 
DEFINED-FILE-NAME field in 3.13.) 


During a given action, a transaction can access only one defined 
file but can also access ISAM, SAM, DAM, or MIRAM 
conventional files if they are not referenced by the defined file. 
Access standard files by using the I/O function call formats 
pertaining to them. 
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5.11. CONSTRUCTING FUNCTION CALLS TO DEFINED FILES 
Certain rules apply to defined files and to the parameters 
accompanying the function calls for them. 
Function Call Positional Parameters 


|/O function calls to IMS defined record management use 
filename, position, key, and record-area parameters. 


Filename Filename is a data name (COBOL) or storage location (BAL) that 
contains the 7-byte defined file name or subfile name assigned to 
this action. 

Position Position is a data name or storage location containing the value 


B, G, or H that determines which defined record is returned by 
the first execution of the GET call following the SETL function 


call. 

Key Key is a data name or storage location that contains the identifier 
of a defined record. An identifier consists of one or more 
segments. 

Single identifier Generally, action programs access a defined record via a single 
identifier. 


CALL 'GET’ USING FIL-D REC- 


REC-TEXT 


DEFINED RECORD 


SINGLE IDENTIFIER 
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Multiple-segment identifier 


There are instances when your program needs to access a 





defined record that contains an identifier with multiple segments. 


A segment must be delimited by an end-of-segment character 
(3D,.), unless the segment contains the maximum number of 
characters defined for it, in which case this character is optional. 
Every segment must contain at least one character. 


The entire identifier must be delimited by an _ end-of-identifier 
character (3E,¢). The ignore character (3F,s.) can appear any 
number of times within the identifier and is always ignored. It is 
used for editing input messages that contain characters not 
needed by your action program. 


SEG-1 





t SEG-2 2 SEG-3 t 


X°3D' X'3D' X'3E’ 
END-OF- END-OF- END-OF- 
SEGMENT SEGMENT IDENTIFIER 





MULTIPLE-SEGMENT IDENTIFIER 
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COBOL example of 
multiple-segment identifier 


BAL example of 
multiple-segment identifier 


Record-area 
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When this happens, define the identifier with all its segments and 
separators in your action program linkage section. Define your 
key (identifier) as a group item in COBOL followed by the 
segments and separators as follows: 


@1 MYKEY. 
@5 SEG-1 PIC XXX. 
@5 SEP-1 PIC X. 
@5 SEG-2 PIC XXX. 
@5 SEP-2 PIC X. 
@5 SEG-3 PIC XXX. 
@5 SEP-3 PIC X. 


Before issuing a function call using the key value, move the 
identifier segment values to SEG-1, SEG-2, and SEG-3, and the 
values ‘3D’, ‘3D’, and ‘3E’ to SEP-1, SEP-2, and SEP-3. 


To define an identifier with multiple segments in a BAL action 
program, use define storage and define constant statements. 


1 10 16 








MYKEY DS CL12 
ORG 
SEG-1 DS CL3 
SEP -1 DS XL1 
SEG-2 DS CL3 
SEP-2 DS XL 1 
SEG-3 DS CL3 
SEP -3 DS XL1 


Record-area is a data name or storage location that designates 
the area into which a defined record is moved by IMS on an 
input function, or from which a defined record is passed to IMS 
on an output function call. This area must be big enough to 
contain the entire defined record, including item status bytes. 
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5.12. PROCESSING DEFINED RECORDS 


Determining record type 


Choosing record type 


In response to a function call, IMS uses the TYPE statement of 
the data definition to determine the type of defined record 
involved in the call. IMS returns the record type to the action 
program in the program’ information block’s DETAILED- 
STATUS-CODE field (ZG#PDSC) redefined in COBOL as the 
RECORD-TYPE field. IMS returns the requested record type in the 
DELIVERED-RECORD-TYPE portion of the RECORD-TYPE field 
(byte 2 of the ZA#PDSC in the BAL program information block). 


COBOL 


DET AILED-STATUS-CODE 


PREDICTED RECORD-TYPE | DELIVERED-RECORD- TYPE 


REDEFINED AS RECORD-TYPE 


BAL 


ZA=PDSC (DETAILED STATUS CODE) 


BYTE 1 BYTE 2 
(PREDICTED-RECORD-T YPE) |(DELIVERED-RECORD- TYPE) 


Handling Record Types 





Before issuing any random GET, GETUP, or INSERT function call, 
the action program can indicate to IMS the record type it expects 
to receive by placing the desired record type in the 
PREDICTED-RECORD-TYPE byte of the RECORD-TYPE field (byte 
1 of the ZA#PDSC). If IMS finds a value other than zero, it 
verifies the prediction before carrying out the retrieval or 
insertion. 
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LL 'GET' USING FIL-D REC-D MYKEY. 





SEARCH PLACE VALUE 
FOR RECORD IN 
TYPE ‘A’ DELIVERED- 
IN FIL-D RECORD- 
FILE TYPE 


A PREDICTED- 
RECORD- 


RETRIEVE 


RECORD TYPE A FOUND 
ZERO FILL 
PREDICTED- 
RECORD- 
TYPE 


D PREDICTED- A cewivereo- 
RECORD- RECORD- 
TYPE TYPE 





Predicted record not found \f the predicted type is not correct, IMS does not move the 
requested record; instead, it returns a status code of 1 to the 
calling program. 


CALL 'GET' USING FIL-D REC-D MYKEY. 


SEARCH FOR 
RECORD TYPE 
‘A’ IN 
FIL-D 
FILE 


DO NOT 
RETRIEVE 
RECORD 


STATUS-CODE 
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Predicted record found 


Skipping to another 
record type 


If the predicted type is correct, IMS performs the function and 
the PREDICTED-RECORD-TYPE byte reverts to zero. The action 
program, therefore, can use the PREDICTED- RECORD-TYPE byte 
before the request to prevent an unexpected type of defined 
record from being moved to (or from) the record area. If the 
defined file contains more than one type of defined record, you 
are strongly advised to use this feature. This assures that further 
processing applies the correct defined record definition. 


When you issue the sequential function calls SETL and GET, IMS 
returns the record type of the next sequential record to the 
PREDICTED-RECORD-TYPE byte in the program information block. 
If the delivered record type is the parent of the predicted record 
type and you wish to skip over the current record type to the 
next record type, you can change the contents of the predicted 
record byte in your action program to equal the 
DELIVERED-RECORD-TYPE byte. The result is that IMS skips all 
sets subordinate to the current delivered record type. When one 
or more records in a set have already been delivered, you cannot 
change the PREDICTED-RECORD-TYPE byte to skip over the 
remaining records of that set. 
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SEQUENTIAL CALLS TO DEFINED FILES 


DEFINED FILE 


PREDICTED RECORD-TYPE | DELIVERED RECORD-TYPE PARENT-REC-A 
CHILO-REC-1B 


CHILD-REC-2B 


'  CHILD-REC-3B 


CHILD-REC-4B 


CALL ‘SETL USING FIL-D B. 

MOVE 'A' TO PREDICTED-RECORD-TYPE. 

CALL 'GET' FIL-D MYKEY. CHILD-REC-5B 
IF AMT EQUAL 5000 AND PREDICTED-RECORD-TYPE 


PARENT-REC-C 
NOT EQUAL DELIVERED-RECORD-TYPE 


CHILD-REC-1D 
CHILD-REC-2D 
ELSE GO TO NEXT-ROUT. 
CHILD-REC-3D 
CHILD-REC-4D 
THIS SKIPS FROM SET-A TO SET-C 
CHILD-REC-5D 
CHILD-REC-6D 
PARENT-REC-E 
CHILD-REC- 1F 
CHILD-REC-2F 
CHILD-REC-3F 


CHILD-REC-4F 
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Testing validity of defined 
record fields 


Successful delivery 


When item does not 
exist 


Item inconsistent with 
data definition 


Updates rolled back 





Interpreting Status Byte Returns 


When IMS responds to a GET, GETUP, PUT, or INSERT function 
request, it also places a value in the status byte associated with 
each item of the defined record. (Status bytes are allocated by 
the data definition processor and have data names in the format 
S-item-name. For sample data definition processor output listings 
showing status bytes, see the IMS data definition and UNIQUE 
user guide, UP-9209 (current version).) You can test these values 
(in| COBOL programs for _ fixed-length records but not 
variable-length records) to check the validity of individual items in 
the defined record. 


IMS returns the value X‘80’ in the status byte for all functions to 
indicate that the item was successfully delivered. 


For GET and GETUP functions, IMS returns a value of X‘40’ to 
indicate that the item cannot be retrieved because it is null 
(nonexistent). Null items contain blanks if alphanumeric, zeros if 
numeric. If IMS returns X‘40’ for one or more items along with a 
value of zero in the status code, it means a supplement cannot 
be found via the value in the pointer item. If returned along with 
a value of 1 in the status code, it means the key parameter 
points to a nonexistent primary part. See Table D-2 for detailed 
status codes when the status code is 1. 


For PUT and INSERT functions, IMS returns a value of X‘20’ in 
the item status byte, along with a value of 5 in the status code 
to indicate that the item being changed or added does not 
conform to conditions specified in the data definition. This error 
can be caused by any of the following: 


> The new item value does not meet VALUE statement 
conditions 


> The new item value is inconsistent with the PICTURE clause 
in the data division 


> A change was not permitted for this item (PUT only) 


> No new value was entered for a MUST ADD item (INSERT 
only) 


If an error occurs while IMS is accessing a file, before returning 
control to your action program, IMS _ changes _ the 
LOCK-ROLLBACK-INDICATOR in the program information block to 
‘O’. This causes a rollback of any updates since the last rollback 
point. 
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Table 5-4 shows status byte returns and status codes for the 
GET, GETUP, PUT, and INSERT function calls to defined files. 


Table 5-4. Status Byte Returns for Defined File Functions 





Item successfully delivered 







Supplement can't be found using 
specified pointer 






Key points to nonexistent primary part 









Incorrect VALUE statement 
a Inconsistent PIC clause 
a Change not permitted 


r] Value missing for a 
MUST ADD item. 
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5.13. RANDOM FUNCTIONS FOR DEFINED FILES 


Summary of random 
functions 


Description 


COBOL format 


BAL format 


Description 


COBOL format 


BAL format 


1/O function calls to access defined files randomly are the GET, 
GETUP, PUT, DELETE, and INSERT. During random access to 
defined files, IMS locks logical records involved in the GETUP and 
INSERT functions. For error status codes resulting from the 
execution of each of the following random |/O function calls, see 
Table D-1. 

Reading Defined Records Randomly (GET) 

Using a key parameter, the GET function retrieves a record from 
the named file and places the record into the record area of your 


action program. You cannot update or delete a record retrieved 
by a GET function. 


The COBOL and BAL formats for the GET function call are: 
> COBOL Format 


CALL 'GET' USING filename record-area key. 


> BAL Format 

oe GET, (filename, record-area,key) 

ZGHCALL 
Reading Defined Records for Update (GETUP) 
Using a key parameter, the GETUP function retrieves a record for 
update from the named file and places the record into the record 
area of your action program. A GETUP is followed by a PUT or 
DELETE function. No other function calls to the defined file can 
intervene. 
The COBOL and BAL formats for the GETUP function call are: 
> COBOL Format 


CALL 'GETUP' USING filename record-area key. 


> BAL Format 


ate GETUP, (filename,record-area,key) 
ZGHCALL 
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Writing Defined Records (PUT) 

Description The PUT function writes a record that was retrieved for update 
back to the file. For the record to be effectively updated, the 
PUT function must immediately follow the GETUP function. The 
COBOL and BAL formats for the PUT function call are: 
COBOL Format 


COBOL format CALL ‘PUT! USING filename record-area. 


> BAL Format 


BAL format CALL PUT, (filename, record- area) 
ZGHCALL 


Deleting Defined Records (DELETE) 

Description The DELETE function logically deletes a record that was retrieved 
for update. The DELETE function must immediately follow the 
GETUP function to effectively delete the record. COBOL and BAL 
formats for the DELETE function call follow. 
> COBOL Format 


COBOL format CALL 'DELETE' USING filename record-area. 


> BAL Format 


BAL format CALL } DELETE, (filename,record-area) 
ZGHCALL 


Adding Defined Records (INSERT) 

Description The INSERT function enters a new record into a file. The 
identifier value in the key parameter must not already exist in the 
file. COBOL and BAL formats for the INSERT function call follow. 
> COBOL Format 

COBOL format CALL 'INSERT' USING filename record-area key. 


> BAL Format 


BAL format eee INSERT, (filename,record-area,key) 
ZGHCALL 
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5.14. SEQUENTIAL FUNCTIONS FOR DEFINED FILES 


Summary of 1/O function calls to access defined files sequentially include the 

sequential functions SETL, sequential GET, and ESETL function calls. For error status 
codes resulting from the execution of each of the following 
sequential function calls, see Table D-1. 


Setting Defined Files from Random to Sequential Mode (SETL) 
Description The SETL function sets a defined file into the sequential mode 
and logically positions the file. The position parameter is a data 


name or storage location that contains one of the following 
values: 


Position values 






Beginning of file 
Greater than or equal to key 
Greater than key 


The COBOL and BAL formats for the SETL function call are: 


> COBOL Format 


COBOL format CALL 'SETL' USING filename position [key]. 


> BAL Format 


BAL format CALL SETL,(filename,position[,key]) 
ZGHCALL 
When the value of the position parameter is B, the key parameter 
is omitted. The SETL function always returns successful 
completion (status code of 0). 


Reading Defined Files Sequentially (GET) 


Description The GET function retrieves the next defined record in the file in 
sequential order. 
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The COBOL and BAL formats for the sequential GET function are: 
COBOL Format 


COBOL format CALL 'GET' USING filename record-area. 


BAL Format 


BAL format ia GET, (filename,record-area) 
ZGHCALL 
Status code O lf IMS returns a status code of O (detail cycle), IMS returns a 


new defined record to your action program. The 
DELIVERED-RECORD-TYPE identifies the record type. 


Status code 2 A status code of 2 (total cycle) means that there are no more 
records in the current set. IMS returns no new defined record. 
The detailed status code (RECORD-TYPE) indicates the record 
type of the completed set. A status code of 2 with a detailed 
status code of O indicates end of all data; there are no more sets 
in this defined file. 


DETAILED 
STATUS-CODE STATUS-CODE 





Empty record set After IMS delivers a detail record, it also delivers all subordinate 
records in response to subsequent GET function calls. When a 
set of subordinate records is empty, the response to the GET 
function that requests the first record of the set is a status code 
of 2 and a detailed status code (DELIVERED-RECORD-TYPE) equal 
to the record type of the empty set. 


Selecting record areas Your action program selects the appropriate record area by 
interrogating the value in the first byte of the 
DET AILED-ST ATUS-CODE (PREDIC TED-RECORD-TYPE byte) 
returned by the preceding GET or SETL function. 
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CALL 'SETL' USING FIL-A B. 


(RECORD TYPE) 
STATUS-CODE DETAILED-STATUS-CODE 


PREDICTED- DELIVERED- 
RECORD- RECORD- 
TYPE TYPE 
SUCCESSFUL 
SETL 
FUNCTION 


IF PREDICTED-RECORD-TYPE EQUALS ‘A! 
CALL 'GET' USING FIL-A REC-A 
ELSE 
CALL 'GET' USING FIL-A REC-B. 





Setting Defined Files from Sequential to Random Mode (ESETL) 


Description The ESETL function changes the mode of a defined file from 
sequential to random. If a file is in the sequential mode and an 
ESETL function is not performed before termination of the current 
action, IMS changes the file to random mode at action 
termination. COBOL and BAL formats for the ESETL function call 
follow. 


COBOL format > COBOL Format 


CALL ‘ESETL' USING filename. 


BAL format > BAL Format 


CALL ESETL, (filename) 
ZGHCALL 
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5.15. UNLOCKING RECORDS (UNLOCK) 


Description 


COBOL format 


BAL format 


Applies to lock-for- 
update and lock-for- 
transaction 


Lock release example 


UNLOCK for ISAM files 


UNLOCK for DAM files 


The UNLOCK function releases record locks not released as a 
result of normal transaction termination or file updating. It also 
makes available for processing, ISAM and MIRAM files held for a 
transaction pending an update. 


The COBOL and BAL formats for the UNLOCK function are: 
COBOL Format 


CALL 'UNLOCK' USING filename. 


> BAL Format 


ee [eee 
ZGHCALL 


The UNLOCK function applies to both the lock-for-update and 
lock-for-transaction imposed on DAM, MIRAM, or ISAM files. 
When you configure either type lock for these files and an update 
of a record is currently pending for a transaction, the UNLOCK 
function aborts the update by releasing the record lock. The 
following lines of COBOL code demonstrate: 


CALL 'GETUP' USING MYFIL IMS-REC-AREA MYKEY. 
MOVE CUST-NAME TO NAME-FIELD. 


KKEKKKKKKEKKEKKKEKEKKKKKKEKREEKEKEKKKEKKKKKKKKKKKKKKKEK 


* UPDATE PENDING / AWAITING PUT OR DELETE * 


KEKKEKREKEKRKEKREKKKEKEKKEKKEKEKEKKEKRKKKKEKEEKKEKKKKKKKKK 


CALL 'UNLOCK' USING MYFIL. 


Releases Lock on MYFIL 


For ISAM files, the UNLOCK function makes the file, as well as 
the individual record, accessible for processing requests from 
other transactions. For DAM files, the UNLOCK function unlocks 
only the individual record. The rest of the file remains accessible 
to other transactions. 
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5.16. FILE PROCESSING CONSIDERATIONS 


Files opened at 
start-up 


Closing and reopening 
files from master 
terminal 


Files defined in 
configurator FILE 
sections 


IMS allocates I/O areas 


Opening and Closing Files 


At start-up time, IMS opens all the files you configure and at 
shutdown time, IMS closes them. You must assign each file in 
the job control stream at start-up. You can close and reopen files 
from the master terminal using the master terminal commands, 
ZZCLS and ZZOPN. When IMS receives these commands, it 
issues calls to data management to perform close and reopen 
functions. You cannot open and close files from your action 
program. For a description of ZZCLS and ZZOPN, see the 
information management system (IMS) terminal users guide, 
UP-9208 (current version). 


Identifying Files to IMS 


Describe each of your data files in a FILE section of the IMS 
configuration. Each file you configure has a single file descriptor 
entry in the file control table. IMS uses this table to reference 
files that you access and to queue requests to each file while 
servicing each request. 


Dynamic Allocation of I/O Areas 


In a normal programming environment, you would allocate I/O 
areas to receive data from files and to contain changes sent back 
to files. In multithread IMS these I/O areas are preallocated. And, 
in single-thread IMS they are allocated when required. No more 
than one I/O area is allocated to a file at a given time. Once 
allocated, an I/O area can be used to support multiple file 
functions for a number of different transactions. When no 
function calls to a file are outstanding, IMS releases the I/O area 
to main storage management. 


File Sharing 


More than one transaction can share access to a file. Locking 
procedures for ISAM and MIRAM file updates make it more 
efficient to program more than one function call in one action 
(e.g., GETUP and its corresponding function call, PUT or DELETE, 
in the same action). 
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Single action updates The lock on a record being updated can be held from one action 
to another. However, another GETUP must be issued. It is, 
therefore, more efficient to update ISAM or MIRAM files in a 
single action. 


Work and Record Area Considerations 


If your DAM file resides on a fixed-sector disk (for example, a 
SPERRY UNIVAC 8416 or 8418 Disk Subsystem), OS/3 data 
management requires that the length of the I/O area be some 
multiple of 256 bytes and half-word aligned. To achieve device 
independence across disk subsysyems, so that your program can 
access a DAM file on any disk used under OS/3, the same is 
true - |/O areas should be multiples of 256 bytes in length. 


Record area size To ensure device independence in a BAL or COBOL action 
program that accesses DAM files, you should ensure that the 
record-area parameter of any IMS function call (GET, GETUP, 
PUT, DELETE, or INSERT) refers to an area whose reserved 
length is some multiple of 256 bytes on a half-word boundary. 


Other sizing considerations There are other considerations (such as record or block length, 
& and the track capacity of the disk subsystem in use) to keep in 
mind in establishing work-area and record-area lengths for your 
action programs. For further details, refer to the current versions 
of the OS/3 data management user guide, UP-8068, or 
consolidated data management macroinstructions user 
guide/programmer reference, UP-8826. 


Test Mode Effects on File I/O 


Simulating file changes When you enter a ZZTMD terminal command to place that 
terminal in the test mode, any request to IMS to change the 
contents of a file are only simulated. No update, delete, or insert 
functions are performed. Control returns to the requesting 
transaction with a successful completion status code. 


Using test mode and You can put a terminal in the test mode after completing a 
nOMMEL OTe. transaction; i.e., when not in an interactive mode. To revert to 
normal mode, use the ZZNRM terminal command. Test mode is 
used to train new terminal operators to handle update 
transactions. All terminal entries made by the operator are the 
same in test mode as in the normal mode except that no file 
modifications actually occur. Test mode also is useful in testing 
newly written or modified action programs that perform file 
& modifications. For more details about the ZZTMD and ZZNRM 
terminal commands, see the information management system 
(IMS) terminal users guide, UP-9208 (current version). 
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FILE PROCESSING CONSIDERATIONS 


Using common storage 
area files 


Accessing CSA files 


Invalid function calls to 
CSA files 


Updating CSA files 





Common Storage Area Files 


You can increase file processing efficiency by making frequently 
accessed ISAM or MIRAM files resident in a special common 
storage area (CSA). This feature is especially useful for 
maintaining vital information used by many action programs. You 
must have adequate main storage to use this feature. 


CONFIGURATION 


FILE MYFILE FILETYPE=ISAM 


MAIN STORAGE 


COMMON 
STORAGE 
AREA 





You can access a common storage area file only in random 
mode. You use GET, GETUP, and PUT function calls the same 
way as for any ISAM or MIRAM file, but INSERT and DELETE 
functions are not valid. 


If you specify CUPDATE=YES to the configurator, IMS updates 
the disk as well as the resident file. This saves disk accesses on 
reads but not on writes. However, if you omit CUPDATE or 
specify CUPDATE=NO, IMS does not update the disk file until 
shutdown, when the entire common storage area file is written to 
disk. File locking and recovery functions are the same for the 
common storage area file as for a disk file. 
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6. Sending Output Messages 


6.1. PURPOSE OF OUTPUT MESSAGE AREA 


Description When an action program issues an output message, the message 
is normally sent from the output message area (OMA). 


According to application requirements, action programs can issue 
output messages: 


> to the source terminal, auxiliary device, or successor action 
RETURN function program at the end of an action via the CALL RETURN 
function; or 


>> to the source or other terminal or auxiliary device via the 
SEND function CALL SEND function. 
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OUTPUT MESSAGE AREA CONTENTS 








6.2. YOUR ACTION PROGRAM'S OUTPUT MESSAGE AREA CONTENTS 


The output message area you describe has two parts: a 16-byte 
control header and a variable-length message text. 


OUTPUT MSG 
CONTROL HDR 


OUTPUT 
MESSAGE 
TEXT 





Control header format Your program copies the appropriate COBOL or BAL message 
(COBOL) control header format from the IMS copy library. The second part 
Output message text of the output message area contains the output message text 


your program sends to a terminal, auxiliary device, or successor 
action program. 


OUTPUT MSG 
CONTROL HEADER 


ACTION OUTPUT MSG ACTION 


TEXT |__| PROGRAM | 


2 


AUXILIARY 
DEVICE 
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Action initiation At action initiation, IMS sets the message text portion of the 
output message area to blanks. 


Action termination When an action terminates normally, IMS sends the output 
message to the source terminal unless otherwise specified. 


6.3. SIZE OF OUTPUT MESSAGE AREA 


OUTSIZE parameter The OUTSIZE parameter in the ACTION section of the 
configurator specifies the length of the output message area. The 
size you specify depends on whether you use screen format 
services for the action and whether you build your screen format 
in the output message area or in dynamic main storage. 


Factors affecting size 


OMA size for screen If you build a screen format in the output message area, the 
tonmating OUTSIZE value must be large enough to accommodate the 
screen format buffer contents including variable output data 
buffer contents, display constants, and device control characters. 


Standard OMA size Instead of specifying an output message area length on the 
OUTSIZE parameter, you can specify a standard output message 
size (OUTSIZE=STAN). IMS allocates an output area based on 
your CHRS/LIN and LNS/MSG parameter values in the GENERAL 
section of the configuration. 


For formulas to calculate output message area length, see the 
IMS system support functions user guide, UP-8364 (current 
version). 
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COBOL OUTPUT MESSAGE AREA 


6.4. COBOL ACTION PROGRAM OUTPUT MESSAGE AREA 





Output Message Header Format 


COBOL format name The COBOL output message header format is available in the IMS 
copy library under the name OMA for extended COBOL or under 
the name OMA74 for 1974 American National Standard COBOL. 
Figure 6-1 shows the output message area control header 
format. 


@1 OUTPUT-MESSAGE-AREA. 
@2 DESTINATION- TERMINAL - ID PIC X(4). 
@2 SFS-OPTIONS 
@3 SFS-TYPE PIC X. 
@3 SFS-LOCATION PIC X. 
FILLER PIC X(€2). 


CONTINUOUS - OUTPUT - CODE PIC X¢4). 
TEXT-LENGTH PIC 9¢4) COMP-4. 
AUXILIARY-DEVICE-ID. 

@3 AUX-FUNCTION PIC X. 

@3 AUX-DEVICE-NO PIC X. 





Figure 6-1. COBOL Format for Output Message Area Control Header 


Copying the OMA When you code your COBOL action program's linkage section, 
copy the output message area control header format into your 
action program from the IMS copy library using a COPY verb. 
Once you copy the output message control header from the IMS 
copy library, your program can access any of these control fields 
by referencing them in the procedure division. 


Output Message Text Description 


Output message text The output message text description immediately follows the 
placement output message control header format copied from the IMS copy 
Output message text library. Describe the output message text fields your program 


MEsenREOM issues to a terminal, auxiliary device, or succeeding action 


program. Define the output message text as those data items 
subordinate to the 01-level output message area description. The 
shaded area in Figure 6-2 shows the output message area 
control header fields generated by the COPY verb. Fields 
immediately following the control header represent output text 
sent by your program. 


DICE sequences Note that the first O2-level item describes the device independent 
control expression (DICE sequence) that formats the output 
message. (Appendix F explains this use in detail.) DICE control 
sequences are needed to position output messages unless you 
use screen format services (see Section 7). 
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OUTPUT MESSAGE AREA 
CONTROL HEADER 


LINKAGE SECTION. 


@1 O-M-A. COPY OMA74. 
@2 DICE-OUT. 


CONTROL 
P XX. 
CHARACTER @3 FILLER IC 


SEQUENCE @3 ODICE-Y PIC X. 
@3 ‘FILLER PIC X. 


OUT-MSG. 
03 PAY-OUT PIC $$$9.99. 
OUTPUT 03 LIT-OUT. 
er 04 FILLER PIC X(32). 
DESCRIPTION 04 CUST-OUT PIC X(6). 
04 FILLER PIC X(18). 


@3 NEW-BAL PIC $$$9.99. 





Figure 6-2. Sample COBOL Output Message Area Description 


UP-9207 





SPERRY UNIVAC OS/3 6-6 
IMS ACTION PROGRAMMING IN COBOL AND BAL 








BAL OUTPUT MESSAGE AREA 











6.5. BAL ACTION PROGRAM OUTPUT MESSAGE AREA 


Macroinstruction calls 
OMA DSECT 


Output Message Header Format 


IMS also supplies an output message area control header format 
for BAL action programs. It is in the form of a DSECT called by a 
macroinstruction in your action program. Figure 6-3 shows the 
format of the BAL output message area control header. 


ZAH#OMH DSECT 


* 


* QUTPUT MESSAGE HEADER 


* 


ZAHODTID DS 
ZAHOSFSO DS 
* 

ZAHSFTYP DS 
ZAHSFLOC DS 


* EQUATES FOR 


ZAHOSFSI EQU 
ZAHSFDYN EQU 
DS 
ZAHCONT DS 
ZAHOMHL = EQU 
ZAHOTL OS 
ZAHOAUX DS 


* 


CL4 
@CL2 


CL1 
CL1 


cir 
C'D! 

CL2 

XL4 
*-ZAHOMH 
H 

CL2 


* EQUATES FOR ZAHOAUX 


* 


ZAHONCOP EQU 
ZAHOCO EQU 
ZAHOOIQ EQU 
ZAHOHANG EQU 
ZAHOCOP EQU 
ZAHOCOCP EQU 
ZAHOPTCP EQU 
ZAHOPCOC EQU 


SS: 
C: 


ZAHOCSPM 
ZAHONSPM 
ZAHOCSPT 
ZAHONSPT 
ZAHOCIPM 
ZAHONIPM 
ZAHOCIPT 
ZAHONIPT 
ZAHOCSPF 


X' 00! 
X'C3! 
x'C9! 
X'D@! 
X'FQ! 
X'F3! 
X'F4! 
X'F7! 


SPACE SUPRESSION 


DESTINATION TERMINAL ID 
SFS OPTIONS 


FORMAT TYPE 
FORMAT LOCATION 


ZAHSFTYP & ZAHSFLOC 


INPUT FORMAT 

DYNAMIC MEMORY 

RESERVED FOR SYSTEM USE 
CONTINUOUS OUTPUT CODE 

OUTPUT MSG AREA HEADER LENGTH 
MESSAGE LENGTH 
AUXILIARY-DEVICE-ID 


NO COP SUPPORT REQUESTED 
CONTINUOUS OUTPUT REQ 

QUEUE AS INPUT FOR DEST: TCT 
RESERVED FOR IMS/9@ SYSTEM USE 
COP OUTPUT REQUESTED 
CONTINUOUS OUTPUT TO COP 

PRINT TRANSPARENT TO COP 
CONTINUOUS OUTPUT TO COP WITH 
PRINT TRANSPARENT 


ISS: INHIBIT SPACE SUPPRESSION 


CONTINUOUS OUTPUT NC: NOT CONTINUOUS OUTPUT 


X'F3" 
X'FO! 
X'F7! 
X'F4! 
X'F5! 
X'F2! 
X'Fg! 
X'F6! 
x'ca! 





C,SS,PRINT MODE 
NC,SS,PRINT MODE 
C,SS,PRINT TRANSPARENT 
NC,SS,PRINT TRANSPARENT 
C,1SS,PRINT MODE 

: NC,ISS,PRINT MODE 
C,1SS,PRINT TRANSPARENT 
NC,ISS,PRINT TRANSPARENT 
C,SS,PRINT FORM (ESC H) 


ra oOoNnN VU FN OW 


Figure 6-3. BAL Format for Output Message Area Control Header (ZA#OMH DSECT) 
(Part 1 of 2) 
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BAL OUTPUT MESSAGE AREA 





ZAHONSPF EQU X'Dd1' 
ZAHOCSTA EQU X'C2! 
ZAHONSTA EQU X'D2! 
ZAHOCSTV EQU X'C4! 
ZAHONSTV EQU X'D4' 
ZAHOCSTC EQU x'c5! 
ZAHONSTC EQU X'D5! 
ZAHOCIPF EQU X'C6! 
ZAHONIPF EQU X'D6! 
ZAHOCITA EQU X'C7! 
ZAHONITA EQU X'D7! 
ZAHOCITV EQU X'c8! 
ZAHONITV EQU X'D8! 
ZAHOCTIC EQU X'E8! 
ZAHONITC EQU X'F8! 
ZAHONTRM EQU X'D9! 
ZAHONTRT EQU X'E2! 
ZAHONTSR EQU X'E3! 
ZAHONTST EQU X'E5! 
ZAHONTRA EQU X'E6! 
ZAHOCTBB EQU X'D3! 
ZAHONTBB EQU X'E7! 
ZAHOCTSP EQU X'EQ! 


ZAHONTSP EQU X'E4' 
* 


NC,SS,PRINT FORM (ESC H) 

: C,SS,TRANSFER ALL (ESC G) 

: NC,SS,TRANSFER ALL (ESC G) 
C,SS,TRANSFER VARIABLE (ESC F) 
: NC,SS,TRANSFER VARIABLE (ESC F) 
C,SS, TRANSFER CHANGED (ESC €) 
NC,SS, TRANSFER CHANGED (ESC E) 
C,ISS,PRINT FORM (ESC H) 
NC,ISS,PRINT FORM (ESC H) 
C,ISS,TRANSFER ALL (ESC G) 
NC,ISS, TRANSFER ALL (ESC G) 
C,ISS, TRANSFER VARIABLE (ESC F) |. 
NC, ISS, TRANSFER VARIABLE (ESC F) |. 
: C,ISS, TRANSFER CHANGED (ESC E) 
: NC,ISS,TRANSFER CHANGED (ESC E) 
C,READ MODE 

C,READ TRANSPARENT 

C,SEARCH AND READ MODE 

C,SEARCH AND READ TRANSPARENT 
C,REPORT ADDRESS 

C,BACK ONE BLOCK 

NC,BACK ONE BLOCK 

C,SEARCH AND POSITION 

NC,SEARCH AND POSITION 


as 
B 

K 

D: 
M 

E: 
N: 
Fr 
0: 
G: 
P: 
H: 
Q: 
Y 

8: 
R: 
S: 
¥2 
V: 
W: 
L: 
X: 
Ze 
U: 


EQUATES FOR ZAHOAUX+1 

* 

ZAHODID1 EQU C'1! DEVICE 
ZAHODID2 EQU C!2! DEVICE 
ZAHODID3 EQU C'3! DEVICE 
ZAHODID4 EQU C4! DEVICE 
ZAHODIDS EQU C!S! DEVICE 
ZAHODID6 EQU C'6! DEVICE 
ZAHODID7? EQU C'7! DEVICE 
ZAHODID8 EQU C'8! DEVICE 
ZAHODID9 EQU C9! DEVICE 





Figure 6-3. BAL Format for Output Message Area Control Header (ZA#OMH DSECT) 


(Part 2 of 2) 
Issuing ZM#DOMH To generate inline the output message control header (the macro 
macroinstruction expansion of the ZA#OMH DSECT), you issue the ZM#DOMH 


macroinstruction in your BAL action program. If you don’t want 
to see the ZM#DOMH macro expansion inline, use the PRINT 
NOGEN instruction before you issue the ZM#DOMH 
macroinstruction. Though the output message control header 
fields are not seen in your program coding, they are still available 
and you can reference them. 
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BAL OUTPUT MESSAGE AREA 





Output message text 


DICE sequences 


Output Message Text Description 


Immediately following the ZM#DOMH macroinstruction, you 
describe the output message text fields your program wants to 
send to the terminal, auxiliary device, or successor action 
program. Using defined constant (DC) statements, you describe 
each field of your output message text. 


Figure 6-4 illustrates the macroinstruction that generates the 
output message control header followed by the description of 
output text being sent to a terminal (in this case, a 42-byte area 
containing a 4-byte control character field, the word CAPITAL, 
and space to enter the name of a state capital). Refer to 
Appendix B for this example in the full context of the IMS state 
capital action program. Note that PRINT NOGEN is specified and 
the ZM#DOMH macro is not expanded inline. Nevertheless, this 
action program can still access any field in the control header. 


Note that the first four bytes of OUTTEXT contain the device 
independent control expression (DICE sequence) that clears the 
line and positions the output message on the new line. (Appendix 
F explains their use in detail.) DICE contro! sequences are needed 
to format output messages unless you use screen format 
services. (See Section 7.) 


PRINT NOGEN 


*BUILD OUTPUT MESSAGE 
MVC OUTTEXT(4), NEWLINE PUT DEVICE INDEPENDENT CONTROL 
CHARACTERS INTO MESSAGE TO CLEAR 
TO END OF LINE AND POSITION TO 
BEGINNING OF NEXT LINE 
OUTTEXT+4(L'MSGCON1) ,MSGCON1 PUT TEXT CONSTANT INTO MESSAGE 
OUTTEXT+4+L ‘MSGCONI(L'SCAPITAL),SCAPITAL PUT CAPITAL NAME INTO 
MESSAGE 


*CONSTANTS 

STATE DC CL7'STATE' ISAM FILENAME 

MSGCON1 DC C'CAPITAL' 

NEWLINE ZOPOSC @,0 ICAM PROCEDURE TO GENERATE 
* OICE SEQUENCE FOR NEW LINE 
* CONTROL WITH CLEAR 
SCAPITAL DS STATE CAPITAL 





Figure 6-4. Sample BAL Output Message Area Description 
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OUTPUT MESSAGE AREA HEADER FIELDS 











6.6. CONTENTS OF OUTPUT MESSAGE AREA CONTROL HEADER 


The header format identifies the terminal that is to receive the 
output message, screen formatting options (if used), continuous 
output code (if used), the length of the output message text, 
auxiliary function code (if used), and auxiliary device number (if 
used). Figure 6-5 shows some of the questions about output 
messages that the output message control header answers when 
the action program sets values in the control header fields. 
Subsections 6.7 through 6.13 describe output message header 
fields. 


WHICH TERMINAL 
RECEIVES 
OUTPUT MESSAGE? 


CALLED SCREEN 
FORMAT USED 
* FOR INPUT, 

1/0, OR OUTPUT? 


HAT CODE 
USED TO 
COMMUNICATE 
WITH SUCCESSOR 
AP PROCESSING 
CONTINUOUS 

UTPUT = 


OUTPUT 
MESSAGE 5 HOW LONG 


AREA IS THE 
OUTPUT MESSAGE 
TEXT? 


WHICH AUXILIARY 
DEV RECEIVES 
OUTPUT 
MESSAGE? 


WHAT PRINT 
OPTIONS USED 
FOR AUXILIARY 

DEVICE? 





Figure 6-5. Answers to Output Message Processing Questions 
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6.7. IDENTIFYING THE DESTINATION TERMINAL (DESTINATION-TERMINAL-ID) 


Destination terminal 
default 


Matching terminal 
identifications 


IMS needs to know the terminal to which it sends the output 
message your action program builds. The 1- to 4-byte value in 
the DESTINATION-TERMINAL-ID field (ZA#ODTID) identifies the 
terminal to which IMS sends the output message. 


lf you don't move a value to this item before issuing a CALL 
RETURN or CALL SEND, IMS assumes the source terminal to be 
the destination terminal. 


The destination terminal name must be left-justified and blank 
filled. Also, you must identify this terminal in your ICAM network 
definition and optionally in a TERMINAL section of the 
configuration (Figure 6-6). 


ICAM NETWORK DEFINITION 


DEVICE=(LWS) 

ADDR=(312), FEATURES=(LWS) ,LOW=MAIN, INPUT=C(YES), 
MEDIUM=MAIN, HIGH=MAIN 

DEVICE=(LWS) 


ADDR=(314), FEATURES=(LWS) , LOW=MAIN, INPUT=(YES) 
MEDIUM=MAIN, HIGH=MAIN 

DEVICE=(LWS) 
ADDR=(315),FEATURES=(LWS),LOW=MAIN, INPUT=(YES), 
MEDIUM=MAIN,HIGH=MAIN 





IMS CONFIGURATION 


TERMINAL UNSOL=ACTION 


MIN U SACTION 
TERMINAL WS3 UNSOL=ACTION 
TERMINAL WS4 UNSOL=ACTION 
TRANSACT MENU ACTION=JAMENU 
TRANSACT SIGN ACTION=JASIGN 
ACTION JAMENU CDASIZE=1024 EDIT=NONE MAXSIZE=12000 
OUTSIZE=4096 WORKSIZE=1024 
FILES SYSCTL,CUSTMST,XREF1,XREF2 
ACTION JASIGN CDASIZE=1024 EDIT=NONE MAXSIZE=12000 





Figure 6-6. Identifying the Destination Terminal to ICAM and the Configurator 
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Using DESTINATION- The most common use of the DESTINATION-TERMINAL-ID field 

RERMINAL IE Iicle is to send an output message to a terminal other than the 
source. Place a value in the DESTINATION-TERMINAL-ID field 
before issuing the SEND function to transmit the message. 


The following COBOL statement moves a terminal identification 


other than the source terminal to the output message area 
DESTINATION-TERMINAL-ID field. 


MOVE DEST-TERM TO DESTINATION-TERMINAL-ID. 


The terminal operator enters the value of the desired destination 
terminal from the source terminal. This value is received in the 
input message area and described as a text field (DEST-TERM) in 
the input message area of the program's linkage section. For 
more detail, see the sample COBOL action program, BEGIN1 in 
Appendix B, Figure B-24. 
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6.8. SPECIFYING SCREEN FORMAT SERVICES FOR OUTPUT (SFS-OPTIONS) 


SFS-TYPE field values 


SFS-LOCATION field 
values 


When you use screen format services for output messages and 
issue a CALL BUILD for an input or input/output screen format, 
IMS places a value of | in the SFS-TYPE field (ZA#SFTYP). This 
means that IMS is to use the screen format you name on your 
BUILD function call for the following input. When the screen 
format is for output only, this field contains hexadecimal zeros. 


Each time you issue a BUILD function, IMS resets the SFS-TYPE 
field. To override an input/output format, set this field to 
hexadecimal zero before issuing a CALL RETURN. This tells IMS 
to use the screen format you name on the BUILD function call for 
output only. (For. more information describing input only, 
input/output, and output only screen formats, refer to Section 7.) 


To build a formatted output message in dynamic main storage 
instead of in your output message area, move a character D 
(C‘D’) to the SFS-LOCATION field (ZA#SFLOC), the second byte 
of the SFS-OPTIONS field (ZA#OSFSO). Once you've built the 
screen format in dynamic main storage, if you want to send a 
message from the output message area, first clear 
SFS-LOCATION by filling it with hexadecimal zeros before issuing 
the SEND or RETURN function. In a COBOL action program, you 
can do this by coding the statement: 


MOVE LOW-VALUES TO SFS-LOCATION. 


In a BAL action program, the statement 


1 10 16 





MVI ZAHSFLOC,X'00! 


does the same thing. 


For a complete description of screen format services, see Section 


is 
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6.9. IDENTIFYING A CONTINUOUS OUTPUT MESSAGE (CONTINUOUS- 
OUTPUT-CODE) 


When you issue a continuous output message, an action program 
can succeed to itself or to an other action program to continue 
sending output. The CONTINUOUS-OUTPUT-CODE can be used 
to communicate between the action program that originated the 
continuous output and its successor. 


If you do not move a value into this field, IMS sets the field to 
zeros and when the program passes control to its successor, the 
first four bytes of input message received by the successor 
action program are zeros. Though the CONTINUOUS- 
OUTPUT-CODE field can be used, this field is not mandatory in 
generating continuous output. It can, however, be helpful to 
indicate the last output message sent. Set this field only when 
the AUX-FUNCTION field indicates that continuous output is 
desired. For a complete description of continuous output, see 
6.17 through 6.23. 
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6.10. SUPPLYING OUTPUT MESSAGE TEXT LENGTH (TEXT-LENGTH) 


Description 


OUTSIZE parameter value 


Additional bytes required 


The TEXT-LENGTH field (ZA#OTL) is a binary half-word integer 
that specifies the length of the output message text. IMS sets 
this value to a predefined output message text length at action 
initiation and the action program may reduce the value to reflect 
the true output message text length. This output message length 
control is necessary when your action program issues multiple 
output messages. If the value is set to zero and no output 
message is sent by the action program, IMS sends a default 
termination message to the source terminal. 


The predefined output message text length is specified at 
configuration via the OUTSIZE parameter in the ACTION section. 
In your action program, the value you place in TEXT-LENGTH 
must include the length of the actual text plus four bytes for the 
TEXT-LENGTH field itself. Be sure to move this value to the 
TEXT-LENGTH field before your program sends an_ output 
message to a terminal. Figure 6-7 shows the logic involved in 
moving a message text length to the TEXT-LENGTH field in the 
output message area. 


OUTPUT 
MESSAGE 


| MOVE 54 TO TEXT-LENGTH 





Figure 6-7. Setting Message Text Length for Output Messages 
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6.11. IDENTIFYING AUXILIARY DEVICES (AUXILIARY-DEVICE-ID) 


AUXILIARY-DEVICE-ID field The AUXILIARY-DEVICE-ID field (ZA#OAUX) is a 2-byte field that 
indicates whether the output message should be sent to an 
auxiliary device and, if so, it identifies the device. You also use 
this field to specify printing options. 


Listing message on To list the output message on an auxiliary device attached to the 

auxiliary device destination terminal, use each byte of the AUXILIARY-DEVICE-ID 
field - the AUX-FUNCTION byte (ZA#OAUX) and the AUX- 
DEVICE-NO byte (ZA#OAUX-+ 1). 


AUX-FUNCTION field The AUX-FUNCTION byte describes the print options used for 
continuous output and when sending the output message to an 
auxiliary device. For AUX-FUNCTION byte settings refer to Table 

AUX-DEVICE-NO field 6-2. The AUX-DEVICE-NO specifies the number of the auxiliary 
device receiving the output message (1 through 9), as defined in 
the ICAM network definition. 


Displaying message on If you don't send the output message to an auxiliary device or 

primary device want continuous output, set the entire field to binary zeros. This 
is the original value of the field set by IMS when it generates the 
output message area control header. Zeroing out this field 
displays or lists the output message on the primary device - the 
destination terminal with no special options. The following 
COBOL coding zeros out the AUXILIARY-DEVICE-ID field in the 
output message area control header: 


MOVE LOW-VALUES TO AUXILIARY-DEVICE-ID. 


6.12. SPECIFYING SPECIAL PRINT OPTIONS FOR AUXILIARY DEVICES 
(AUX-FUNCTION) 


Using AUX-FUNCTION You can choose numerous print options to send output 

byte messages to auxiliary devices. For example, to list the output 
message on the communications output printer (COP) or terminal 
printer (TP) in print mode, set the AUX-FUNCTION byte to X°FO’; 
to list it in print-transparent mode, set the AUX-FUNCTION byte 
to,.4-F4; 


The AUX-FUNCTION field has another use when you send 
continuous output to a terminal rather than an auxiliary device. 
For more detail, see 6.19. 
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Figure 6-8 shows the coding statements that specify continuous 
output to an auxiliary device at the primary destination terminal, 
or continuouS output in print-transparent mode at a 
communications output printer attached to the first auxiliary 
device configured at that terminal. 


CREATE -CONTINUOUS -OUTPUT. 
IF COP-OQUTPUT NOT EQUAL TO 'COP' 
MOVE 'C' TO AUX-FUNCTION 





MOVE CURRENT -CONT-COD 


Figure 6-8. Specifying Output to an Auxiliary Device 


For an explanation of print mode, print-transparent mode, space 
suppression, and other print options, see 6.19; also, refer to 
Table 6-1 for a summary of the AUX-FUNCTION byte settings. 


6.13. NAMING AUXILIARY DEVICES (AUX-DEVICE-NO) 


Using AUX-DEVICE-NO 
byte 


AUX operand appendage 


When you send an output message to an auxiliary device, you 
must identify its number in the AUX-DEVICE-NO byte of the 
AUXILIARY-DEVICE-ID field. The value you place in this byte 
must be a character 1-9. This number identifies the auxiliary 
device number appended to the AUX operand of the TERM 
macroinstruction in your ICAM network definition. (See the IMS 
system support functions user guide, UP-8364, current version.) 


If you send an output message to an auxiliary device attached to 
the destination terminal as shown in Figure 6-8, the network 
definition must contain a TERM macroinstruction with an AUX 
Operand appended with the same value placed in_ the 
AUX-DEVICE-NO. The following portion of a network definition 
shows the AUX operand with the appended number: 





TO AUX-DEVICE-NO. 
1 10 16 72 











aSS- 







TRM1 TERM ADDR=(29,52), 
FEATURES=(U400, 1920), 
UX4=(TP,77), 
HIGH=MAIN, 
MEDIUM=MAIN, 
LOW=DQFILE1 


<— «KKK OK 
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6.14. SENDING A MESSAGE AT THE END OF AN ACTION 


Forms of output Normally, action programs send messages from the output 
message area to the designated terminal when you issue the 
RETURN function at action termination. This output can be: 


displayed on the source terminal or the terminal indicated by 
the DESTINATION-TERMINAL-ID field; 


listed on an auxiliary device attached to the source terminal 
or destination terminal; 


> printed as continuous output at the source terminal or on an 
auxiliary device attached to the source terminal (see 6.11); 
or 


queued as input to a successor action program terminating in 
delayed internal succession. 


PRINT 
DISPLAY : CONTINUOUS | 
OUTPUT 


QUEUED 
AS INPUT 


SUCCESSOR 
ACTION 
PROGRAM 


AUXILIARY 
DEVICE 


AUXILIARY 
DEVICE 
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6.15. SENDING ADDITIONAL MESSAGES (SEND FUNCTION) 


Sending multiple and 
switched output messages 


Description 


COBOL format 


BAL format 


Output-buffer parameter 


Sending message from 
work area 


Using master parameter 


Sometimes you may want to issue more than one message 
during an action, or you may want to send a message to a 
terminal other than a source terminal. This is called switched 
output. To issue multiple and switched output use the SEND 
function call. 


Transmitting Messages via the SEND Function 


The SEND function transmits messages to a terminal other than 
the source terminal or multiple messages to the source terminal. 
It can also initiate a transaction at another terminal via 
output-for-input queueing (described in 6.25). In addition, the 
SEND function can designate the master terminal as_ the 
destination for messages without naming the master terminal in 
the program. This is useful for sending error messages to the 
master terminal when the source terminal can’t handle the error. 


The COBOL and BAL source formats for the SEND function call 
are: 


= COBOL Format: 


CALL ‘SEND' USING output-buffer [master]. 


a BAL Format: 


CALL SEND, (output-buffer [,master]) 
ZGHCALL 


Output-buffer parameter refers to a data-name (COBOL) or 
storage area (BAL) where the output message is built. This area 
must contain an output message header and text. The output 
buffer doesn't have to be the output message area described in 
the linkage section. You can send an output message from the 
work area or other interface area. This area, however, must be 
aligned on a full-word boundary. Subsection 6.16 discusses the 
use of a work area to build output messages and explains how 
to send output messages from a work area. 


The master parameter refers to a data-name or storage location 
that contains the value ‘M’ indicating that this message is sent to 
the master terminal. 


Figure 6-9 illustrates COBOL coding to send an output message 
to the master terminal. 
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WORKING 


STORAGE 





WORK ING-STORAGE-SECTION. 





PROCEDURE DIVISION. 


CALL 'SEND' USING OUTPUT -MESSAGE-AREA 





Figure 6-9. Sending an Output Message to the Master Terminal 


When the data name referenced does not contain the value ‘M’, 
IMS returns a status code of 3 {invalid request) and a detailed 
status code of 3 (incorrect parameter value) to the program 
information block of your action program. 


When you omit this parameter, IMS sends the message to the 
terminal specified in the DESTINATION-TERMINAL-ID field of the 
output message area, or to the source’ terminal when 
DESTINATION-TERMINAL-ID is not specified. 


Figure 6-10 illustrates the COBOL coding to send an output 
message to a destination terminal. 
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Sending messages 
to the console 


Message size 
restriction 


Queued messages to 
master terminal 


SEND function 
considerations 





_ | ACTION PROGRAM 


OUTPUT MESSAGE 


HEADER 


TRM4 





PROCEDURE DIVISION. 






CALL 'SEND' USING OUTPUT-MES 


Figure 6-10. Sending an Output Message to a Destination Terminal 


You can send a message to the system console or master 
workstation if console support is configured. To send a message 
to the console or master workstation, enter the name 1CNS in 
the DESTINATION-TERMINAL-ID field. When you send a message 
to the console, your message may not exceed 120 characters. 
For more information about the system console and master 
workstation, see 6.28. 


IMS does not send an output message to the designated terminal 
until the successful termination of the current action. After IMS 
moves the output message from the output message area and 
writes it to the output message queue, control returns to the 
statement following the CALL SEND statement. 


If the transaction terminates abnormally or is canceled in the 
current action, IMS deletes from the queue all output messages 
generated in the action and does not deliver any messages to the 
terminal. Instead, it sends a message to the source terminal 
indicating the reason for termination. 


To use the SEND function, you must specify the UNSOL=YES 
parameter in the OPTIONS section of the configurator. In your 
ICAM network definition, you must: 


Specify FEATURES =(OUTDELV) on the CCA 
macroinstruction. 


Create three queues for each terminal (LOW, MEDIUM, and 
HIGH operands on the TERM macroinstruction). 
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Create at least one process file (PRCS macroinstruction). 


If a global network, create a static session for each process 
file in the SESSION macroinstruction. 





If you use the SEND function frequently, you should specify disk 
queueing. Refer to the IMS system support functions user guide, 
UP-8364 (current version). 





UP-9207 SPERRY UNIVAC OS/3 6-22 
IMS ACTION PROGRAMMING iN COBOL AND BAL 


SEND FUNCTION: STATUS/DETAILED STATUS CODES RETURNED 

















Returns from the SEND Function 





After executing a SEND function, IMS notifies the action program 
whether the request succeeded or failed by placing binary values 
in the STATUS-CODE and DETAILED-STATUS-CODE fields of the 
program information block. Table 6-1 shows status and detailed 
status codes IMS can return after unsuccessful completion of the 
SEND function: 


Table 6-1. Status Codes and Detailed Status Codes Returned after the SEND 
Function 





10) Successful 


6 2 
3. 
4. 
5. 
| 


Parameter error 


Ww 
Nh 


UNSOL=YES or CONTOUT=YES was not 
configured, or no process files were created in 
ICAM network definition. 


Returned when output-for-input queueing is 
requested and: 





1. Destination terminal is in interactive mode 


2. Destination terminal has an input message 
on queue 


ZZHLD or ZZDWN command was entered 
for destination terminal 


Destination terminal is marked physically 
down to ICAM 


IMS cannot allocate a main storage buffer 
(multithread only); INBUFSIZ specification 


inadequate. 


Destination terminal physically or logically down; 
message queued 


Invalid destination terminal, auxiliary device, or 
auxiliary function specified 


No ICAM network buffer available 


Disk error or recoverable system error on output 
message to console 


Invalid length specification 
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Detailed-status-code=2 IMS returns a status code of 6 and a detailed status code of 2 
only when you use the SEND function to initiate a transaction at 
another terminal (output-for-input queueing). The conditions 
causing this error are not permanent. The output message header 
is valid, and you may be able to retransmit the same message 
successfully at a later time. 


Detailed-status-code=3 Some of the conditions causing a detailed status code of 3 (with 
status code 6) are the same as those for a detailed status code 
of 2. However, this error is returned when you use the SEND 
function for message switching, not output-for-input queueing. In 
this case, the message sent is queued for the destination terminal 
and is automatically transmitted when the terminal is operational. 


Regaining program control \f you configure ERET=YES, the action program regains control 
at the instruction after the SEND function call and must 
interrogate these status bytes. If you don’t configure ERET= YES, 
the program does not regain control if the SEND function is 
unsuccessful and IMS abnormally terminates the program. At this 
time, IMS also sends a 3-line transaction termination message to 
the system console. Transaction termination messages are 
documented in the OS/3 system messages programmer/operator 
reference, UP-8076 (current version). 


Abnormal termination 





UP-9207 SPERRY UNIVAC OS/3 6-24 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


OUTPUT MESSAGES IN WORK AREA 

















6.16. USING A WORK AREA TO BUILD OUTPUT MESSAGES 


Configuration When you use the SEND function you can use the work area or 
other interface area in the activation record to build your output 
message. If you decide to use the work area, you must configure 
the work area size via the WORKSIZE parameter in the 
configuration ACTION section. IMS does not generate a work 
area without this parameter. You describe the work area in your 
action program’s linkage section. 


Work area size The length of the work area in multithread IMS equals the 
WORKSIZE length configured, plus the work area increment 
(WORK-AREA-INC) length specified by the preceding action. In 
single-thread IMS, the work area length equals the WORKSIZE 
length configured. The WORK-AREA-INC value is not supported 
in single-thread IMS. 


Where to build output You can build output messages in four areas in your action 

messages program. The output message area is most commonly used. In 
addition, you have the convenience of building output messages 
in the work area or continuity data area. If you don’t need to 
save the previous contents of the input message area, you can 
even build an output message there. 





Using RETURN and The important difference is that when you build your output 

SEND functions message in the output message area, you may use the CALL 
RETURN function to transmit the message. On the other hand, 
you must use the SEND function to transmit messages built in 
any area other than the output message area. 


Directing IMS to When you issue a SEND function to transmit an output message 
output message from the output message area or any other area, you must be 
sure to use the same name you use for the output-buffer 
parameter in your SEND function call as you use for the output 
message description in your work area or continuity data area. 
This tells IMS where to go to find the output message you are 


sending. 
Need to code output When sending an output message from any area other than the 
piesgage heater output message area, you must code your own output message 


header. You can’t use the IMS copy library when creating the 
OMA header in a section other than the output message area. 

Coding example Figure 6-11 shows the COBOL coding to send a message to the 
master terminal from the work area. 
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WORKING-STORAGE SECTION. 
77 MAST-TERM PIC X VALUE ‘M'. 


LINKAGE SECTION. 


@1 WORK-AREA. 


@3 DESTINATION- TERMINAL -ID PIC X(4). 
@3 SFS-OPTIONS PIC X(2). 


@3 OUTPUT-TEXT-1 PIC X(50). 


PROCEDURE DIVISION 


PARA-X. 
CALL MAST- TERM. 


OUTPUT - 
TEXT-1 MASTER 
TERMINAL 





Figure 6-11. Sending an Output Message from the Work Area 
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CONTINUOUS OUTPUT 








6.17. GENERATING CONTINUOUS OUTPUT 


When to use continuous When you want to print lengthy reports at a terminal or auxiliary 
output device attached to a terminal, the continuous output feature is 
very useful. 


By generating continuous output you can transmit a series of 
output messages to a terminal, or more commonly to an auxiliary 
device attached to a terminal, without operator intervention. 


Configuring continuous To use this feature, you must specify CONTOUT=YES in the 
output OPTIONS section of your configuration. 


You also must define an ICAM network that supports unsolicited % 
output. (ICAM requirements are discussed in 6.15.) % 






Can be used in Continuous output can be used in batch processing mode - a 
batch mode online for production or offline for listing - as well as in % 


interactive mode. 


6.18. DEVICES THAT CAN RECEIVE CONTINUOUS OUTPUT 


Action programs can direct continuous output to hard copy 
terminals or to auxiliary devices (printer, tape cassette, or 
diskette) at display terminals. For a complete list of terminals and 
auxiliary devices supported by IMS, see the IMS system support 
functions user guide, UP-8364 (current version). 





6.19. CODING FOR CONTINUOUS OUTPUT 


Identifying continuous To distinguish continuous output messages from other output 

output message messages, an action program must move a specific value to the 
AUX-FUNCTION field (ZA#OAUX) of the output message area 
header. When the program terminates, IMS checks this field and 
recognizes that the program generated a continuous output 
message. 


Identifying auxiliary device |f that message goes to an auxiliary device rather than a terminal, 
the program must also move a value to the AUX-DEVICE-NO field 
(ZA#OAUX+ 1) of the output message header. This value tells 
IMS which auxiliary device (1 through 9) receives the continuous 
output message. Remember to assign a unique number to each 
auxiliary device when you define your communications network. 


AUX-FUNCTION values Table 6-2 summarizes the settings for the AUX-FUNCTION field 
when your action program transmits continuous output to a 
terminal or to an auxiliary device. Note that you can use these 
print and transfer options to transmit messages to auxiliary 
devices for normal output as well as continuous output. 





<a 
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Table 6-4. UNISCOPE and UTS 400 Auxiliary Device Condition Codes 








Ready (good) status 
but COP/TP write 
function inoperative 









_ eres 
-_ ican ia a Ral 


@ Your action program should access the labels in the DSECT instead of testing the 
value directly, because the equate (EQU) value for each label in the DSECT can vary in 
future releases. The labels will always remain the same. 


Device out of paper, 
inoperative, or in 
test mode 





Device is not 
responding; it 

may be disconnected, 
or a read of unwritten 
tape may have occurred. 







NOTES: 


@ The label TM#TDNAX represents the auxiliary-device-down condition. (Refer to 
Table 6-3.) 


Polled and unpolled devices The DCT 1000, UNISCOPE 100 and 200, UTS 10, 20, 4O, and 
400 terminals, and workstations are polled devices and transmit 
an acknowledgment to ICAM after receiving a continuous output 
message. The nonpolled devices, Teletype and DCT 500 
terminals, do not. For nonpolled devices, a delivery notice is 
automatically generated; it always indicates successful delivery 
regardless of whether or not the output message was 
successfully delivered. Only a line-down condition returns an 
unsuccessful delivery notice. 


Problem caused by Consequently, IMS almost always receives a_ successful 
nonpolled devices completion status from ICAM when a message is delivered to a 
nonpolled device. IMS sends this delivery code to the successor 
action program which, in turn, generates more continuous output. 
As you can see, this is a situation to be avoided. So, in critical 
parts of continuous output applications, avoid using nonpolled 


devices. 
Queueing and delivery You can use delivery codes to recover continuous output 
time errors messages when output message errors are detected at queueing 


time as well as at delivery time. Errors with hexadecimal values 
84 through 87 (Table 6-3) are discovered at output queueing 
time. All others are detected at the time output is delivered to 
the terminal. 
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Error causes 


Values returned in 
delivery code byte 


Coding for delivery 
code test (COBOL) 


Reasons for output message errors are: 


= A missing or invalid destination in the output message 
header 


gs = An invalid output buffer length in the output message header 
= No ICAM network buffer available 
= =A disk error occurred 


If the no-ICAM-network-buffer-available status exists, your action 
program can try to resend the last continuous output message. 


Testing the Delivery Code in a COBOL Action Program 


When IMS returns the delivery code in the fifth byte of your 
action program's input message text, your program must test 
this byte to see if the continuous output message was delivered 
successfully. IMS places a hexadecimal 81 or the letter A into 
this fifth byte when a successful completion occurs. It returns the 
letter A (hexadecimal C1) when you_ configure the | 
lowercase-to-uppercase translate option for messages input to a 
successor action. Otherwise, it returns the hexadecimal value 81. 
Tables 6-3 and 6-4 list the hexadecimal values for delivery 
codes returned by IMS. 


To test for a successful delivery code, you can set up a 77-level 
item in working storage to contain the hexadecimal value 81 or 
the value A (depending on the translate option configured) and 
compare the value with the value IMS returns in the fifth byte of 
the input message text. You can also compare the first 5 bytes 
of input message text with a 5-byte literal containing the value A 
or 81 (eg., =' A’ or =’ 81’). Figure 6-12 shows the 
specific statements needed to test for a successful output 
delivery code of A. For a complete continuous output program 
example in COBOL, see the PRINT program in Appendix B. 
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DATA DIVISION. 
WORKING-STORAGE SECTION. 


LINKAGE SECTION. 
01 PIB.COPY-PIB74. 
01 IMA.COPY IMA74. 
02  TRANS-IN. 
04 CODE PIC X(5). 
04 DEL-NOTICE-MSG REDEFINES CODE. 
98 DEL-NOTICE-CODE PIC X(4). 


04 FILLER PIC X. 
04 TST-NUM PIC X. 
04 INPUT - TEXT PIC X(100). 
04 FILLER PIC X(1813). 
01 OMA.COPY OMA74. 
@2 PRNT-LINE. 
04 DI-1 PIC 9¢4) COMP. 
04 DI-2 PIC 9¢4) COMP. 
04 OUTPUT - TEXT PIC X(1916). 
PROCEDURE DIVISION USING PIB IMA OMA. 
START -HERE. 
IF CODE EQUAL 'PRTPO' GO TO START-IT. 
IF CODE EQUAL 'PPPP' or EQUAL 'TTTT' GO TO TEXT-RETURN. 
IF CODE EQUAL ‘CCCC' GO TO CONT-CONTINUE. 
IF CODE EQUAL 'STOP' GO TO TERMINATION-EXIT. 
START-IT. 


CONT-PRINT. 


TEST-RETURN. 
IF i 
CONT - CONTINUE. 
MOVE ‘E' TO TERMINATION- INDICATOR. 
MOVE 'BUS@20' TO SUCCESSOR-ID. 
GO TO ALL-EXITS. 
TERMINATION-EXIT. 
MOVE 'N' TO TERMINATION- INDICATOR. 


ALL-EXITS. 
CALL 'RETURN'. 





Figure 6-12. Testing for Successful Delivery Code in a COBOL Action Program 
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Accessing TCS DSECT 


Generating TCS DSECT 


TRANSLAT option 
considerations 





After the PRINT action program determines from a terminal input 
value that it will process a continuous output message, it 
processes this message by succeeding to itself (external 
succession) and testing for a successful delivery code of A in the 
fifth byte of the input message text after each screenful of output 
message. If the delivery code is successful, PRINT terminates in 
external succession. If it is unsuccessful, PRINT handles the error 
status code and terminates normally. When continuous output is 
completed, PRINT terminates normally. 


Testing the Delivery Code in a BAL Action Program 


BAL action programs processing continuous output should 
access the ICAM labels in the transaction control section (TCS) 
DSECT, TM#TCS. Tables 6-3 and 6-4 list these labels that 
correspond with the hexadecimal values equated to the delivery 
notice status codes. 


BAL action programs should generate the TCS DSECT inline and 
access the labels instead of testing the hexadecimal value directly 
in the input message. The reason for this is that these 
hexadecimal values are equated (EQU) for each DSECT label and 
can change in future releases; however, the ICAM DSECT labels 
always remain the same. If you access the labels, you only have 
to reassemble your BAL action program with each new release to 
be sure your DSECT is current; otherwise, you must change your 
code and reassemble. 


To generate the TCS DSECT inline when your BAL program is 
assembled, call the ICAM procedure, TM#DSECT, using the 
operand, TCS. Figure 6-13 shows the TM#DSECT procedure and 
a portion of the ICAM TCS DSECT showing output delivery 
notice status codes and their labels. Also shown are the specific 
BAL statements that test for a successful delivery code in the 
fifth byte of the input message area. Note that the contents listed 
with each label in the DSECT indicate that the message is being 
held by ICAM; however, IMS deletes these messages from the 
queue. 


Note also that if you configure TRANSLAT=YES for the action, 
you cannot use ICAM DSECTs to evaluate delivery status codes 
because the codes are changed by the translate routine. 
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TMHTDDNA EQU X!12! TERMINAL MARKED DOWN, MESSAGE HELD 
TMHTDNAX EQU  X'4@! AUXILIARY DEVICE DOWN, MESSAGE HELD 
x OUTPUT CAN STILL BE SENT TO PRIMARY ~~ |. 
TMHTDDS1 EQU  X'@1! UNISCOPE AUXILIARY STATUS ONE 
* MESSAGE HELD, GOOD STATUS BUT READ/WRITE 
* FUNCTION INOPERATIVE 
TMHTDDS2 EQU  X'@2! UNISCOPE AUX STATUS TWO 
* MESSAGE HELD, PRINTER OUT OF PAPER, 
PORTION oF I * INOPERATIVE OR IN TEST MODE 
ICAM DSECT] TMHTDDS3 EQU X'@3! UNISCOPE AUX STATUS THREE 
ae. * MESSAGE HELD, TAPE CASSETTE END-OF-TAPE 
Resdy TMHTDDS4 EQU  X'@4! UNISCOPE AUX STATUS FOUR 
STATUS * MESSAGE HELD, NO RESPONSE FROM DEVICE WHEN 
CODES ‘ ATTEMPTING TO READ APE 
| TMHTONEM EQU <X'81 — whee 
* 
& TMHTDLNO EQU- X!11! LINE DOWN/DISCONNECTED, MESSAGE HELD 
* 
TMHTEDST EQU  X'84! MISSING OR INVALID DESTINATION 
TMHTENBA EQU X'85! NO ICAM NETWORK BUFFER AVAILABLE 
TMHTEDER EQU  X!86! DISK ERROR OCCURRED SERVICING SVC 
TMHTEILG EGU X'87! INVALID OUTPUT BUFFER LENGTH 


* 


* TEST DELIVERY CODE 





BE EXIT 


Figure 6-13. Testing for Successful Delivery Code in a BAL Action Program 
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6.23. CONTINUOUS OUTPUT AND CASSETTE/DISKETTE USE 


Available options 


You can read and write, search, or position data on cassette and 
diskette auxiliary devices by using the continuous output feature. 
To do this, you must move a value to the AUX-FUNCTION and 
AUX-DEVICE-NO fields of the output message area header just as 
you do when generating a continuous output message. Table 6-2 
summarizes the settings for the AUX-FUNCTION field when 
reading from or writing data to cassettes or diskettes. 


Notice in Table 6-2 that all the options beginning with the read 
option, except backward-one-block and search-and-position, must 
be used with the IMS continuous’ output feature. 
Backward-one-block and search-and-position can be used with 
continuous output and regular output by simply moving the 
appropriate value to the AUX-FUNCTION and AUX-DEVICE-NO 
fields. 


Input Options 


There are four input options used with cassette/diskette: read, 
read-transparent, search-and-read, and search-and-read- 
transparent. The continuous output feature must be used with 
any of these input options. 


1. The read option reads a block of data from the 
cassette/diskette to the terminal screen. When you specify 
this option, do not put any message text in the output 
message area. Also, you must move the value 4 to the 
TEXT-LENGTH field of the output message area header. 


2. The read-transparent option reads a block of data from the 
cassette/diskette and the remote device handler deletes the 
SOE cursor sequence, carriage return codes, and DICE 
codes. 


3. The search-and-read option reads a block of data from the 
cassette/diskette only if a search argument specified in the 
message text of the output message area is satisfied. When 
the argument is satisfied, the block of data is moved to the 
terminal screen. Your search argument may be in one of 
three search and read modes. Table 6-5 shows the formats 
for these modes. When you use the search-and-read option, 
the only contents of the output message area message text 
should be the search argument in the mode you choose. 
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Report address option 


Input options with/without 
continuous output 





4. The search-and-read-transparent option performs the same 
function as the search-and-read option except the remote 
device handler removes all DICE sequences, SOE cursor 
sequence, and carriage return characters from the input 
message. 


Table 6-5. User Message Text for Searching Cassette/Diskette 


Ataaaa Mode search to position the tape to a particular 
or address and then read one block, where A, 1, or 
ttaaaa a is constant, and: 
or 
ataaaa 


t 
ls the track address (1 or 2). 


aaaa 
ls the address where the tape is 
to be positioned. 


Btaaaa/c...c Mode search to position the tape to a particular 
or address, search for a specific character string, 
2taaaa/c...c and read one block, where B, 2, or b is constant, 

or and: 


btaaaa/c...c t 


\s the track address (1 or 2). 


aaaa 
Is the block address. 


C...c 
Is the character string. Up to 
16 characters can be specified. 


Mode search to find the specified character 
string, where C, 3, orc is constant, and: 


t 
Is the track address (1 or 2). 


Ceaeve 
Is the character string. Up to 16 
characters can be specified. 
The search starts at the present 
tape position. 





The report-address option displays the address of the 
cassette/diskette device on the terminal screen. To use this 
option you must also use the continuous output feature and must 
specify the value 4 in the TEXT-LENGTH field of the output 
message area header. 


The two other options available for cassette/diskette are the 
search-and-position and backward-one-block options. Only these 
two input options can be used with either continuous or regular 
output messages. 








UP-9207 


SPERRY UNIVAC OS/3 6-44 
IMS ACTION PROGRAMMING IN COBOL AND BAL 








CONTINUOUS OUTPUT: AUXILIARY DEVICES 


Identifying continuous 
output code 


Using continuous 
output code 


a The search-and-position option positions the 
cassette/diskette to the block requested in the search 
argument that your action program suplies in the output 
mesage text. (See Table 6-6 for formats used in describing 
the search argument.) Your output message text cannot 
contain any other entries. 


= The backward-one-block option repositions the 
cassette/diskette one block in reverse. The AUX-DEVICE-NO 
field must be set and the TEXT-LENGTH field in the output 
message area must be 4. 


Table 6-6. User Message Text for Search and Positioning 


@taaaa Mode search to position the tape, where: 
or @, 0, or (grave accent mark) is constant, 
Otaaaa and: 
or 
“taaaa 


t 


ts the track address (1 or 2). 


Ssss 
Is the address where the tape 
is to be positioned. If specified 
as 0000, the tape is rewound. 





In addition to making the required settings in the AUX-FUNCTION 
and AUX-DEVICE-NO fields of the output message area header, 
you can also insert into the 4-character 
CONTINUOUS-OUTPUT-CODE field of the output message area 
header a code that identifies the continuous output message you 
generated. This code is returned to the successor program as 
part of a 5-character input message. If you do not specify a 
code, the first four characters of the input message generated by 
IMS for your external successor contains binary zeros. 


The CONTINUOUS-OUTPUT-CODE field assumes _ special 
importance when you use any of the four input options or the 
report address option for cassettes and diskettes. When you 
specify one of these options, IMS returns a delivery code to the 
successor program only if the message wasn't delivered. 
Otherwise, there is no input to the successor program until a 
message is transmitted from the cassette/diskette via the 
terminal screen. For any terminals performing these input options, 
unless the terminal operator always presses the transmit key, no 
input is transmitted to the successor program until the 
AUTO-TRANSMIT feature is set on to allow data to be 
transmitted from the cassette/diskette. 
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Precautions for screen When using a screen bypass terminal, set the control page for 

bypass terminals that terminal to take advantage of the autotransmit capability. If 
this is not done for any of these five input options and a 
successful delivery notice is returned by the cassette/diskette 
device, the screen bypass terminal stays in the interactive mode 
waiting for input it won't receive. 


Handling input message Because a successor action program may receive as input either 

or delivery code a delivery notice error or an input message from the cassette or 
diskette, the CONTINUOUS-OUTPUT-CODE specified by the 
predecessor action program should be distinguishable from the 
first four characters of any input message being read from the 
cassette or diskette. In this way, the successor program 
determines what type of input message it receives ({i.e., delivery 
notice error or input message text) and processes it accordingly. 
In either case, the successor action program must be capable of 
handling both unsuccessful delivery notices and standard input 
messages. 
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6.24. INITIATING A TRANSACTION AT ANOTHER TERMINAL 


Description Another special capability of an output message generated by an 
action program is to initiate a transaction at another terminal. We 
call this output-for-input queueing. It means that when an action 
program issues a CALL SEND, the output message generated by 
that program is queued as input to IMS for the destination 
terminal in the form of a transaction code that initiates a 
transaction there. 


ACTION 
INPUT MESSAGE PROGRAM 
: (PROG A) 


INPUT MESSAGE 


PROGRAM 
(TRAN1) 





Configuration requirement TO use the output-for-input queueing option, specify the 
CONTOUT=YES parameter in the OPTIONS section of the IMS 


configuration. 











UP-9207 SPERRY UNIVAC OS/3 6-47 
IMS ACTION PROGRAMMING IN COBOL AND BAL 








OUTPUT-FOR-INPUT QUEUEING 





6.25. CODING FOR OUTPUT-FOR-INPUT QUEUEING 


Transmitting output You must transmit any output message that initiates a 
messages for input transaction at another terminal using a SEND function. To do this, 
queueing 


your action program moves the hexadecimal value C9 or the 
character | to the AUX-FUNCTION field of the output message 
area header. This value tells IMS to queue the generated output 


Identifying receiving message as input to IMS from another terminal. You identify the 
terminal receiving terminal by moving its configured value to the 

DESTINATION-TERMINAL-ID field. Figure 6-14 shows the coding 
Example required to accomplish these functions. 


LINKAGE SECTION. 
01 PROGRAM-INFORMATION-BLOCK COPY PIB74. 


INPUT -MESSAGE-AREA COPY IMA. 
01 TEXT PIC X(100). 
OUTPUT -MESSAGE- AREA COPY OMA. 
02 SFS- IONS 
@3 SFS-TYPE PIC X. 
@3 SFS-LOCATION PIC X. 
FILLER PIC X(4). 
CONTINUOUS - OUTPUT - CODE PIC X(4). 
TEXT-LENGTH PIC 9¢4) COMP-4. 
AUXILIARY-DEVICE-ID. 
03 AUX- FUNC 
AUX-DEVICE-NO PIC X. 
@2 OUTPUT - TEXT PIC X(10@). 
PROCEDURE DIVISION USING PROGRAM- INFORMATION -BLOCK 
INPUT -MESSAGE-AREA 
OUTPUT -MESSAGE - AREA. 


GO-CONT-OUTPUT. 
ME ' TO AUX-F 





Figure 6-14. Initiating a Transaction at Another Terminal 
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OUTPUT-FOR-INPUT QUEUEING 


Output message 
transaction code 


Abnormal termination 
results 


Unsuccessful 


STATUS-CODE 
value 


Output-for-input 
queueing errors 


Output message text errors 


Termination indicators 


The only other requirement is that the output message must 
contain the transaction code that initiates the new transaction at 
the destination terminal. This code, and any other output 
generated along with it, is queued immediately as input to IMS 
for the destination terminal. 


lf, after issuing the SEND function using output-for-input 
queueing, the action program terminates abnormally, then the 
new transaction is still initiated at the destination terminal. 


If the destination terminal is in interactive mode when the SEND 
function is executed (that is, an IMS transaction is already in 
progress) or if it already has an outstanding input message 
queued for it, the output message sent using output-for-input 
queueing cannot cause scheduling of a new transaction. In this 
case, the action program issuing the SEND function receives an 
unsuccessful status-code in the program information block. (See 
6.27.) 


When an action program generates an output message and 
requests that it be queued as input to another terminal, IMS 
validates the output message area header and the status of the 
destination terminal. Any errors are indicated to the originating 
action program by values returned to the STATUS-CODE and 
DETAILED-STATUS-CODE fields in the program information 
block. Any errors in the text of the output message (such as, 
invalid transaction code) are not reported to the originating action 
program but rather to the action program processing the new 
transaction at the destination terminal. As a result, this program 
must be prepared to handle such error conditions, and_ if 
necessary, to report these conditions to the originating terminal. 


For a complete listing of error codes that IMS returns to the 
STATUS-CODE and DETAILED-STATUS-CODE fields of your 
action program following the SEND function, see Table D-2 . 


Generally, a program that generates output using the 
output-for-input queueing option terminates with normal 
termination; however, it can specify external succession. It 
cannot terminate with delayed internal succession. 
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6.26. OUTPUT-FOR-INPUT-QUEUEING WITH CONTINUOUS OUTPUT 


It is fairly common to use the output-for-input queueing and 
continuous output features together. For instance, one transaction 
could create the records you want printed and write them to a 
MIRAM file. The last stage of this transaction could then 
generate an output message using output-for-input queueing for a 
destination terminal where another transaction actually prints the 
records. The transaction initiated at the destination terminal reads 
the MIRAM file and prints the message as continuous output. See 
Figures B-24 and B-25 for sample COBOL action programs 
performing output-for-input queueing and continuous output. 


g ACTION 
INPUT MESSAGE PROGRAM fF 
(PROGA) 


INPUT MESSAGE | 
QUEUE 


_| ACTION 
PROGRAM 
mommy, | (PRINT) 


OUTPUT 


PRINTER 


REPORT 
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6.27. OUTPUT-FOR-INPUT QUEUEING WITH A SCREEN BYPASS DEVICE 


Initiating transactions at 
screen bypass terminal 





Another situation where you can use output-for-input queueing is 
with the UTS 400 screen bypass device. This device is defined 
to the communications network as a_ logical terminal. 
Nevertheless, because it is physically a separate buffer that can 
have a telecommunications printer attached to it, it has no way 
of sending input. Thus, the only way to access a screen bypass 
device is to use output-for-input queueing. Another terminal in 
the IMS network calls an action program to generate an output 
message that initiates a transaction at the screen bypass device. 
This must be a continuous output transaction and a report could 
be generated as output on a printer attached to the screen 
bypass device. 


ACTION 
INPUT MESSAGE PROGRAM 
{PROGA) 


INPUT MESSAGE 


ACTION | 
PROGRAM |. 


OUTPUT : 

Dk |] screen 
PRINTER BYPASS 
REPORT = DEVICE 
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6.28. SENDING MESSAGES TO THE SYSTEM CONSOLE 


Configuring console Your action program can send output messages to the system 

support console if console support is configured. You configure console 
support by specifying OPCOM=YES in the OPTIONS section of 
the IMS configuration or by not specifying a master terminal in 
any TERMINAL section. 


Terminal-id is To send output to the system console, place the terminal-id ICNS 
1CNS in the DESTINATION-TERMINAL-ID field of the output message 
header: 


MOVE ‘1CNS' TO DESTINATION-TERMINAL-ID. 


When IMS session has Sometimes an IMS session has a master workstation associated 

a master workstation with it. A master workstation is a workstation from which the 
IMS start-up job control stream is entered, or it may be defined 
in the job control stream. When there is a master workstation 
and you use the destination-terminal-id 1CNS, your output 
message goes to the master workstation instead of the console. 
When the master workstation logs off or is disabled, then the 
message goes to the console. 


Types of output you You can send normal output, multiple output, switched output, 

can send continuous output, and output-for-input queueing messages to 
the system console. However, there are certain restrictions on 
output to the console: 


Auxiliary devices You cannot send output to an auxiliary device at the system 

not supported console. The only auxiliary function settings you can use are 
hexadecimal OO, C3 (continuous output), or C9 
(output-for-input queueing). 


Message length The maximum length of the output message is 120 
restriction characters, not including the output message header. 
Additional characters are truncated. 


No screen formats Because of the message length restriction, you cannot output 
a screen format to the console. 


Messages not edited Output messages are not edited. DICE functions, FCCs, and 
other control characters appear as blanks, or in a few cases 
as printable characters. 


No message waiting There is no message waiting signal. Switched and multiple 
signal output messages are sent out immediately. 


UP-9207 


SYSTEM CONSOLE 


Auxiliary device 
error 


When console is down 


Switched and 
continuous output 
messages 


Other output messages 
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Error Returns on Output to the Console 


IMS returns a status code of 6 and detailed status code of 4 
when you attempt to send output to an auxiliary device at the 
system console. These are the same codes IMS returns when 
you have an invalid destination terminal, auxiliary device, or 
auxiliary function specification on output messages to regular 
terminals. 


When your output message can't be delivered because the 
console is physically or logically down, the action IMS takes 
depends on the type of output message. 


> 


With a switched message, IMS returns a status code of 6 
and detailed status code of 6. With a continuous output 
message, IMS returns a delivery notice status of X‘86’. 
These codes indicate recoverable system errors. 


With other types of output messages (such as normal output 
in response to input from the console), IMS returns a 
successful status code of 0. The reason IMS does this is 
that an error status would cause a ‘TRANSACTION 
CANCELLED’’ message to be sent to the console, and this 
could cause an abnormal termination of the IMS session. 
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USING IMS SPECIAL FEATURES 
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7. Using Screen Format Services 
to Format Messages 


7.1. REQUIREMENTS FOR USING SCREEN FORMAT SERVICES 


Saves programming effort 


BUILD and REBUILD 
functions 


Terminals supporting 
screen formats 


Terminal restrictions 


Screen formats 
generated offline 


Formats stored for 
later use 


Data management 
mode considerations 


The OS/3 screen format services facility lets you display 
predefined formatted screens at terminals without tedious 
programming of DICE codes and other control characters. In 
addition, screen format services does validation checking of input 
data. As you know, screen formats simplify the task of data 
entry and are an essential tool in a transaction processing 
environment. 


To display screen formats, issue the BUILD and REBUILD function 
calls in your action program. The BUILD function places the 
predefined screen format you request in the action program or in 
a dynamic main storage area; the REBUILD function replenishes 
input fields or builds an error formatted screen. 


You can direct screen formats to any display terminal supported 
by IMS except the IBM 3270, and also to auxiliary devices 
attached to display terminals. You cannot output screen formats 
to hard copy terminals. 


UNISCOPE 100 and UNISCOPE 200 terminals must have the 
screen protection feature, and UTS 400 terminals operating in 
native mode must have the PROTECT/FCC switch set to FCC 
and the control page set to XMIT VAR. For local workstations, 
specify a line buffer length of at least 900 words on the LBL 
operand in the ICAM network definition. 


You predefine screen formats offline using the screen format 
generator. (See the screen format services concepts and 
facilities, UP-8802, current version.) The screen format generator 
stores the formats in the system screen format file $Y$FMT or 
other disk file in MIRAM format. The screen formats for an IMS 
session may reside in one or two screen format files. 


To use screen format services, you must generate a supervisor in 
consolidated data management (CDM) or mixed mode. However, 
you can configure IMS in either CDM or DTF mode. 
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Configurator requirements 


Start-up requirements 





To make screen format services available to action programs, 
include the SFS parameter in the OPTIONS section at IMS 
configuration, specifying the maximum number of terminals that 
may use screen formats at one time. With the RESFMT 
parameter, also in the OPTIONS section, specify the number of 
screen formats you want retained in main storage between 
function calls. 


In the job control stream at IMS start-up, include a device 
assignment set for each screen format file, using the LFD name 
TCO1FMTF for the primary file and TCO2FMTF for the secondary 
file, if there is one. 


The IMS system support functions user guide, UP-8364 (current 
version) describes the configuration and start-up requirements. 


Figure 7-1 illustrates the steps you require to create and use 
screen formats with IMS. 


CREATE SCREENS 
USING OS/3 
SCREEN FORMAT 
GENERATOR 


WRITE ACTION Seaeens. tt -eeacen 
PROGRAMS USING eoeniat sl Seon 

BUILD AND REBUILD :s v ils 
FUNCTION CALLS ce 


CONFIGURE IMS 
WITH SFS=n AND 
RESFMT =n IN 
OPTIONS SECTION 


PROCESS 
TRANSACTIONS 
USING 
SCREEN FORMATS 


START UP IMS 
WITH DEVICE 
ASSIGNMENTS FOR 
SCREEN FORMAT 
FILES 





Figure 7-1. Creating and Using Screen Formats 
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7.2. HOW SCREEN FORMATTED MESSAGES ARE PROCESSED 


Requesting a screen format Your action program requests a screen format by issuing a BUILD 
function call. IMS retrieves the screen format from the screen 
format file. (When you assign two screen format files, IMS 
checks TCO1FMTF first, then TCO2FMTF.) IMS places the screen 
format in an output buffer area in your program or in dynamic 
main storage. 


Output display constants The screen format placed in the buffer area contains the output 
display constants defined at screen format generation. These 
constants are always protected; the terminal operator cannot 
change them. 


Variable data inserted IMS inserts into the screen buffer any variable data you supply in 

fate screen: Dudet the action program. Figure 7-2 shows a screen format containing 
display constants and variable data. Underlines represent input 
fields. 


PERSONAL CREDIT REPORT 


NAME: JOHN DOE 
ADDR:1552 MAIN ST. STATE:PA ZIP219146 


ACCOUNT NO: 193-A564 
BALANCE 3350.00 
PAYMENT: 





Figure 7-2. Screen Format with Display Constants, Variable Data, and Input Fields 


Input and input/output Variable fields defined at screen format generation as input or 

fields input and output are unprotected. The terminal operator can enter 
data in input fields and can make changes to input/output fields. 

Output-only fields Fields defined as output-only are protected. In Figure 7-3, the 
terminal Operator has changed the address field and entered a 
payment amount and date. 


PERSONAL CREDIT REPORT 


NAME: JOHN DOE 
ADDR:224 PINE ST. STATE:PA ZIP219102 


ACCOUNT NO: 193-A564 
BALANCE : 350.00 
PAYMENT:25.00 DATE: 12/23/80 





Figure 7-3. Screen Format with Input Entries and Changed Address Field 
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RETURN and SEND 
functions 


Output-only screens 
required for: 
SEND function 
continuous output 
delayed internal 
succession 


input/output screens 
used with: 
external succession 
normal termination 


Transaction code required 
with normal termination 


Input checked for 
terminal commands 


Like any other output message, screen formats are not actually 
sent to the terminal until a RETURN function call ends the action. 
You can also output a screen format by issuing a SEND function 
call. The CALL SEND lets you send a formatted message to a 
different terminal or multiple formatted messages to the 
originating terminal. 


ACTION 
PROGRAM 





When you use the SEND function or continuous output to 
transmit a screen format, the format must be output-only, 
because the terminal operator does not have an opportunity to 
enter input. Also, when your action program ends in delayed 
internal succession, you can use only an output format. Instead 
of going out to the terminal, the screen format is queued as input 
to the successor action program. 


You can transmit an input/output screen format by terminating 
the action program with external succession or normal 
termination. The terminal operator enters input on the format, 
and IMS schedules a successor action program or a new 
transaction based on this input. 


For normal termination, the first input or 
input/output field in the format must 
contain a transaction code. IMS verifies 
the transaction code and if it is invalid, 
resends the screen format and causes the 
transaction code to blink. The terminal 
operator can reenter the input message. 





IMS also checks the input for terminal commands. If the input 
contains a terminal command other than ZZRSD, IMS processes 
the command and cancels the screen format. 
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Results when ZZRSD Normally, ZZRSD causes the last output message to be sent 
is entered again, thus retaining the current screen format. However, if the 
screen format is built in dynamic main storage instead of the 
output message area, it can’t be sent again and the screen 
format is canceled. The terminal operator receives a ‘‘NO MSG IN 
QUEUE” message and can't enter input on the formatted screen. 
Input validation When the input does not contain a terminal command or invalid 
transaction code, the screen format coordinator validates the 
data before IMS passes it to the successor action program. IMS 
does no additional input editing regardless of the type of editing 
configured for the action. 
When input data is If the input contains errors, the screen 
invalid format coordinator blinks the invalid fields. 
The terminal operator can correct the input 
until the retry count specified at screen 
format generation time is reached. Once 
the retry count is exhausted, the successor 
action program receives control. 
Additional input Your action program can validate input data on a more detailed 
validation 


level than the screen format coordinator. When an _ action 
program determines that input data is invalid, you can issue the 
Building an error REBUILD function call to construct an error screen format. IMS 
creer replaces fields in which you place hexadecimal F’s with blink 
characters. Then, when your program issues a RETURN function 
call, the error fields blink on the screen format at the terminal 
and all other fields remain unchanged. 
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Replenishing input fields 


Use option indicators 
to make temporary 
changes to format 


REBUILD function 
restriction 





You can also use the REBUILD function 
call to replenish input and input/output 
fields instead of constructing a new screen 
format for each input record. After the 
terminal operator transmits an_ input 
screen, the input data is replaced by 
underlines (or other replenish values 
defined at screen format creation). 


You can make temporary changes to a screen format by defining 
option indicators at screen format generation time and setting the 
indicators on before issuing a BUILD function call. 
indicators let you protect fields that are normally unprotected, 
highlight fields, blink error fields, and replenish input fields. For 
example, you can build an error screen or replenish screen by 
using option indicators and issuing a BUILD instead of a REBUILD 
function call. You cannot use the REBUILD function with a screen 


format that has option indicators defined. 


Option 
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7.3. DISPLAYING A SCREEN FORMAT 


Defining output buffer 


Identifying destination 
terminal 


Setting text length 


Requesting dynamic 
main storage 


Identifying screen format 


Defining variable 
data area 


Setting option 
indicator bytes 


Defining output status 
area 


Issuing BUILD call 


Overriding input format 


issuing RETURN or 
SEND call 


DO the following in your action program to display a screen 
format... 


1. 


10. 


Define an output buffer (usually the output message area). This area must 
be full-word aligned and begin with a 16-byte output message header. 
When you use the dynamic main storage option, you still need the output 


message header. 


Move the destination terminal-id into the first 4 bytes of the output 
message header. This step is optional when you want to display the 


screen format at the source terminal. 


When you want the screen format built in the output buffer, move the 
output buffer length into the TEXT-LENGTH field of the output message 
header. (See the formula described on the OUTSIZE parameter in the 
configurator ACTION section in the IMS system support functions user 
guide, UP-8364 (current version).) On return from a successful BUILD 


function, IMS places the actual length required for the format in this field. 


When you want the screen format built in dynamic main storage, move 
C’D’ to SFS-LOCATION (COBOL) or set ZA#SFDYN in ZA#SFLOC (BAL). 


Define an 8-byte field containing the name of the screen format. This area 


must be left-justified and space-filled. 


When your screen format uses output option indicators or variable data, 
define a variable data area and a 2-byte field containing the length of the 
variable data area. Define option indicator bytes, if any, as the first entries 
in the variable data area. To set option indicators on, move C'1' to the 


option indicator byte locations before issuing the BUILD function call. 


When you want the screen format coordinator to validate output data, 
define an output status area large enough to contain one status byte for 


each variable field. 
Issue the BUILD function call. 


lf you defined an input or input/output screen at screen format generation 
time and want to use the screen for output-only, move the value X‘O’ to 
the SFS-OPTIONS field (COBOL) or ZA#OSFSO field (BAL) of the output 


message header. 


Issue the RETURN or SEND function cail. 
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Restriction 


Clearing SFS-LOCATION 


Once an action program issues the BUILD function, do not 
change the contents of the buffer area. Modifying the area can 
cause unpredictable results in both the output screen and any 
input entered on the format. 


If you want to send a message from the output message area 
after building a screen format in dynamic main storage, clear the 
SFS-LOCATION field to zeros in a COBOL program or move 
X‘00’ to the ZA#SFLOC field in a BAL program. This might be 
necessary, for example, when you output a screen format using 
the SEND function and then want to output a nonformatted 
message with the CALL RETURN. 
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7.4. BUILDING A SCREEN BUFFER (BUILD) 


BUILD function constructs 
screen buffer 


COBOL format 


BAL format 


Output-buffer 


Format-name 


Variable-data 


Data-size 


Output-status 


The BUILD function call constructs a screen buffer in the output 
buffer or in dynamic main storage. The screen buffer contains the 
display constants defined at screen format generation time and 
any variable data defined in the program. 


The COBOL and BAL formats for the BUILD function call are: 
= COBOL format 


CALL 'BUILD' USING output-buffer format-name 
{variable-data data-size [output-status]]. 


a BAL format 


ate BUILD, (output-buffer, format-name[,variable-data, 
ZGHCALL data-size [,output-status]]) 


Output-buffer identifies the output area where the screen format 
is built. This area is full-word aligned and begins with a 16-byte 
output message header. When you use the dynamic main storage 
option, this area contains only the output message header. 


Format-name identifies an 8-byte field containing the name of the 
desired screen format. 


Variable-data identifies an area containing output option indicator 
bytes (if any) followed by a string of variable data (if any). Omit 
this parameter when your screen format does not use either 
option indicators or variable data. 


Data-size identifies a 2-byte field containing the length of the 
variable data area. This parameter is required when you specify a 
variable data area. 


Output-status identifies an area where the screen format 
coordinator places status errors found in the output validation of 
variable data. If omitted, no output validation is performed. 
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7.5. EXAMPLE CODING TO DISPLAY A SCREEN FORMAT 





Description of sample Figure 7-4 shows excerpts from a COBOL action program that 

coding builds a screen format in the output message area. The program 
provides two variable data fields (date and time) and a status 
area for output validation. The complete action program, 
JAMENU, is illustrated in Appendix B. Figure 7-5 shows the 
equivalent coding in a BAL action program. 


DATA DIVISION. 

WORKING-STORAGE SECTION. 

@1 SCREEN-FORMAT-IDS. 
@5 SF-MENU 


LINKAGE SECTION. 


WORK - AREA. 


PIC X(8) VALUE 'JASMENU '. 


@5 IMS-PARAMETER-LIST. 


10 IMS-SCREEN-ID 
10 SCREEN-SIZE 
SCREEN-RECORD. 

10 SR-DATE 

10 SR-TIME 
REFORMAT -DATE. 

16 P-MONTH 

10 P-DATE 

10 P-YEAR 
SG-STAT 


OUTPUT -MESSAGE-AREA. 
@5 OMA-TEXT 


PROCEDURE DIVISION 





X(8). 
9(4) COMP SYNC. 





9(6). 
9(6). 


99. 
99. 
99. 


COPY OMA. 
X(3000). 


USING PROGRAM- INFORMATION -BLOCK 
INPUT -MESSAGE-AREA 
WORK - AREA 
OUTPUT -MESSAGE- AREA 
CONTINUITY -DATA-AREA. 





Figure 7-4. Building a Screen Format in a COBOL Action Program (Part 1 of 2} 
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20@-BUILD-SCREEN. 
MOVE SOURCE-TERMINAL-ID TO DESTINATION-TERM-ID. 
MOVE SF-MENU TO IMS-SCREEN-ID. 
MOVE ALL'®@' TO SCREEN-RECORD. 
MOVE REFORMAT -DATE TO SR-DATE. 
MOVE TIME-OF-DAY TO SR-TIME. 
MOVE 12 TO SCREEN-SIZE. 
PERFORM 505-BUILD. 


5@5-BUILD. 

CALL 'BUILD' OUTPUT -MESSAGE- AREA 
IMS -SCREEN- ID 
SCREEN-RECORD 
SCREEN-SIZE 
SG-STAT. 

IF STATUS-CODE IS GREATER THAN @ 

MOVE '3' TO ERR-FLAG. 


507-RETURN. 
CALL 'RETURN'. 





Figure 7-4. Building a Screen Format in a COBOL Action Program (Part 2 of 2) 
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1 10 


16 





PROG1 START 


® 


* ALLOCATE REGISTERS TO COVER ACTIVATION RECORD 


USING 
USING 
USING 
USING 
USING 
USING 


® R2 
ZAHDPIB,R3 
ZAHIMH,R4 
WORK ,R5 
ZAHOMH ,R6 
CONT-DTA,R7 


INITIALIZE REGISTERS 


SCREEN 


MVC 


MVC 
MVC 
MVC 
MVC: 
MVC 
MVC 
MVC 
B 


SCRNBLD 
cLI 
BNE 
B 


BLDERR 


TERM 
* CONSTANTS 
SFMENU 

ZEROS DC 


TWELVE DC 
* 


ZAHODTID, ZAHISTID 


SCRNIO,SFMENU 
SCRNREC( 12), ZEROS 
SRDATE(2), ZAHDTE+2 
SRDATE+2(2),ZAHDTE+4 
SRDATE+4, ZAHDTE 
SRTIME, ZAHTME 
SCRNSIZ, TWELVE 
SCRNBLD 


ZAHPSC+1,X'OO! 
BLDERR 
TERM 


ZGHCALL RETURN 


CL8'JAMENU ' 
CL12'000000000000' 
XL2'0C' 


* ACTIVATION RECORD DEFINITION 
ZMH#OPIB 
ZMHDIMH 


WORK 

PRMLST 
SCRNID OS 
SCRNSIZ OS 
SCRNREC 
SRDATE DS 
SRTIME DS 
SGSTAT OS 
OMAREA 
OMATEXT ODS 


* 


CL8 
XL2 
* 

CL6 
CL6 
CL5 


ZMHDOMH 
CL 3000 


MOVE SOURCE-TERMINAL-ID TO 
DESTINATION- TERMINAL - ID 

MOVE SCREEN NAME TO SCREEN-ID 
CLEAR DATE/TIME FIELD 

MOVE PIB DATE TO SCREEN RECORD 
AFTER REFORMATTING DATE 


MOVE PIB TIME TO SCREEN RECORD 
SET SCREEN SIZE 


ZGHCALL BUILD, (OMAREA, SCRNID,SCRNREC,SCRNSIZ,SSGSTAT) 


ERROR CHECKING 


SCREEN FORMAT NAME 


WORK AREA 


SCREEN IDENTIFICATION 
SCREEN SIZE 


OUTPUT MESSAGE TEXT AREA 





Figure 7-5. Building a Screen Format in a BAL Action Program 
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Restriction 


Output buffer length 


Coding for dynamic 
main storage 


Coding option indicator 


© bytes 


Setting option indicators 
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Note that the COBOL action program moves zeros to the variable 
data area before entering values. Do not use the LOW-VALUES 
figurative because it translates to binary zeros. 


The example action programs do not move the output buffer 
length into the TEXT-LENGTH field, but we recommend that you 
do so when building a screen format in the output buffer. This is 
not necessary when you want to build a format in dynamic main 
storage. 


To build a format in dynamic main storage, include the following 
statement in a COBOL action program: 


MOVE 'D' to SFS-LOCATION. 


In BAL, code the following instruction: 


1 10 16 





MVI ZAHSFLOC,ZAHSFDYN 


When your screen format uses both output option indicators and 
variable data, code the option indicator bytes as the first entries 
in the variable data area. For instance, if you defined option 
indicators that highlight certain fields on the screen format 
displayed by the COBOL action program in Figure 7-4, the 
variable data area might look like this: 


@5 SCREEN-RECORD. 


10 OPTION-INDICATOR- 1 PIC X VALUE '6' 
10 OPTION-INDICATOR-2 PIC X VALUE '@' 
10 SR-DATE PIC 9(6) 
10 SR-TIME PIC 9(6) 


Then, to turn either option indicator on, move ‘1° to 
OPTION-INDICATOR-1 or OPTION-INDICATOR-2. 


Remember to include the option indicator bytes in the length of 
the variable data area: 


MOVE 14 to SCREEN-SIZE. 
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7.6. ERROR RETURNS FROM THE BUILD FUNCTION 
Types of error returns Action programs can receive two types of error returns: 


1. Status codes and detailed status codes in the program 
information block when the BUILD function is unsuccessful. 


2. Error codes in the variable data area when the screen format 
coordinator finds output validation errors. 


Unsuccessful BUILD When the BUILD function call is unsuccessful, no screen buffer is 
function constructed and IMS returns one of the following pairs of status 
and detailed status codes to the program information block: 


Status and detailed Status Detailed 
status codes Code Status Code Explanation 
(Decimal) (Decimal) 


Named format cannot be found 
Incorrect number of parameters 
Invalid parameter value 

Screen format services not configured 
Invalid terminal name or type 

Output validation error 


Buffer area not large enough; IMS places the 


actual length required for the format in the 
TEXT-LENGTH field 


Variable data area not large enough 


Not enough terminals configured 


Variable-data parameter specified when no 
variable data area exists 


Format size larger than screen size 
1/O error reading screen format file 


Screen format incorrectly generated 
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Output validation errors 


Output validation 
error codes 


Status Detailed 
Code Status Code Explanation 
(Decimal) (Decimal) 


System error 


Inadequate main storage available in system; 


or format contains protected fields and 
terminal does not have protect feature or is 
not in protect mode 


Screen format services error 
Action program processing DDP transaction 


attempted to send screen format to initiating 
action program. 





See Appendix D for a complete listing of status and detailed 
status codes in hexadecimal. 


When you define variable data and an output status area in your 
program, the screen format coordinator validates the variable 
data. When validation errors occur, the screen format coordinator 
places X‘FF’ into each error field in variable data area and one of 
the following error codes into the status byte for each invalid 
field: 





1 Nonnumeric value defined for a numeric field 

2 Nonalphabetic value defined for an alphabetic field 
5 Range check failure 

6 Numeric field not in packed decimal format 
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7.7. RECEIVING FORMATTED INPUT IN THE SUCCESSOR PROGRAM 


Termination types allowed As we already mentioned, you can display an input or 


Function key input 


External succession 


Receiving formatted input 





input/output screen format only when the action program 
terminates with external succession or normal termination. The 
terminal operator enters input on the format, and IMS schedules 
a successor action program or a new transaction based on this 
input. 


The operator can enter a function key instead of formatted input, 
if the action program is prepared to accept it. A function key 
cancels the screen format. 


When the action program displaying the screen format terminates 
with external succession, IMS schedules the action program 
named in the SUCCESSOR-ID field of the program information 
block and sends the input data entries to the successor 
program's input message area. 


In the JAMENU action program in Appendix B, the same COBOL 
action program displays a screen format and also accepts input 
entered on the format. After building the screen format, JAMENU 
terminates with external succession, naming itself as successor. 
Figure 7-6 shows the screen format JAMENU displays, and 
Figure 7-7 shows the input message fields to receive the 
formatted input. 


06/23/81 06:49:28 JASMENU 02/09/81 
ENTITLEMENT ACCOUNTING SYSTEM 


SELECT ONE (1) OF THE FOLLOWING OPTIONS: 

1. ADD A NEW CUSTOMER RECORD. 
*2. UPDATE CUSTOMER NAME/ADDRESS INFORMATION. 
*3. UPDATE BRANCH CUSTOMER INFORMATION. 
*4, UPDATE CUSTOMER ENTITLEMENTS. 
*5. DELETE A CUSTOMER RECORD. 
*6. DISPLAY CUSTOMER INFORMATION. 

7. LIST ALL ACCOUNTS (ON THE WORKSTATION). 
8. ENTER WORKSTATION ACTIVITY RECORDS. 

9. LOGOFF SYSTEM. 


Input 
*ENTER CUSTOMER NUMBER Message 


MENU SELECTION: __ Fields 
PLACE CURSOR HERE T 


Figure 7-6. Screen Format Displayed by JAMENU Action Program 
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Normal termination 


Defining a transaction 
code as input/output 
variable 


Example screen format 
displaying transaction 
codes 
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@1 INPUT-MESSAGE-AREA. COPY IMA. 


IMA-SCREEN-REC REDEFINES IMA-PASS-1. 


19 SR-CUST-NBR PIC 9(6). 
19 SR-MENU PIC 99. 
10 SR-TRSMIT PIC X. 
10 FILLER PIC X¢4). 





Figure 7—7. Input Message Area Fields for Formatted Input 


In the case of normal termination, the first input field in the 
format must contain a valid transaction code, because IMS must 
schedule a new transaction to receive the input data. IMS sends 
the input data, including the transaction code, to the action 
program named in the configurator TRANSACT section. 


A convenient way to ensure that the terminal operator enters the 
appropriate transaction code in the first input field is to define 
that field as an input/output variable. Display the transaction 
code, and when the terminal operator transmits the screen the 
transaction code is automatically entered as input data. 


Figure 7-8 shows an input/output screen format displayed in 
response to the CSCAN transaction code. Initially, the cursor is 
positioned after the CSCAN transaction code. To list more names 
and addresses, the terminal operator simply presses the transmit 
key and the CSCAN transaction is rescheduled. To get details 
about a_ certain customer, the operator positions the 
start-of-entry character and cursor on the line for that customer 
and transmits. This schedules the CDETL transaction. (The 
CSCAN and CDETL action programs in Appendix B do not use 
screen format services but could have generated the same 
screens with screen format services.) 
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Programming efficiency 


Input option indicators 


CSCAN 67009 RILEY 805238 


DCDETL 181089 FISH 17 CHERRY 07006 
DCDETL 091479 HAFLEIGH 3 HIGHFIEL 07006 
PCDETL 139915 LAMBKA DIRECTOR H 67006 
PCDETL 044246 LONGENECKER 20 RICHARD 07006 
PCDETL 179363 MAGEDMAN 27 CEDARS 07006 


PCDETL 122399 MCLAUGHLIN 17 SPRUCE 07006 
PCDETL 865257 ROGERS 51 RAVINE 07006 
DCDETL 152069 WILLIAMS 6@ MCKINLE 07006 
DCDETL 181050 ROHRER 219 CARTER 07008 
DCDETL 029997 BOONE 64 BRUNSWI 07009 





Figure 7-8. Displaying Transaction Codes in Input/Output Fields 


Although you can display an input/output screen format using 
either external succession or normal termination, external 
succession is more efficient. For a complete example of an action 
program using a screen format with external succession, see the 
JAMENU program in Appendix B. JAMENU also uses immediate 
internal succession to pass control to succeeding action 
programs that process the menu selection entered by the 
terminal operator. 


NOTE: 


You can define certain input option indicators at screen format 
generation time. IMS does not support these input option 
indicators. However, if you defined any input option indicators for 
this screen format, perhaps for use with another program, you 
must code option indicator bytes as the first entries in the input 
message area. 
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7.8. VALIDATING INPUT DATA 


Invalid entries The screen format coordinator validates the input data entered at 
the terminal and blinks invalid fields. The terminal operator can 
correct the invalid entries until the retry count specified at screen 
format generation time is reached. At that point, IMS schedules 

IMS sets status and the successor program and places a 7 in the STATUS-CODE field 

Petalled cieins: Codes and O in the DETAILED-STATUS-CODE field in the program 
information block. 


Input status bytes The input data is followed by one status byte for each input field. 
You must allow space for these fields in your input message 
area, but the length field in the input message header includes 
only the input data items and not their status bytes. When 

Error fields filled validation errors occur, the screen format coordinator places an 

error code into the status byte for the invalid fields and replaces 

the invalid fields with X‘FF’. The input validation error codes are: 


with X’FF’ 


Input validation error 
codes 












ESS 


Nonnumeric keyin for a numeric field 
Nonalphabetic keyin for an alphabetic field 
Incorrect number of characters entered 
Decimal point alignment error 


Range check failure 


When your program receives a validation error, you will probably 
want it to send a message to the terminal operator and terminate 
the transaction. 
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7.9. DISPLAYING AN ERROR FORMAT OR REPLENISH SCREEN 


Using the REBUILD function After the terminal operator enters input on a screen format and 


Constructing error screen 


Constructing replenish 
screen 


Identifying error fields 


Defining output buffer 


Where screen is built 


Output buffer length 


Dynamic main storage 


Use RETURN function, 
not SEND function 


Termination types allowed 


the screen format coordinator validates the input, you can retain 
the format at the terminal and make changes to it by issuing a 
REBUILD function call. You can use the REBUILD function in two 
different ways: 


1. Construct an error screen. Your action program performs 
additional validation of input fields and fills the input fields 
that are in error with X’FF’ (HIGH-VALUES). When you issue 
the REBUILD, the screen format generator blinks any input 
fields filled with X‘FF’. 


2. Construct a replenish screen to prompt the terminal operator 
for the next input. When you issue the REBUILD function 
call, the screen format generator replaces input and 
input/output fields with underlines or other replenish value 
defined at screen format generation. 


When you want to build an error screen, identify the area 
containing the error fields (usually the input message area) with 
the variable-data parameter on the REBUILD function. Omit this 
parameter when you want to build a replenish screen. 


As with the BUILD function, you must define an output buffer, 
full-word aligned and starting with a 16-byte output message 
header. 


You can request that the error or replenish screen be built in the 
output buffer or in dynamic main storage. However, because of 
the smaller size of the message you send with the REBUILD 
function, you may want to use the output buffer instead of 
dynamic main storage. 


lf you want the screen built in the output buffer, move the output 
buffer length into the TEXT-LENGTH field of the output message 
header. (To determine the output buffer length, allow 
approximately 10 bytes per blinking field or replenish field plus 
25 bytes for overhead.) To build the screen in dynamic main 
storage, move C’D’ to SFS-LOCATION (set ZA#SFDYN_ in 
ZA#FLOC). 


After issuing the REBUILD function to construct an error or 
replenish screen, issue the RETURN function to send the screen 
to the terminal. Never use the SEND function with a CALL 
REBUILD, because the error or replenish screen requests input 
from the terminal operator. For the same reason, you must 
terminate the action program with external succession or normal 
termination. 
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Using option indicators You can also build an error or replenish screen (or a combination) 

instead of REBUILD by using option indicators and issuing a second BUILD function 

funesion call instead of the REBUILD function. When you build an error 
screen this way, you do not have to fill the error fields with 
X'FF’. Set the appropriate indicators on by moving C'1' to the 
option indicator byte locations before issuing the BUILD function 
call. You cannot use the REBUILD function with a screen format 
that has any option indicators defined. 


7.10. BUILDING AN ERROR OR REPLENISH SCREEN (REBUILD) 


REBUILD function The REBUILD function call constructs an error or replenish screen 
Porshets: erga in the output buffer or in dynamic main storage. The screen 
replenish screen ; ‘ : : 
format from the previous BUILD function remains in effect at the 
terminal, and error fields are blinked or input fields are 
replenished. 


The COBOL and BAL formats for the REBUILD function call are: 


| COBOL format 


COBOL format CALL 'REBUILD' USING output-buffer [variable-data]. 


a BAL format 


BAL format ie REBUILD, (Coutput-buffer[,variable-data]) 
ZGHCALL 
Output-buffer Output-buffer identifies the output area where the error or 


replenish format is built. This area is full-word aligned and begins 
with a 16-byte output message header. When you use the 
dynamic main storage option, this area contains only the output 
message header. 


Variable-data Variable-data identifies an area containing the input message 
fields including error fields. This is usually the input message 
area. 


Include for error screen, | \W/hen you include the variable-data parameter, the screen format 

omit for replenish screen — coordinator blinks all fields filled with X‘FF’. When you omit this 
parameter, the screen format coordinator replaces all input and 
input/output fields with the replenish value you defined at screen 
format generation, usually underlines. 
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Assuming you displayed the screen format shown in Figure 7-6 
using the BUILD function, Figure 7-9 shows an example of the 
COBOL coding to validate the menu selection field and display an 
error screen using the REBUILD function. Figure 7-10 shows this 
coding in a BAL action program. 


Note in the COBOL coding that the input fields are redefined as 


alphanumeric. 


This is necessary because you cannot move 


HIGH-VALUES to a numeric field. 


@1 INPUT-MESSAGE-AREA. COPY IMA. 


IMA-SCREEN-REC REDEFINES IMA-PASS-1. 


10 
10 
10 
10 
10 
10 


SR-CUST-NBR PIC 9(6). 
SR-CUST-NBR-ERR REDEFINES SR-CUST-NBR PIC X(6). 
SR -MENU PIC 99. 

SR-MENU-ERR REDEFINES SR-MENU PIC XxX. 

SR-TRSMIT PIC X. 

FILLER PIC X(4). 





01 OUTPUT-MESSAGE-AREA. COPY OMA. 
@5 OMA-TEXT PIC X(3000). 


PROCEDURE DIVISION USING PROGRAM- INFORMATION- BLOCK 
INPUT -MESSAGE- AREA 

WORK - AREA 

OUTPUT -MESSAGE-AREA 
CONTINUITY-DATA- AREA. 


255-VALIDATE-MENU-SEL. 
IF SR-MENU < 1 OR > 9 
MOVE HIGH-VALUES TO SR-MENU-ERR 
PERFORM 506-REBUILD 


ELSE 


PERFORM SET-MENU. 








Figure 7-9. Building an Error Screen in a COBOL Action Program (Part 1 of 2) 


UP-9207 








SPERRY UNIVAC OS/3 7-23 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





DISPLAYING ERROR OR REPLENISH SCREEN (REBUILD) 





506-REBUILD. 
MOVE 100 TO TEXT-LENGTH. 
CALL ‘REBUILD! USING OUTPUT -MESSAGE-AREA 
IMA-SCREEN-REC. 


IF STATUS-CODE IS GREATER THAN @ 
MOVE '3' TO ERR-FLAG. 
507-RETURN. 
CALL 'RETURN'. 





Figure 7-9. Building an Error Screen in a COBOL Action Program (Part 2 of 2) 


1 10 16 








* VALIDATE MENU SELECTION 
CLI SRMENU,X'F1! 
BL REBLD 
CLI SRMENU,X'F9! 
BH REBLD 


* BUILD ERROR SCREEN 
REBLD MVC ZAHOTL ,MSGSIZE SET TEXT-LENGTH FIELD 
ZGHCALL REBUILD, (OMAREA, IMAREC) 
CLI ZAHPSC+1,X'OO' ERROR CHECKING 
BNE BLDERR 
B TERM 
BLDERR 


TERM ZGHCALL RETURN 
* 

* CONSTANTS 

MSGSIZE DC H' 100! 


* ACTIVATION RECORD DEFINITION 


ZMHDIMH 


Figure 7-10. Building an Error Screen in a BAL Action Program (Part 1 of 2) 
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Coding to display 
a replenish screen 


Setting option indicators 














IMAREC = 
SRCUST CL6 INPUT MESSAGE FIELDS 


SRMENU CL2 
SRXMIT CL5 
OMAREA ZMHDOMH 
OMATEXT DS CL3000 


Figure 7-10. Building an Error Screen in a BAL Action Program (Part 2 of 2) 


To build a replenish screen, you need only move a value to the 
TEXT-LENGTH field (or move C’'D’ to SFS-LOCATION to build the 
screen in dynamic main storage) and issue the REBUILD function 
call without the variable-data parameter: 


MOVE 100 TO TEXT-LENGTH. 
CALL 'REBUILD' USING OUTPUT -MESSAGE - AREA. 


To build an error or replenish screen using option indicators and 
the BUILD function, use the same coding used to display the 
screen format initially, except that you move C’1’ to the 
appropriate option indicator bytes before issuing the BUILD 
function. (See 7.5.) 
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7.12. ERROR RETURNS FROM THE REBUILD FUNCTION 


Unsuccessful REBUILD When the REBUILD function call is unsuccessful, no error format 
or replenish screen is constructed and IMS returns one of the 
following pairs of status and detailed status codes to the 
program information block: 


function 


Status and detailed 
status codes 


7 1 
7 5 
7 6 
7 7 
7 8 
7 9 





Internal error 

Buffer area not large enough; IMS places the 
actual length required for the format in the 
TEXT-LENGTH field. 

Internal error 


1/O error reading screen format file 


REBUILD not allowed because screen format 
has no input fields 


Invalid field in variable data area 


Variable-data parameter specified but no error 
field detected 


System error 


See Appendix D for a complete listing of status and detailed 
status codes in hexadecimal. 
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7.13. DISPLAYING A SCREEN FORMAT ON AN AUXILIARY DEVICE 


Setting output message 
header fields 


Print and transfer 
options 


Restrictions 


To output a screen format to an auxiliary device, you place 
values in the AUX-FUNCTION and AUX-DEVICE-NO fields in the 
output message header before issuing the BUILD function call. 
The AUX-FUNCTION setting tells IMS which print or transfer 
option to use, and the AUX-DEVICE-NO identifies the auxiliary 
device. 






You can use the BUILD function call to 
Output a screen format to an auxiliary 
device — printer, cassette, or diskette - 


attached to a display terminal. 


Ee 





Table 7-1 lists the print and transfer options IMS supports for 
writing of screen formats and the settings for the AUX- 
FUNCTION field in continuous and noncontinuous output modes. 
For an explanation of the print and transfer options, see 6.19. 


Because the terminal operator cannot enter input at an auxiliary 
device, the screen format must be output-only. For the same 
reason, you cannot use the REBUILD function call to write an 
error or replenish screen to an auxiliary device. 


NOTE: 


When you build a screen in dynamic main storage, all values, 
including auxiliary device numbers and functions, must be present 
in the output message header before you issue the CALL BUILD. 
If any header values (except SFS-options) are changed after the 
CALL BUILD, the new values are ignored. 
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Table 7-1. Print/Transfer Options for Writing Screen Formats to Auxiliary Devices 



















Print Mode X F3 3 X 
(recommended) 1) 
Xx F5 5 Xx 
(unpredictable 
output at screen 
and auxiliary 
device) 
= [2 | Pl | 
Transparent 
Xx F9 X 
(unpredictable 
output at screen 
and auxiliary 
device) 
(ESC H) 
ee ele ae fe 
Transfer xX C2 xO 
All 
(ESC G) 
fees eae Pfs 
Variable 
0 
Transfer X c5 E DS X (field control © 
Changed characters not 
(ESC E) supported) 
x £8 Y F8 X (teld control © 
characters not 
supported) 
LEGEND: 


Printer - same format as screen 

Printer - same information as screen; no carriage returns 

Cassette/diskette - same format as screen; no field control characters 

Cassette/diskette - same format as screen; only records unprotected fields 
Cassette/diskette - same format as screen; records all fields and all field control characters 


Cassette/diskette ~- not available 


Q®@OOoOLO 
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7.14. USING SCREEN FORMATS IN A DISTRIBUTED DATA PROCESSING 
ENVIRONMENT 


Displaying format at 
initiating terminal 


Restrictions 


Your action programs can call on screen format services in a 
distributed data processing environment using the IMS 
transaction facility. (See Section 9.) 


When your action program processes a transaction that is 
initiated by a terminal operator at a remote system... 





1. Issue a CALL BUILD followed by a CALL RETURN to display 
a screen format at the terminal that initiated the transaction 
at the remote system. You cannot output a screen format to 
an auxiliary device at the remote system (primary IMS) or to 
an action program initiating a remote transaction. 


TRANSACTION ACTION SCREEN 
PROGRAM FORMAT 


FILE 
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Displaying format at 2. Issue a CALL BUILD followed by a CALL SEND to display a 
local terminal screen format at a terminal (or auxiliary device) attached to 
your local IMS system. You cannot use a CALL SEND to 
display a screen format at the remote system (primary IMS). 


ACTION SCREEN 
PROGRAM FORMAT 


FILE 





Identifying remote When an action is initiated at a remote system, the 
@ aysten SOURCE-TERMINAL-ID field (ZA#ISTID) of the input message 
area contains the locap-name of the remote system instead of a 
terminal identification. To display a screen at the source terminal, 
you can move the locap-name to the DESTINATION- 
TERMINAL-ID field (ZA#ODTID) of the output message area or 
leave binary zeros in this field. 


Identifying local To display a screen at a terminal attached to your local IMS 

terminal system, move the terminal-id to the DESTINATION-TERMINAL-ID 
field and issue a SEND function. Remember, you can display only 
an output format when you use the SEND function. Afterwards, 

SEND function clear the DESTINATION-TERMINAL-ID field or move the 

Considerations locap-name to that field before issuing a CALL RETURN to send 
an output message to the source terminal. 


Termination types When you display an input/output screen format at the source 

allowed terminal (at the remote system), you can terminate your program 
normally or with external succession. We recommend external 
succession. 

Receiving formatted When the terminal operator at the remote system enters input on 


input the screen format, the successor program you name at your local 


IMS system (which could be the same action program) takes 
control and receives the input. 
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Displaying error or 
replenish screen 


ACTION 
PROGRAM 
1 


ENTERED ON 
SCREEN FORMA ACTION 


PROGRAM 
2 





The successor action program can issue a CALL REBUILD, 
followed by a CALL RETURN, to build an error or replenish 
screen at the source terminal. Again, you can move the 
locap-name from the SOURCE-TERMINAL-ID field to the 
DESTINATION-TERMINAL-ID field or leave binary zeros in that 
field. This action program should also terminate with external 
succession and name a successor program to process the 
corrected input. 


ACTION 
PROGRAM 
1 


ACTION 


CALL RETURN PROGRAM SCREEN 


2 FORMAT 
FILE 


ACTION 
PROGRAM 
3 
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8. Calling Subprograms from Action Programs 


8.1. WHEN TO USE SUBPROGRAMS 


You can call subprograms from action programs to perform 
Subprograms must reside | Common functions or repetitive computations. Subprograms must 
in main storage reside in main storage to be called by an action program. This 
guarantees their efficient use by not requiring that they be loaded 
into main storage each time they are called. They are loaded with 
IMS during start-up. 


No SUBPROG call from When a calling action program uses linked subroutines, only the 
subroutine main action program may issue a subprogram call. 


8.2. HOW TO USE SUBPROGRAMS 


Configuration parameters When you use subprograms, configure SUBPROG=YES in the 
OPTIONS section. Also, name the subprograms on_ the 
program-name parameter of the PROGRAM section and specify 
SUBPROG=YES in the same section. 


Successor-id To use a subprogram, the calling action program must place the 
subprogram name subprogram name in the SUCCESSOR-ID field of the program 
information block before calling the resident subprogram. 
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Serially reusable 
subprograms 


Reentrant subprograms 


Subprogram function calls 


MAIN STORAGE 


CALLING PROGRAM 
ACTION INFORMATION 
PROGRAM BLOCK 


SUBPROG-NAME SUCCESSOR-ID 


SUBPROGRAM 





Subprograms may be coded as either serially reusable or 
reentrant modules. If a subprogram is accessed by one action 
program at a time during a transaction or is written in COBOL, 
make it serially reusable. The subprogram code can be modified 
but must be reset or restored before it is accessed again by 
another action program. A serially reusable subprogram can read 
and write into its own area nonreentrant calling action programs 
and the activation record. 


If several action programs access a subprogram concurrently, 
code the subprogram as a reentrant BAL module to increase 
throughput. Reentrant subprograms are executed as read-only. 
They may modify only the activation record and nonreentrant 
calling action programs. 








Subprograms can issue all the function 
calls that regular action programs use. 


CALLING 
ACTION 
PROGRAM 


SUBPROGRAM 


ISSUING 
ANY 
FUNCTION 
CALLS 
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Subprograms may not call other subprograms. 






CALLING 


SUBPROGRAM 
1 SUBPROG 





SUBPROGRAM 
2 


Action program/subprogram A parameter list provides the means of transferring information 
interface from action program to subprogram. 


Accessing files The called subprogram can access only those files allocated for 
the calling action program. 


Calling and called Your calling action program may be in COBOL while a 
Brogran enguades subprogram may be in BAL, or both calling program and 
subprogram may be in the same language. 


MAIN STORAGE 


CALLING 
COBOL 
ACTION 
PROGRAM 


MOVE 'SUB1' TO 
SUCCESSOR-ID. 


CALL 'SUBPROG' 


BAL 
SUBPROGRAM 
(SUB 1) 


ZGHCALL RETURN 








UP-9207 SPERRY UNIVAC OS/3 8-4 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


COBOL AND BAL SUBPROGRAMS 





8.3. COBOL ACTION PROGRAM AND SUBPROGRAM INTERFACE 


A COBOL action program calls a resident subprogram with the 
following sequence: 


COBOL subprogram call MOVE subprogram-name TO SUCCESSOR-ID. 
format CALL 'SUBPROG' [USING data-name-1...data-name-n]. 
where: 


data-name-1...data-name-n 
Refer to data items in the data division of the calling 
COBOL action program. No more than 12 data-names 
can be specified. 


COBOL return call A subprogram written in COBOL returns control to the calling 
format action program as follows: 


CALL 'RETURN'. 





Saving status and When the calling action program issues the SUBPROG CALL 

Ge sailed statueicoees function, IMS clears the status and detailed status code fields in 

from main program to : . 

subprogesat the program information block. Be sure to save status and 
detailed status codes in your calling program’s work area before 
issuing a SUBPROG cail. Otherwise, you lose the status of the 
latest function call issued. 
When you issue the SUBPROG call, IMS transfers the contents of 
the calling program's work area to the subprogram’s work area 
and your saved status codes are received in the subprogram’s 
work area. 

Saving status and Also, depending on your application, when returning to the main 

detailed status codes program, you may want to save the latest status and detailed 


from subprogram to 


iidia progiath status codes from the subprogram. When the main program 


needs the status of the latest function call, you move these 
program information block values to the subprogram work area. 
When the CALL RETURN function executes, IMS returns these 
values to the main program work area. Otherwise, IMS clears the 
status and detailed status codes in the program information block 
and they are lost. 
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8.4. BAL ACTION PROGRAM AND SUBPROGRAM INTERFACE 


A BAL action program calls a resident subprogram via the 
following macroinstruction: 


BAL subprogram CALL SUBPROG, (param-1,...,param-n) 
call format ZGHCALL 
where: 
param-1,...,param-n 


Refer to labels of storage locations in the BAL action 
program. Up to 12 parameters can be specified. 


A subprogram written in BAL returns control to the calling action 
program via the following macroinstruction: 


BAL return call format CALL RETURN 

ZGHCALL 
Setting successor-id Remember to place the name of the called subprogram in the 
location 


program information block at location ZA#PSID before issuing the 
CALL function. The subprogram name must be left-justified and 
zero filled (X‘FO’) in a 6-byte area. 


Parameter list location When the calling action program transfers control to the called 
subprogram, register 1 points to the specified parameter list. If 
the subprogram requires working storage, the calling program 
can pass the address of the working storage to the subprogram 

Register contents either in the parameter list or in a register. Other register 
contents are as follows: 





Register O Unpredictable 


Register 1 Parameter list address 


Registers 2-12 Address of calling action program contents 





Register 13 72-byte save area supplied by calling action 
program. Subprogram must save caller's 
registers using standard linkages. 

Register 14 Return address 

Register 15 Entry point address of subprogram 
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Saving status and 
detailed status codes 


Because IMS clears the status and detailed status codes after the 
main program issues the SUBPROG call, your main program must 
save these codes before issuing the SUBPROG call. Depending on 
your application, saving these codes may also be necessary 
before issuing the CALL RETURN from the subprogram. 


8.5. SUBPROGRAM SAMPLE APPLICATION 


Application possibilities 


Sample subprogram 
application 


Explanation of sample 


Consider how often you test the performance of an !/O function 
call for various error conditions and consequently issue an error 
message to the terminal. After each function call you check 
status. All of the error conditions and error messages could be 
coded in a subprogram so that each time the calling action 
program issues a function call, it could call the subprogram to 
test the status of that function call and move the appropriate 
error message into an area of the calling action program. After 
returning to the calling program, that program could issue the 
error message to the terminal. 


In this case, you can handle all the error testing and error 
message processing in your subprogram instead of duplicating 
the code in several action programs. Other routines suited to 
subprograms might be a frequently calculated inventory or 
payment total or cursor positioning used often in generating 
output messages to the terminal. 


Probably the most common subprogram call application is to a 
COBOL subprogram. Figure 8-1 is an example of a COBOL action 
program (GRP4D) that calls the COBOL subprogram (NUMPRG) to 
determine the status of function calls issued by GRP4D. Figure 
8-2 shows the subprogram, NUMPRG. 


In Figure 8-1, the calling program (GRP4D) retrieves the customer 
record of the customer named at the terminal. This customer 
record is on the file, TEST4, identified on line 9. 


Once GRP4D retrieves the customer record (I-REC), it tests the 
status code for the GET function call. lf the GET is successful 
(line 56), GRP4D processes a customer record (lines 72-82) 


sending it to the source terminal upon normal termination (lines 
83-84). 
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Explanation of If the GET is unsuccessful, GPR4D saves the status and detailed 
sample status codes and moves the suprogram name, NUMPRG, to the 
SUCCESSOR-ID field in the program information block (line 59) 
and calls the subprogram (line 60). Notice particularly that the 
USING clause in the procedure division of the subprogram (line 
15) must match the USING clause on the CALL ‘SUBPROG’ 


statement in the calling program (line 60). This establishes the 
parameter list. 


NUMPRG (Figure 8-2) tests status codes, moves the appropriate 
error messages to the work area (lines 9-14, Figure 8-2), and 
returns to GRP4D (line 26, Figure 8-2). Following the SUBPROG 
call, GRP4D receives the error message returned by NUMPRG, 
moves it to the output message area (lines 41-52, Figure 8-1), 
and issues the output message to the terminal (lines 61-70, 
Figure 8—1). GPR4D terminates normally with the CALL ‘RETURN’ 
(line 84, Figure 8-1). 


When the status code being tested in NUMPRG is satisfied, 
NUMPRG returns to GRP4D. GRP4D processes the error message 
by sending it to the source terminal on normal termination. 


Note that the activation record areas described in the subprogram 

@ linkage section must correspond in size and layout to their like 
areas in the main program. (See Figure 8-1, lines 18-26, and 
Figure 8-2, lines 9-14.) 
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IDENTIFICATION DIVISION.’ 
PROGRAM-1D. GRP4D. 


oecot 
cocued 


0000? 
COCcO4 
ecoos 
NOCGE 
eCotG? 
90cus 
og0tg9 
ceciG 
Cyt 
MUCT2 
COC? 
ecr14 
SG015 
COC16 
20C1? 
20G14* 
COC1Se 
n0czea 
coca 
NGCZ2 
TOC27 
NGS 
GOC25 
CGCe4 
N0Cc? 
COCcE 
0C2S¢ 
Hacsc 
06°31 
IGC32 
“C033 
TUG3R4 
COCzZ5 
COCZE 
AGC? 
SUCRE& 
006639 
CuUC4S 
NOC41 
COC42 
C0042 
PUC4S 
06C45 
NUC4E 
CUC47 
NGC4# 
NOC4S 
eC0c50 


ENVIRONMENT DIVISION 
CONFIGURATION SECTION 


SOURCF-COMPUTER. UNIVAC- 
OBJECT-CCMFUTER. UNIVAC— 


DATA DIVISION. 


wORKING-STGRAGE SECTION. 

PIC X€7) VALUE 
PIC xC4) VALUE 
PIC X€4) VALUE 
PIC XC4) VALUE 


77 «TESTS 
77) =D ICE 
77) =6DICEe2 
77) ~«=6DIC eS 
LINKAGE SECTION. 
C1 Pluie CUPY P1i74.~ 
O1 IMA. COPY IMA74. 
O2 FILLER 
U2 PHONE-IN 
C1 wORK-AREA. 
92 I-REC. 
o3 PHONE-O 
G2 NAME-O 
v2 ADDREES-O6 
ERR-DATA. 
52 MSo 
G3 S-COSE 
OZ D-CCDE 
COPY OMA74. 
DATA-LINE. 
O3 oIcCE-1 PIC 
uz S61 FIC 
C7 oOIce-2 PIC 
O7 NAMEG PIC 
C3 GICE-e FIC 
uz MSG2 PIC 
03 DICE-4 PIC 
Sz AdDFLeSSG 
u3 DICE-£& PIC 
G7 MSG? PIC 
os DICE=6 PIC 


PIC 
vICE-10 
MSGS 
DICE-11 


(Part 1 of 2) 


Osi. 
OS3. 


“TESTS 7%. 
“10C3U5G6A%. 
“1006C200%. 
“10CéCCl7”. 


PIC x11). 
PIC 99S. 


PIC 999. 


FIC x15). 


PIC x(€). 


Pic x(14). 
PIC 9959, 
PIC 9999, 


x4). 
x4). 
x(4). 
x(15). 
X(4). 
XC7)6 
X(4). 


Pic x6). 


X(46). 
x(2). 
xC4). 


XC14). 
x4). 
¥C17T). 
X(4). 
9999. 


PIC x4). 
PIC XC€8&). 
PIC x4) 





Figure 8-1. Sample Action Program (GRP4D) Calling Subprogram (NUMPRG) 
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36051 
COCSZ 
90053 
OGfS54 
CotSsSs 
NOCSéE 
C0057 
n0c58 
0OC59 
OcCéO 
90061 
©0062 
00063 
N0C64 
00065 
CO066 
00067 
"0Co8 
NOOES 
coc7c 
90071 
Coc7e 
°0C7? 
NoC?74 
CUCTE 
OGC76 
10C77 
roc7e 
Coc7Ss 
C600 
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JO CODF2C PIC 9999. 
G3 FILLER FIC Xe 


PROCECURE DIVISTON USING P18 IMA WCRK-AREA OMA. 
EEGINe 


CALL “GET” USING TESTS I-REC FHONE-IN.] 

IF STATUS-CODE EQUAL ZERO GO TCG FROCESS—-MSGe 
MOVE STATUS-CODE TO S-CODE. 

MOVE DETAILED-STATUS-CCDE TO D-CCDE. 

MOVE “NUMPRG” 19 SUCCESSOR-ID. 

CALL “SUBPROG” USING WORK -AREA. 


PROCESS-ERROR. 


MOVE &C TO TEXT-LENGTH OF OMA. 
MOVE DICET TO DICE-7. 

MOVE DICE2 TO DICE-&, DICE-10~ 
MOVE DICE3 TO DICE-9, DICE-11- 
MOVE “STATUS CODE” TO MSG4. 
MOVE “DETAILED” TC MSG5. 

MOVE S-CODE TO CODE10.~ 

MOVE D-CODE TO CODE20. 

MOVE ™SG TO MSGC. 

GO TO E-G~Je 


PROCESS-MSG. 


MOVE &®0 TO TEXT-LENGTH OF CMA. 

MOVE DICET TO DICE-Te 

MOVE DICEZ TO DICE-3, DICE~4, DICE-é. 
MOVE DICE2 TO DICE-2, DICE~5. 

MOVE “NAME” TO MSG1. 

MOVE “ADDRESS” TO MSC2. 

MOVE “KEY” TO MSS2. 

MOVE NAME-O TO NAMEO] 

MOVE ADDRESS-O TO ADDRESSCe 

MOVE PHONE-C TC PHONEO. 


E-0O-J . 
CALL “RETURN”. 


Figure 8-1. Sample Action Program (GRP4D) Calling Subprogram (NUMPRG) 


(Part 2 of 2) 
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seco 
COCGE 
Co00? 
COCG4 
eeocus 
NOCGE 
CCtTG? 
50C08 
Coot? 
Cocd1G 
Cyt 
%UC12 
CCl? 
COC 
0015 
COEC1é4 
26017 
9OG4" 
coc1¢ 
COR?S 
CoCc1 
%UC2e 
TOL 27 
CoCe4 
cccz2& 
COCeé 





IDENTIFICATION DIVISION. 
PROGRAM-1ID. NUMPRG. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTERs UNIVAC-0S3. 
OBJECT-CGMPUTER. UNIVAC-0S3. 
DATA DIVISION. 
LINKAGE SECTION. 
O01 WORK-AREA. 
O2 FILLER PIC X24). 
O02 ERR-DATA. 
O02 MSG PIC X(14). 
O62 S-CCDE PIC 9999. 
G3 D-CCDE PIC 9999. 
PROCEDURE DIVISIGN USING WORK-AREA.] 
BEGIN. 
IF S-CODE EQUAL 1 
MOVE “INVALID KEY” TO MSG ELSE 
1F S-CODE EQUAL 2 
MOVE “UNALLOCATED FI” TO MSG ELSE 
IF S-CODE EGUAL 3 
MOVE “INVALID REQ” TO MSG ELSE 
IF S=CODE EQUAL 4 
MOVE “1/6 ERRCR~ TO MSG ELSE 
MOVE “PROBLEM IN SUB” TO MSC. 
CALL “RETURN”. 


Figure 8-2. Sample Subprogram (NUMPRG) 
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9. Action Programming in a 
Distributed Data 
Processing Environment 


9.1. BASIC DDP REQUIREMENTS AND TERMINOLOGY 


Configuration and IMS handles distributed data processing (DDP) transactions 
eee through the IMS transaction facility. To use distributed data 
" : processing with IMS, you must include the IMS transaction 
facility in your software at each OS/3 system and must configure 
multithread IMS at each system. Also, you must define a global 
ICAM network that supports distributed data processing and 
include a LOCAP section in the IMS configuration for each IMS 
system where you want to route transactions or which will route 
transactions to you. Consult the IMS system support functions 
user guide UP-8364 (current version) for configuration and 
network definition requirements. 


DDP terminology Let's define some terms we'll be using throughout the discussion 
of DDP transaction processing: 
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DDP terminology LOCAL TRANSACTION 


Transaction that is processed at the same IMS system 
where it is initiated 


REMOTE TRANSACTION 


Transaction that is initiated at one IMS system and 
processed at another 


PRIMARY IMS 


IMS system where a remote transaction is initiated. In our 
illustrations we call this system IMS1. 


SECONDARY IMS 





IMS system where a remote transaction is processed. 
The action programs processing the transaction and any 
files they access are located here. In our illustrations we 
call this system IMS2. 


LOCAL IMS 





Your IMS system, regardless of whether your system is 
primary or secondary for a particular transaction 


REMOTE IMS 
IMS system at another computer 
LOCAP-NAME 


The 4-character label of a LOCAP macroinstruction in 
your ICAM network definition, identifying a local or 
remote IMS system 
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9.2. HOW IMS ROUTES REMOTE TRANSACTIONS 


Transaction routing types 


Operator-initiated 
transactions 








There are three different ways in which the primary IMS can 
route a transaction to a secondary system: 





Directory routing 


The terminal operator enters a transaction code that identifies a 
transaction at a secondary system. The transaction code is defined in the 
configurator TRANSACT section. 


Operator routing 

The terminal operator prefixes the transaction code with a route character 
(followed by a period) that routes the transaction to a secondary system. 
This route character is defined in the configurator LOCAP section or in a 


PARAM job control statement at IMS start-up. 


Action program routing 


The terminal operator enters a transaction code that initiates a transaction 
at the primary system. The action program processing this local 
transaction issues an ACTIVATE function call to initiate a transaction at a 
secondary system. 





From the programmer's viewpoint, directory and operator routing 
are the same, because they are both initiated by a terminal 
operator. Once the transaction is routed to the secondary 
system, an action program or series of action programs at that 
system interacts with the terminal operator the same way as in a 
local transaction. No action programs are involved at the primary 
system. 
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Program-routed 
transactions 


ACTION 
PROGRAMS 





With action program routing, action programs at the secondary 
system do not interact directly with the terminal operator. They 
return a message to the initiating action program or its 
successor, which in turn outputs a message to the terminal 
operator. As a programmer, you may be writing action programs 
at either the primary or secondary system. 


ACTION ACTION 
PROGRAMS PROGRAMS 
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9.3. PROCESSING A REMOTE TRANSACTION 


First, we'll assume that you are at a secondary IMS, writing 
action programs to process transactions initiated by an operator 
or an action program at a primary IMS system. 


ACTION 
PROGRAMS 





Similar to There is little difference between the way you process a remote 
processing local transaction and the way you process a local transaction. You can 
transaction 


use the same action programs to process both local and remote 
transactions. 


Receiving input message When the transaction begins, you receive an input message 
starting with a 1- to 8-character transaction code, just as with a 
local transaction. 


Determining input You can determine the source of the input message by testing 

aa hai the DDP-MODE field (ZA#DDPMD) of the program information 
block and the SOURCE-TERMINAL-ID field (ZA#ISTID) of the 
input message header. 


DDP-MODE field The DDP-MODE field contains the value ‘R’ (ZA#DTR) when the 
transaction is operator-initiated (either directory routing or 
operator routing). It contains the value ‘A’ (ZA#PTRA) when the 
transaction is initiated by an action program. When a transaction 
is local, the DDP-MODE field contains zeros (X‘00’). This field has 
other possible values, but they apply to action programs at the 
primary IMS system (see 9.8). 


SOURCE-TERMINAL-ID When an action is scheduled to process a transaction at a 

Hels secondary IMS, the SOURCE-TERMINAL-ID field contains the 
locap-name of the IMS system originating the transaction rather 
than a terminal-id. You cannot test for the actual terminal 
initiating a remote transaction. 
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General restrictions 


SEND function restriction 


Continuous output 
restriction 


Auxiliary device 
restriction 


There are a few general restrictions on processing remote 
transactions. (There are several additional restrictions for 
program-initiated remote transactions, which we'll discuss a little 
later in this section.) 


1. You cannot use the SEND function to output a message to 
the originating terminal (or any terminal at the remote IMS). 
However, you can use the SEND function to output a 
message to a terminal at your local IMS. Afterwards, clear 
the DESTINATION-TERMINAL-ID field (ZA#OTID) or move 
the source locap-name to that field before issuing a CALL 
RETURN to send an output message to the originating 
terminal. 


2. You cannot send continuous output to the originating 
terminal. Again, you can use the SEND function to initiate 
continuous output at a local terminal using output-for-input 
queueing. 


3. You cannot send output to an auxiliary device attached to 
the originating terminal. However, you can output to local 
auxiliary devices using the SEND function. 


9.4. PROCESSING AN OPERATOR-INITIATED REMOTE TRANSACTION 


Action program 
succession 


With the few exceptions we've already mentioned, you process 
an operator-initiated remote transaction the same way as a local 
transaction. 


You can use any type of action program succession with 
operator-initiated transactions. Once the transaction begins, the 
IMS transaction facility establishes a communications link which 
stays in effect until the transaction ends. When you use external 
succession, the terminal operator receives and responds to your 
output messages without entering any additional codes. 


Figure 9-1 illustrates a remote dialog transaction, using both 
internal (either immediate or delayed) and external succession. 
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ACTION 
PROGRAM 


INTERNAL 
SUCCESSION 


ACTION 
PROGRAM 


EXTERNAL 
SUCCESSION 


ACTION 
PROGRAM 


NORMAL 
TERMINATION 





Figure 9-1. Processing an Operator-Initiated Remote Dialog Transaction 


Screen format services You can use screen format services with operator-initiated 
in DDP remote transactions. See 7.14 for details. 


9.5. PROCESSING A PROGRAM- INITIATED REMOTE TRANSACTION 


When a remote transaction is initiated by an action program, you 
send an output message back to the originating action program's 
successor. That action program in turn outputs a message to the 
terminal operator. 


Considerations and Because your output message goes to an action program rather 
ALLE than to a terminal, there are a few additional considerations and 
restrictions: 


Output message 1. You may want to format the output message differently; you 

formatting do not need contro! characters. Of course, you may want to 
use the same output message for either operator- or 
program-initiated transactions. In this case, the action 
program receiving your message must be prepared to 
receive your control characters. 


Dereon tonnaling, 2. You cannot use a screen format for the output message you 

ae return to the originating action program or its successor (see 
7.14). However, you can use the SEND function to display a 
screen format at a local terminal. 
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Allowable termination 3. You must use normal termination when you return an output 

type? message to the originating action program's successor. You 
cannot use external succession. You can, however, use 
immediate or delayed internal succession and have your 
successor program return the output message (Figure 9-2). 


ACTION : ny | ACTION 
PROGRAM PROGRAM 
: 1 


EXTERNAL INTERNAL 
SUCCESSION SUCCESSION 


ACTION 


PROGRAM PROGRAM 
B 2 


NORMAL NORMAL 
TERMINATION TERMINATION 





Figure 9-2. Processing a Program-Initiated Remote Transaction 


Dialog with Although a program-initiated remote transaction always has just 

terminal operator one input message and one response, a dialog with the terminal 
operator can still take place. The initiating series of action 
programs at the primary IMS can use external succession to 
output messages and receive responses from the terminal and 
can issue repeated ACTIVATE function calls to communicate 
with your action programs and access your files. Figure 9-3 
shows how you might process successive program-initiated 
remote transactions while the initiating action programs carry on 
a dialog with the terminal operator. 
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ACTION [CALL ACTIVATE >| ACTION 


PROGRAM 





PROGRAM 
A 


EXTERNAL 
SUCCESSION 


ACTION 
PROGRAM 
B 


EXTERNAL 
SUCCESSION 


ACTION 
PROGRAM 
Cc 


EXTERNAL 
SUCCESSION 


ACTION 
PROGRAM 


NORMAL 
TERMINATION 


1 


NORMAL 
TERMINATION 


ACTION 
PROGRAM 
2 


INTERNAL 
SUCCESSION 


ACTION 
PROGRAM 
3 


NORMAL 
TERMINATION 





Figure 9-3. Processing Successive Program-Itnitiated Remote Transactions 
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9.6. ROUTING TRANSACTIONS TO A REMOTE IMS SYSTEM 


Now, assume that you are at a primary IMS, writing action 
programs to initiate remote transactions and receive response 
messages from a remote system. 


| ACTION ACTION 


PROGRAMS PROGRAMS 





In a program-initiated remote transaction, you make the decision 
whether to route the transaction to a remote system on the basis 
of some data the terminal operator enters or perhaps something 
you discover when you access your files or make some 
computations. 





Initiating remote You initiate a remote transaction by identifying the remote IMS 
transaction system (locap-name) in the output message header, building a 

message containing a transaction code in your output message 
External succession area, and issuing an ACTIVATE function call. You must terminate 
required your action program externally, naming a successor program at 


your local IMS system. Of course, you can reschedule the same 
action program as the successor. 


Processing response Action programs at the remote IMS system process your 

message message and send a response. Your successor program receives 
the response message in its input message area. You can then 
send an output message to the originating terminal. (See Figures 
9-2 and 9-3.) If you wish, you can issue another ACTIVATE call 
instead of outputting a message to the terminal (Figure 9-4). 
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1 PROGRAM 
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EXTERNAL 
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ACTION ACTION 
PROGRAM . PROGRAM 


B 2 
EXTERNAL 
SUCCESSION 


it action 
PROGRAM 


Cc 


NORMAL 
TERMINATION 





Figure 9-4. Issuing Muliple ACTIVATE Calls without Operator Intervention 


9.7. INITIATING A REMOTE TRANSACTION (ACTIVATE) 


COBOL format 


BAL format 


The ACTIVATE function call initiates a remote transaction and 
terminates the action program. It has no parameters. The COBOL 
and BAL formats for the ACTIVATE function call follow. 

= COBOL format 


CALL 'ACTIVATE' 


a BAL format 


CALL ACTIVATE 
ZGHCALL 


UP-9207 
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Identifying remote 
system 


Building output message 


Setting text length 
Naming external successor 
Issuing ACTIVATE call 


RETURN function 
not used 


Here is a step-by-step procedure for initiating a remote 
transaction: 


1 


2. 


4. 


5. 


Identify the remote IMS system where you want the transaction 
processed by placing its locap-name in the DESTINATION-TERMINAL-ID 
field (ZA#ODTID) of the output message header. 


Build the output message you want to send to the remote system in the 
output message area. The message must begin with a transaction code 
that is acceptable to the remote IMS system. 


Move the message length to the TEXT-LENGTH field (ZA#OTL) of the 
output message header. 


Specify external termination and the name of a successor program at your 
IMS system. The successor program can be the same program. 


Issue the ACTIVATE function call. 


You don't issue a RETURN function call when you initiate a 
remote transaction. The ACTIVATE function call terminates the 
action program and sends the output message to the remote 
system. 
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9.8. RECEIVING A RESPONSE MESSAGE IN THE SUCCESSOR ACTION 


PROGRAM 

Successor program When an action program issues an ACTIVATE function call and 
Sal ha terminates in external succession, its successor program receives 
Wha vehiots a message in the input message area regardless of whether the 
transaction is remote transaction is successful. When the remote transaction is 
successful successful, the successor program receives a response from the 
apa nteraes action program processing the transaction at the secondary IMS. 
transaction is When the remote transaction is unsuccessful, the successor 
unsuccessful program receives error codes in the input message area. 

DDP-MODE field To determine whether the transaction was successful, test the 


DDP-MODE field (ZA#DDPMD) of the program information block. 
The DDP-MODE field contains the value ‘E’ (ZA#PTRE) when the 
remote transaction ends normally and returns a message to your 
program. It contains the value ‘C’ (ZA#PTRC) when the remote 
transaction is unsuccessful. This field has other possible values, 
but they apply to action programs processing a_ remote 
transaction at a secondary IMS system. 


Processing successful When the remote transaction is successful (value ‘E’), you can 
@ response send a message to the originating terminal or issue another 
ACTIVATE call to initiate another remote transaction. 





Error causes your output message cannot be sent to the remote IMS; 





your output message arrives at the remote IMS but the transaction cannot 
be scheduled; 





the remote transaction is scheduled but terminates abnormally; or 


the remote transaction terminates normally but your program does not 





receive the response message. 





Processing You can continue processing your local transaction, perhaps 

unsuccessful response issuing an error message to the source terminal. 

Errors causing The only errors causing cancellation of the initiating transaction 

cancellation of are succession errors. If an action program issuing a CALL 

Wnealing taneeenen ACTIVATE specifies an invalid termination indicator or successor 
© id, IMS cancels the transaction and sends an error message to 


the source terminal. Also, if the terminal operator keys in the 
ZZCNC terminal command, the transaction is canceled. 
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9.9. ERROR RETURNS FROM UNSUCCESSFUL REMOTE TRANSACTION 


IMS sets error 
code in input 
message area 


Input message 
area error format 


Error codes 


When the remote transaction is unsuccessful, IMS places the 
value ‘C’ in the DDP-MODE field and also sets an error code in 
the input message area. The error code consists of 2-byte class 
code and a 2-byte reason code. When the class code is 0081, 
an error message follows the error code. 


The format of the input message area when IMS returns an error 


16 bytes Variable 





Table 9-1 describes the error codes and their meanings. 


Table 9-1. Errors Returned to Input Message Area when Remote Transaction Is 
Unsuccessful (Part 1 of 2) 








0003 000C Distributed data processing not configured 


0006 Destination locap-name invalid or auxiliary function 
specified 

0006 0005 No ICAM buffer available for switched message 

0006 Disk error on switched message 

0006 Invalid length specification for switched message 

0006 0009 CALL ACTIVATE requested by action program at 
remote IMS 

OOO0A ee Invalid function code. Submit software user report 
(SUR). 

OOOA Invalid name. Submit SUR. 

OOOA Buffer not available. Retry. 

OO0A Invalid data type. Submit SUR. 

OO0A | 0005 Invalid data length. Submit SUR. 

0080 0100 Required header item missing. Submit SUR. 

0080 Message sequence error. Submit SUR. 

0080 Invalid mode of operation. Submit SUR. 
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Table 9-1. Errors Returned to Input Message Area when Remote Transaction Is 
Unsuccessful (Part 2 of 2) 





0080 OA00 Protocol procedure error. Submit SUR. 


0080 OBO0O Invalid header item. Submit SUR. 
0080 OCOO Version not supported. Submit SUR. 
0080 ODOO Class of procedure not supported. Submit SUR. 


008 1 0000 Action program or IMS error at remote system. 
Message text indicates specific error. 


008C 0001 Error in transaction presentation control header. 
Submit SUR. 

0400 0001 Invalid transaction code specified 

0400 0002 Shutdown in process at remote IMS 

1000 0100 No sessions available. Increase DDPSESS specification. 

1100 1800 No ICAM buffer available. Increase buffers in ICAM 
network definition. 

1100 1900 No session established. Submit software user report 
(SUR). 

1200 9900 Invalid request. Submit SUR. 

1400 0000 Remote system shut down. Could be normal or error 
condition. 


NOTE: 


If TRANSLAT=YES is configured for the action receiving the input message, class and 
reason codes containing the values 81-89, 91-99, and A2~-A9Q are translated to the 
values C1-C9, D1-D9, and £2-£9. 


Abnormal termination The class code 0081 indicates that the remote transaction 

RETIN n eae abnormally terminated because of an IMS or action program 
error. This class code is always followed by a reason code of 

Three-line OOOO and a message text. The message text is one of the 3-line 

termination message multithread IMS transaction termination messages documented in 
the system messages programmer/operator reference, UP-8076 
(current version). 


Message formatted The 3-line transaction termination message is formatted for 
for ere 10 output to the source terminal. You can move this message to 
termina 


your output message area and send it to the source terminal 
without additional formatting. 
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An example of the input message area contents when IMS 
returns an error code of 00811 is: 


16-byte-header 00810000 | 10010101 10034E01 
Input message 


area contents 
we ee ee ee 
IMA control header Error code DICE 


TRANSACTION ABORTED.TRANS ID:id TERM ID:id 


FIRST LINE OF MESSAGE 


10040000 TRANS CODE:code.CURR ACTION:name.CURR PROG:name 


Ne 
DICE SECOND LINE OF MESSAGE 


10040000 REASON. error-description 


DICE THIRD LINE OF MESSAGE 
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10. Additional Special Features 


10.1. DOWNLINE LOAD FEATURE 


UTS 40/UTS 400 Downline load action programs load COBOL, MAC 80, or PLM 

programs programs into the storage area of a Universal Terminal System 
400 (UTS 400) or COBOL programs into the storage area of a 
UTS 40 for immediate execution. They can also load these UTS 
programs to auxiliary storage devices (diskette or cassette) 
attached to the UTS 40 and UTS 400. 


ACTION 
PROGRAM 





Store UTS programs in These UTS programs must be stored in the IMS load library - the 

jon URIOLY. same load library that contains your online IMS load module and 
action programs. If you configure the fast load feature, do not 
store UTS programs in the action program load library. Store 
them in the library containing the IMS load module or in the 
system load library, $Y$LOD. 
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UTS 40 


UTS 400 (COBOL) 
(PLM) PROGRAM 


PROGRAM 


UTS 400 
(COBOL) 
PROGRAM 
UTS 400 
(MAC 80) IMS ONLINE 
PROGRAM LOAD 
MODULE 





There are two ways of downline loading: 


DLOAD downline load 1. Enter the transaction code, DLOAD, to activate the IMS 
downline load action program, ZUKLOD. 





ACTION 


PROGRAM 
UTS 


PROGRAM }{ ZUKLOD 
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Action program 2. Write your own downline load action program. 
downline load 


USER 
WRITTEN 
DOWNLINE 
LOAD 
PROGRAM 





DLOAD details For details of the DLOAD transaction code, see the IMS terminal 
user guide, UP-9208 (current version). 


Downline load Downline loading programs can be useful in numerous 

applications applications. One use is for editing and validating IMS input 
messages. If errors occur in input editing and validation, you can 
handle them directly at the UTS terminal without transmitting the 
message to the host computer. 


Downline load To use the downline loading feature, generate a resident ICAM 
orig ee that supports unsolicited output and specify DLLOAD=YES in the 
OPTIONS section of the configurator input. 


The UTS terminal accepting a downline load must be a master or 
primary station and not a slave station. 


Other UTS information Before using the downline loading feature, you should be familiar 
with the UTS 40 or UTS 400 terminal description found in the 
ICAM concepts and facilities, UP-8194 (current version), the 
& Universal Terminal System 400 programmer reference, UP-8359 
(current version), and the Universal Terminal System 40 COBOL 
programmer reference, UP-8481 (current version). 
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10.2. WRITING DOWNLINE LOAD ACTION PROGRAMS 


Load to UTS main Suppose you decide not to call the ZUKLOD action program via 
a or auxiliary the DLOAD transaction code to downline load UTS programs. 
storage 


You can write your own downline load action program to read 
blocks of UTS program code from the IMS load library to a UTS 
terminal or auxiliary device. Figure 10-1 is a sketch of a downline 
load action program that loads a UTS program, stored in the IMS 
load library, downline to a UTS 400 main storage. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. LODPRG. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-@S3. 
OBJECT-COMPUTER. UNIVAC-@S3. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
77 LOD - MOD - NAME PIC X(8) VALUE 'MACPROG1'. 
77 BUF -SIZE PIC 9999 USAGE COMP VALUE 1000. 
LINKAGE SECTION. 
01 PROGRAM- INFORMATION-BLOCK. COPY PIB74. 
01 INPUT -MESSAGE-AREA. COPY IMA74. 
@2 UTS40@-RESPONSE -MESSAGE. 
03 UTS400-RESPONSE -DICE PIC X¢4). 
03 UTS40@-RESPONSE PIC X(4). 
DEL-NOTICE-MSG REDEFINES UTS40@-RESPONSE -MESSAGE. 
03 CONT - CODE PIC X(4). 
03 DEL-NOT-CODE PIC xX. 
03 FILLER PIC XXX. 
TRANS-CODE-ENTRY REDEFINES UTS400-RESPONSE-MESSAGE. 
03 TR-CODE PIC X(5). 
03 FILLER PIC XXX. 
OUTPUT-MESSAGE-AREA. COPY OMA74. 
@2 DOWNLINE -LOAD -MESSAGE. 
03 DOWNLINE-LOAD-HEADER PIC X(6). 
03 DOWNLINE -LOAD- TEXT PIC X(1000). 
01 CONTINUITY-DATA-AREA. 
@2 GET-SET-AREA PIC X(400) SYNC. 
PROCEDURE DIVISION USING PROGRAM- INFORMATION- BLOCK 
INPUT -MESSAGE-AREA 
OUTPUT -MESSAGE-AREA 
CONTINUITY-DATA-AREA. 





START -PROG. 


IF TRANS-CODE = 'DLLPG' GO TO SET-PARA 
ELSE 





Figure 10-1. User-written Downline Load Action Program Sketch (Part 1 of 3) 
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IF CONT-CODE = 'CONT' GO TO TEST-DEL-NOTICE 
ELSE 
GO TO LOAD-STATUS-CHECK. 
SET-PARA. 
CALL ‘'SETLOAD' USING LOD-MOD-NAME GET-SET-AREA. 
(Status code tests) 
GET-PROG-CODE. 
CALL 'GETLOAD' USING GET-SET-AREA DOWNLINE-LOAD-TEXT BUF-SIZE. |. 
IF STATUS-CODE > @ GO TO STAT-TEST 
ELSE MOVE 'C' TO AUX-FUNCTION 
MOVE ‘CONT! TO CONTINUOUS -OUTPUT -CODE 
GO TO EXTERNAL-TERMINATION. 
STAT-TEST. 
IF STATUS-CODE = 2 GO TO EXTERNAL-TERM 
ELSE 
IF STATUS-CODE = 3 AND DETAILED-STATUS-CODE = 20 
GO TO INVAL-REQ 
ELSE 
IF STATUS-CODE = 3 AND DETAILED-STATUS-CODE = 21 
GO TO SMALL-DATA-BUF 
ELSE 
IF STATUS-CODE = 4 GO TO I1/0-ERR. 
EXTERNAL - TERM. 
MOVE '1B0E30323130' TO DOWNLINE-LOAD-HEADER. 
MOVE 'E' TO TERMINATION- INDICATOR. 
MOVE 'LODPRG' TO SUCCESSOR-ID. 
CALL 'RETURN'. 
AB- TERM. 
MOVE 'S' TO TERMINATION-INDICATOR. 
CALL 'RETURN'. 
NORM- TERM. 
(Send message to terminal) 
CALL 'RETURN'. 
INVAL-REQ. 
(Send unsuccessful message to terminal) 
CALL ‘RETURN'. 
TEST-DEL-NOTICE. 
IF DEL-NOT-CODE = '81' GO TO GET-PROG-CODE ELSE GO TO ERR-ROUT. 
LOAD-STATUS-CHECK. 
IF UTS4@@-RESPONSE = '393039030' GO TO NORM-TERM. 
UNSUCCESSFUL-LOD. 
(Generate error message) 
GO TO NORM-TERM. 
SMALL -DATA-BUF. 


(Generate error message) 
GO TO NORM-TERM. 
I/O-ERR. 





Figure 10-1. User-written Downline Load Action Program Sketch (Part 2 of 3) 
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00084 (Generate error message) 
09085 GO TO NORM-TERM. 
00086 ERR-ROUT. 


00087 (Generate error message) 
00088 GO TO NORM-TERM. 





Figure 10-1. User-written Downline Load Action Program Sketch (Part 3 of 3) 


Downline load action programs must contain the following: 


UTS load module An 8-byte field defined for the UTS load-module-name (line 

name 9 of Figure 10-1). The data-name used to describe this 
8-byte field is the same name you must use on the 
SETLOAD function call. 


SETLOAD function One SETLOAD function call for each downline load (line 41). 

call Issue the SETLOAD function before any GETLOAD function 
call because initialization must occur before you read a block 
of code from a UTS load module. 


GETLOAD function 


yw 


GETLOAD function calls issued to read blocks of code from 





call the UTS load module into the data buffer in the output 
message area of your calling downline load action program 
(line 44). 


Work area for SETLOAD A 400-byte area defined on the word boundary in the 
and GETLOAD continuity data area (line 29). This area is used as a work 
area by the SETLOAD and GETLOAD function calls. 


Data buffer area and The data-buffer (line 27) and 2-byte field indicating its size 
size field (line 10). The data-buffer contains a block of code read from 
the load module. 


Size field contents Before the downline load program issues the GETLOAD function 
call, the size field (lines 10 and 44) should have the length of the 
buffer area in binary format. After the return from the GETLOAD 
call, the size field has the number of bytes actually moved into 
the buffer area. This number is also in the binary format. 


After issuing the GETLOAD function call, the downline load 
program must: 


End-of-file test = check for end-of-file (02) in the STATUS-CODE field of the 
program information block (lines 50 and 59-63); and 





Process status code ™ = ~=process the status code in the program information block for 
successful completion of the GETLOAD function call (lines 
46-48 and 59-63). 








UP-9207 





SPERRY UNIVAC OS/3 10-7 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





Successful GETLOAD 


processing 


Character in AUX- 
FUNCTION FIELD 


Load code prefix 


Prefix for main 
storage load 


Prefix for auxiliary 
storage load 


Sending UTS 
program code 


Terminate downline 
load program with 
external succession 


1s 








DOWNLINE LOAD FEATURE 


If the GETLOAD function is successful, the downline load 
program should: 


Move ‘C’ to the AUX-FUNCTION field (the first byte of the 
AUXILIARY-DEVICE-ID field) of the output message header 
(line 46) if you are sending the block of UTS program code 
to the terminal (primary device) main storage. Otherwise, see 
Table 6-1 for the continuous output character needed by 
your application. 


Prefix the data block received from the GETLOAD function 
call with a proper heading to load this block either directly 
into the UTS main storage or to an auxiliary storage device. 
This prefixed data block becomes the text in the downline 
load program’s output message area. This text length can be 
calculated using the length returned in the size parameter of 
the GETLOAD function call. See Figure 10-1, lines 25-27 
and 60 for an example of the output message area and the 
prefixing description required to format the text part of the 
output message area. 


Your downline load action program should move the 6-byte 
prefix, | X‘1BOE30323130', into the prefix header 
(DOWNLINE-LOAD-HEADER) to provide the header 
information for loading the UTS main storage. 


If the downline load is intended for the auxiliary storage 


device, your action program should’ instead move 
X°1313nnnnnnnn’‘ into the prefix header 
(DOWNLINE-LOAD-HEADER). Here ‘nnnnnnnn’ is a 


4-character ASCII sequence naming the UTS load program. 


Figure 10-1, line 60 shows that the UTS MAC 80 program 
(MACPROG1) is downline loaded into the UTS main storage 
device. 


Send the message from the downline load action program 
output message to the UTS terminal or auxiliary device using 
the continuous output feature (lines 46 and 47). 


Terminate the downline load action program with external 
succession (i.e., place ‘E’ in the TERMINATION-INDICATOR 
field of the program information block) and name_ the 
downline load action program as the successor. The 
successor action program must then be prepared to handle a 
delivery notice in the form of. an input message (lines 
17-20). This includes testing the delivery notice for error 
and if an error occurs, moving an error message to the 
output message area before terminating the program 
normally (lines 73 and 86-88). 
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Unsuccessful if the SETLOAD or GETLOAD function is unsuccessful and you 

SETLOAD/GETLOAD configured ERET=YES in the PROGRAM section of the 
configurator, your downline load action program receives control 
with error indications set in the STATUS-CODE field of the 
program information block. For status code settings in this case, 
see status codes 3 and 4 in 10.3. and 10.4. The action program 
should then send an appropriate error message to the terminal 
(lines 49-58). 


If the SETLOAD or GETLOAD function is unsuccessful and you 
didn’t configure ERET=YES, IMS cancels the transaction and 
sends the following message to the terminal: 


DOWN LINE LOAD ERROR. 


Transfer record If the GETLOAD function returns an_ end-of-file condition 
(STATUS-CODE set to X‘02’ in the program information block), 
the buffer area contains the transfer record. This is the last block 
that should be sent to the UTS terminal; thus, your action 
program should issue no more GETLOAD functions for this load 


module. 
Response message if the blocks of code are sent to the UTS main storage for 
from UTS terminal immediate execution of the program, then when the UTS terminal 





receives a transfer record it automatically transmits a response 
(input message) indicating whether or not the downline load was 
successful. Therefore, the downline load action program should 
not use continuous output to send this last block. It should 
follow the same procedure as for a _ successful GETLOAD 
function, except it should not move ‘C’ into the AUX-FUNCTION 
field of the output message header. The successor action 
program then receives in its input message area the 24-byte 
message header from a UTS in the following formats: 


Message header for SUCCESSFUL LOAD 


su ful | | 
ccessful load 24 BYTES 








TEXT- 


acer ra 
LENGTH unubeo 


Message header for UNSUCCESSFUL LOAD 


unsuccessful load 
aren BYTES 


TEXT- 
LENGTH 








nceeee “ae 








UP-9207 SPERRY UNIVAC OS/3 10-9 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


DOWNLINE LOAD FEATURE 


NOTE: 


If you specify EDIT=NONE in the ACTION section, your program 
receives these DICE characters. If you specify EDIT=c or 
EDIT=tablename, or if you omit the EDIT parameter, these 
characters are stripped from the message header before it is sent 
to the program. 


Unsuccessful load Table 10-1 defines the various error bit configurations (*) that 
error byte values can be returned in the last byte of the message from the UTS 
terminal. 


Table 10-1. Rejected Load Error Byte Definition 





7 Never set 


5 Program cannot be loaded The UTS operator should initiate a power-on confidence 
because previous program test from the controller or master station and, 
did not clear program- upon completion of the test, the load should be retried. 
loaded flag (LOADFL) 


4 Load addressed to a UTS The load should be retried and addressed to 
slave station instead of a the UTS master station. 
master station 


3 Illegal control code IMS error - submit SUR 
encountered in program 


2 Block overflow occurred in If main storage is available, the UTS operator 
available/assigned main should assign the appropriate storage to the 
storage program. The load should be retried. If main storage 

is not available, the program should be 

recompiled, addressing available storage. 





1 Start address of block is not Use the control page to assign more main 
in available/assigned main storage, and reenter your transaction code. 
storage If insufficient main storage is available, 

the program must be recompiled. 


O Addresses A and B not equal IMS error - submit SUR 


*Numbered from right to left; i.e., bit 7 is the most significant bit; bit O is the rightmost or least significant bit. 





See Figure 10-1, lines 14-16 for an example of the input 
message area description to receive the UTS 400 response 
message after the last block of UTS program code is transferred 
downline. 
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Handling UTS After receiving the response message, the downline load action 
response message program should: 


1. interrogate the response message (lines 75-76) and send an 
appropriate output message to the terminal indicating the 
success or failure of the downline load; and 


2. terminate normally, i.e., place ‘N’ in the 
TERMINATION-INDICATOR of the program information block. 


UTS response after When the action program downline loads a UTS program to an 

auwalery device toad auxiliary device, the UTS terminal does not generate a response 
message after it receives the last block of code. Therefore, the 
status of the downline load is not known until the program code 
is read into the UTS main storage. 


10.3. INITIALIZING DOWNLINE LOAD (SETLOAD) 

SETLOAD format The SETLOAD function call is the first function called by a 
downline load action program. The COBOL and BAL formats for 
the SETLOAD function code are: 


= COBOL format 





CALL 'SETLOAD' USING module«+name save-area. 


| BAL format 


ae pe Sagano ee ee eee 


ZGHCALL 
UTS program Module-name is an 8-byte field containing the name of the UTS 
module name program load module to be downline loaded. 
Save-area Save-area is a 400-byte area defined in the continuity data area. 


IMS uses the save-area to process the SETLOAD and GETLOAD 
function calls. This area must be word-aligned. 


SETLOAD status codes When a SETLOAD function call is issued, IMS returns one of the 
following status codes with corresponding detailed status codes 
in the program information block. 
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Successful SETLOAD 


Invalid request; invalid number of 
parameters 









Invalid request; function invalid for 
type of request 













Invalid request; after the initial 
SETLOAD is issued, SETLOAD may 
not be issued again until the 
downline load = action program 
receives the transfer record via the 
GETLOAD call. 






10.4. LOADING THE UTS PROGRAM (GETLOAD) 
GETLOAD format Your downline load action program issues the GETLOAD function 
& call immediately after the SETLOAD function and repeatedly 
issues the GETLOAD function until end-of-file is reached for the 
UTS program load module. The COBOL and BAL formats for the 
GETLOAD function call are: 
= COBOL format 


COBOL format CALL 'GETLOAD' USING save-area buffer-area size. 


r BAL format 


BAL format CALL GETLOAD, (save-area,buffer-area,size) 
ZGHCALL 
Save-area Save-area is the 400-byte word-aligned area previously defined in 


the SETLOAD function. IMS uses the save-area to process the 
SETLOAD and GETLOAD function calls. 


Buffer-area Buffer-area is the data-buffer in the output message area where 
your program receives a block of code from the UTS load 
module. 

Size field Size is a 2-byte field where the length (size) of the buffer-area is 


@ stored. 
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codes 
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When your downline load action program issues a GETLOAD 
function call, IMS returns one of the following status codes and 
corresponding detailed status codes in the program information 


block. 


21 


0 





Successful GETLOAD 


End-of-load module (transfer record 
received). Note that end-of-file is 
set at the time the last block of 
data (transfer record) is passed to 
the action program. 


Invalid request; save-area address 
invalid or SETLOAD was not issued 
before GETLOAD. 


Invalid request; data buffer too 
small (less than 10 bytes). 


1/O error. XX is the error code (in 
binary) returned by the OS/3 
loader. Note that these error codes 
are explained in the system 
messages programmer/operator 
reference, UP-8076. 
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10.5. DISCONNECTING A LINE FROM AN ACTION PROGRAM 


Line disconnect The line disconnect feature allows an action program to 

feature disconnect a single-station dial-in line following the delivery of its 
output message to enable another terminal to dial in on the same 
line. To use the line disconnect feature, include the continuous 
output capability in your configuration by — specifying 
CONTOUT=YES in the OPTIONS section. The line disconnect 
feature is available only in a dedicated ICAM network, not a 
global network. 


Action program To disconnect a line after message transmission, the action 
OB OTaTORS program must: 


m place a continuous output flag (X'C3’) in the AUX-FUNCTION 
byte (ZA#OAUxX field) of the output message header; and 


™ ~§ specify external succession with ‘HANGUP’ as the successor 
by setting the TERMINATION-INDICATOR field (ZA#PSIND) in 
the program information block to E and the SUCCESSOR-ID 
field (ZA#PSID) to ‘HANGUP’. 


HANGUP is an action program supplied by IMS that terminates 


with a special code causing IMS to issue a line release/line 
request sequence to ICAM to disconnect the line. 


MAIN STORAGE 


MOVE 'C3' TO AUX-FUNCTION. Ze nOSnnY 


MOVE 'HANGUP' TO SUCCESSOR-ID. SS 


CALL ‘RETURN’. 





After the output message is sent, no further input is required 
from the terminal operator. IMS waits for ICAM notification of 
message delivery before scheduling the external successor, 
HANGUP. In this way, delivery of the message prior to the line 
disconnect is ensured. 
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RUN function call 


COBOL format 


BAL format 


Command-text 


COBOL example 


BAL example 


You can initiate background batch jobs from your action program 
by issuing the RUN function call. The RUN function initiates a 
system command that reads a job control stream and schedules 
that job for execution. The COBOL and BAL formats for the RUN 
function call are: 


r COBOL Format 


CALL *RUN' USING command-text. 


r BAL Format 


CALL RUN, (command- text) 
ZGHCALL 


Commana-text is the symbolic address of a character string that 
consists of a valid command and its associated parameters. Valid 
commands are RUN, RU, RV, SI, SC, OCL, OC, or OV. The 
command text may not exceed 64 characters. The following 
COBOL coding illustrates the statements needed in the action 
program to use the RUN function call: 


WORKING-STORAGE SECTION. 


77 ~—s CMD - TEXT PIC X(18) VALUE 'RV JOBN(JOBC),HIGH'. 


PROCEDURE DIVISION. 


PARA- 10. 
CALL 'RUN' USING CMD-TEXT. 


The following coding illustrates the same statement in BAL: 


4 10 16 


CALL RUN, (CMDTXT) 


CMDTXT DC CL18'RV JOBN(JOBC),HIGH' 




















PREPARING ACTION PROGRAMS FOR 
EXECUTION 


h4ADD>V 
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11. Compiling, Linking, and 
Storing Action Programs 


11.1. PREPARING ACTION PROGRAMS FOR ONLINE PROCESSING 


After you write a COBOL or BAL action program or subprogram, 
you must. 





What you must do Compile or assemble the action program or subprogram (11.1). 


1 

2. Link edit the program to create a load module (11.2). 

3. Store the program in the appropriate load library (11.3). 

4. Identify the program to IMS in a PROGRAM section of the configuration. 
(See the IMS system support functions user guide, UP-8364 (current 
version).) 

5. Identify the load library in the job control stream at IMS start-up, unless 


programs are stored in the system load library, $Y$LOD. (See UP-8364.) 
i ae a 





Scope of section This section tells you how to compile (or assemble) and link your 
action programs and subprograms and where to store them for 
use during the online IMS session. For additional information on 
the job control statements and procedures shown in_ the 
examples, refer to the current versions of the job control user 
guide, UP-8065, and the appropriate language manual. 
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11.2. COMPILING OR ASSEMBLING ACTION PROGRAMS 


Assembling BAL program 


Compiling COBOL program 


Sharable 1974 COBOL 


program 


Sharable extended COBOL 
program 


IMS language restrictions 


Configuration requirements 


Nonsharable 1974 COBOL 
program 


You assemble a basic assembly language action program or 
subprogram the same way as any other BAL program. 


You compile a COBOL action program or subprogram the same 
way as other COBOL programs, with one exception. That 
exception is different for 1974 American National Standard 
COBOL and extended COBOL and also depends on whether or 
not the program is sharable. 


Sharable and Nonsharable COBOL Programs 


To compile a sharable 1974 COBOL program, include the job 
control statement: 


// PARAM IMSCOD=YES 


To compile a sharable extended COBOL program, include the job 
control statement: 


// PARAM OUT=(M) 


When you specify IMSCOD=YES or OUT=(M), the COBOL 
compiler checks for IMS language restrictions and issues 
diagnostics. For this reason, you should include this PARAM 
statement even if you don’t need a sharable program. However, 
if your program is not written to sharable standards (for instance, 
the procedure division contains statements that move data to the 
working-storage section), you cannot compile’ it with 
IMSCOD=YES or OUT=(M). 


To share COBOL action programs or subprograms, you must 
specify the TYPE=SHR and SHRDSIZE parameters in your IMS 
configuration in addition to including the shared code PARAM 
statement at compilation time. You can share action programs 
and subprograms only in multithread IMS. 


To compile a nonsharable 1974 COBOL program, include the job 
control statement: 


// PARAM CALLST=YES 


to assure the proper linkages to IMS at CALL interrupts. 
However, the compiler does not check for IMS language 
restrictions when you use CALLST=YES_ instead _ of 
IMSCOD= YES. 
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There is no special PARAM statement for compiling nonsharable 
extended COBOL action programs. When you omit PARAM 
OUT=(M), the compiler does not check for IMS language 
restrictions and you receive the COBOL error message: 


140 NO EXIT PROGRAM NOR RETURN STATEMENT ASSOCIATED WITH 
ENTRY OR USING STATEMENT 


You can ignore this message. 


Table 11-1 summarizes the use of PARAM statements for 
sharable and nonsharable COBOL action programs. 


Table 11-1. Compiling Sharable and Nonsharable COBOL Action Programs 


nape 






1974 COBOL | Include // PARAM IMSCOD=YES. | Include // PARAM CALLST=YES. 


Compiler checks for IMS Assures proper linkages to IMS at 
language restrictions. CALL interrupts. Compiler does not 


check for IMS language restrictions. 


Extended Include // PARAM OUT =(M). No substitute for // PARAM OUT =(M). 

COBOL Compiler checks for IMS Compiler does not check for IMS 
language restrictions. language restrictions, generates 

error message which can be ignored. 





In the listing for a shared COBOL action program, the size of the 
volatile data area is printed in decimal just before the COBOL 
COMPILATION COMPLETE message. The format of this message 
is: 


SHARED CODE VOLATILE DATA AREA=nnnn BYTES 


Multithread IMS uses the shared code volatile data area to save 
and restore data at CALL interrupts. It is not used in 
single-thread IMS. 


Use this size for the SHRDSIZE parameter specification in the 
ACTION section of your IMS configuration. If the action includes 
more than one COBOL action program, use the largest shared 
code volatile data area for this specification. 
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COBL74 jproc 


EXEC COBL74 
statement 


Job Control for Compiling COBOL Action Programs 


To compile a 1974 COBOL action program or subprogram, you 
can use either the COBL74 job control procedure (jproc) or the 
EXEC COBL74 job control statement. 


Figure 11-1 uses the jproc and assumes that the source 
program, MYPROG, is filed in the system source library, $Y$SRC. 
The program is sharable. 


// JOB PROG1 
//MYPROG COBL74 IN=(RES) 
// PARAM IMSCOD=YES 


/& 
// FIN 





Figure 11-1. Compiling a 1974 COBOL Action Program Using Jproc 


When you use the EXEC COBL74 job control statement, you 
must allocate a printer and three work files for the COBOL 
compiler. In Figure 11-2, the source program is embedded in the 
job control stream. The program is not sharable. 


JOB PROG2 

DVC 20 // LFD PRNTR 
WORK 1 

WORK2 

WORK3 

EXEC COBL74 

PARAM CALLST=YES 


source program 





Figure 11-2. Compiling a 1974 COBOL Action Program Using Standard Job 
Control 
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To compile an extended COBOL action program or subprogram, 
you can use either the COBOL jproc or the EXEC COBOL job 
control statement. 


Figure 11-3 executes the extended COBOL compiler using the 
COBOL jproc. In this example, the source program is embedded 
in the job control stream, and the program is sharable. 


JOB PROG3 
COBOL 
PARAM QUT=(M) 


source program 





Figure 11-3. Compiling an Extended COBOL Action Program Using Jproc 


Figure 11-4 uses the EXEC COBOL job control statement and 
assumes that the source program, MYPROG, is filed in a user 
source library, SRCIN. Notice that a device assignment set is 
required for the user source library. The program is sharable. 


JOB PROG4 

DVC 20 // LFD PRNTR 

DVC 50 // VOL DISK®@1 // LBL SRCLIB // LFD SRCIN 
WORK 1 

WORK2 

WORK3 


EXEC COBOL 
PARAM IN=MYPROG/SRCIN 
PARAM OUT=(M) 


FIN 





Figure 11-4. Compiling an Extended COBOL Action Program Using Standard 
Job Control. 
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Job Control for Assembling BAL Action Programs 


You assemble BAL action programs and subprograms the same 
way as other BAL programs, using the ASM jproc or the EXEC 
ASM job control statement. 


ASM jproc Figure 11-5 uses the ASM jproc and assumes the source 
program, ASMPRG, is filed in the system source library, $Y$SRC. 


// JOB PROG5 
//ASMPRG ASM IN=(RES) 


/& 
// FIN 





Figure 11-5. Assembling a BAL Action Program Using Jproc 


EXEC ASM statement Figure 11-6 uses the EXEC ASM job control statement and takes 
source input from the job control stream. You must allocate a 
printer and two work files for the assembler. 


JOB PROG6 

DVC 26 // LFD PRNTR 
WORK 1 

WORK2 

EXEC ASM 


source program 





Figure 11-6. Assembling a BAL Action Program Using Standard Job Control 
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11.3. LINK EDITING ACTION PROGRAMS 


After you obtain a clean action program compilation or assembly, 
you must link edit the program and store it in the appropriate 
load library. We discuss load libraries in 11.4. 


When you can use LINK You can use the LINK job control procedure for a BAL program 
jproc or for a COBOL program compiled with PARAM IMSCOD=YES 
or PARAM OUT=(M). You must use the EXEC LNKEDT job 


control statement for nonsharable COBOL action programs. 


On the LINK jproc, you must specify the OUT parameter to store 
the action program in a load library: 


LINK jproc format // LINK action-program-name, sl fees ead 
(RES, $Y$LOD) 


For example: 


// LINK MYPROG,OUT=(RES,$Y$LOD) 


If you want to give the action program load module a different 
name than the object module, use this format: 


Format for naming load //load-module-name LINK object-module-name, 
module OUT= {(vol-ser-no, Label) 
(RES, $Y$LOD) 
LINK jproc example Figure 11-7 uses the jproc to link edit an object module called 


MYPROG and create a load module called CREDIT. Output is to 
LOADLIB. You do not need a device assignment for LOADLIB 
because the LINK jproc generates it from your OUT specification. 


// JOB LINK 
//CREDIT LINK MYPROG,OUT=(IMSVOL,LOADLIB) 


/& 
// FIN 





Figure 11-7. Link Editing an Action Program Using Jproc 
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Using standard job control 


ENTER statement 


Example using 
EXEC LNKEDT 


Compile and link example 
using jprocs 


When you execute the linkage editor using standard job control, 
you need a LOADM statement to name the load module and 
INCLUDE statements for the action program object module and 
the IMS link module, ZF#LINK. 


A nonsharable extended COBOL action program or subprogram 
also requires an ENTER statement. The ENTER statement must 
be the last linkage editor control statement in your job control 
stream. 


Figure 11-8 shows a standard job control stream for the linkage 
editor. The linkage editor requires a printer file and one work file. 
You can omit the printer file if you assigned one to the compiler 
in the same job control stream. Output is to the system load 
library, $Y$LOD; a device assignment is not needed for this file. 


JOB LNKEDT 

DVC 20 // LFD PRNTR 
WORK 1 

EXEC LNKEDT 

PARAM OUT=$Y$LOD 


LOADM CREDIT 


INCLUDE MYPROGG@) 
INCLUDE ZFHLINK,$Y$OBJ 
ENTER MYPROG(@) 





NOTES: 
a For extended COBOL, the object module name is appended with 00. 


@ Required only for nonsharable extended COBOL programs. 


Figure 11-8. Link Editing an Action Program Using Standard Job Control 


Figure 11-9 shows a job control stream for compiling and linking 
a 1974 COBOL action program, using both the COBL74 and LINK 
jprocs. The action program is stored in the LOAD action program 
library (see 11.4). The LINK jproc generates a device assignment 
for the load library. 
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// JOB COBL 
//MYPROG COBL74 IN=(RES) 
// PARAM IMSCOD=YES 


//CREDIT LINK MYPROG,OUT=(IMSVOL,LOAD) 
/& 
// FIN 





Figure 11-9. Compiling and Linking a COBOL Action Program Using Jprocs 


Assemble and link example Figure 11-10 shows a job control stream for assembling and 
using ene linking a BAL action program, using standard job control. A 
Sone device assignment set is required for the output file, LOADLIB. 


JOB ASML 
DVC 20 // LFD PRNTR 


DVC 50 // VOL IMSVOL // LBL LOADLIB // LFD LOADLIB 
WORK 1 


WORK2 
EXEC ASM 


source program 


WORK 1 
EXEC LNKEDT 
PARAM OUT=LOADLIB 


LOADM PAYROL 
INCLUDE ASMPRG 
INCLUDE ZFHLINK,SYSOBJ 





Figure 11-10. Assembling and Linking a BAL Action Program Using Standard 
Job Control 
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11.4. STORING ACTION PROGRAMS IN A LOAD LIBRARY 


One library for action 
programs 


When you use fast load 
feature 


Improves performance 


Fast loading requires 
LOAD library 


Action programs loaded 
from fast load file 


When you do not use 
fast load feature 


Where to store 
UTS programs 


When you link edit an action program, you must specify the load 
library where you want it stored. IMS has specific requirements 
for storing action programs. 


The first requirement is that all your action programs must reside 
in the same load library. 


The toad library you choose depends on whether or not you 
configure the fast load feature by specifying FASTLOAD=YES in 
the OPTIONS section of your IMS configuration. (See the IMS 
system support functions user guide, UP-8364 (current version).) 
The fast load feature improves online performance in applications 
with large action programs or frequent action program loading. 


If you configure fast loading, place all action programs in a 
separate action program load library in unblocked format. You 
assign this library at IMS start-up with the LFD-name LOAD. At 
Start-up, you also assign the fast load file, LDPFILE. The first 
time a transaction calls on a particular action program, IMS 
copies the program from LOAD to the LDPFILE. After that, action 
programs are loaded from LDPFILE. 


If you do not want fast loading, you can store your action 
programs in either of two libraries (but all in the same library): 


1. the system load library, $Y$LOD; or 


2. the library containing your online IMS load module. This 
library is identified at configuration time by the LIBL 
parameter of the IMSCOMF jproc. 


NOTE: 


If you use downline loading (10.1), store your universal 
termination system (UTS) programs in $Y$LOD or in the library 
containing the online IMS load module. Do not store UTS 
programs in the LOAD action program library. 
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11.5. REPLACING ACTION PROGRAMS IN THE LOAD LIBRARY DURING 
ONLINE PROCESSING 


You can replace action programs in the load library while IMS is 


Subprogram restriction online, whether or not you use the fast load feature. However, 
you cannot replace resident subprograms’ during online 
processing. 


How to replace programs You replace an action program in the $Y$LOD, LOAD, or other 
load library by recompiling (or reassembling) and relinking, or by 
applying a patch (COR). For an explanation of the COR function, 
see the system service programs user guide, UP-8062 (current 
version). 


Fast load requirement When you use the fast load feature, you must insert the 
statement: 


// DD ACCESS=EXCR 


in the device assignment set for the LOAD library in the compile 
and link or COR job control stream. 


& Recompile and link example The job control stream in Figure 11-11 recompiles and links a 
1974 COBOL action program for output to the LOAD file. This 
example assumes you use the fast load feature. 


// JOB RECOMP 

// OVC 5@ // VOL IMSVOL // DD ACCESS=EXCR // LBL LOAD // LFD LOAD 
//MYPROG COBL74 IN=(RES) 

// PARAM IMSCOD=YES 


//CREDIT LINK MYPROG,OUT=(IMSVOL, LOAD) 
/& 
// FIN 





Figure 11-11. Recompiling and Linking an Action Program During Online 
Processing 


ZZPCH command After replacing the action program in the load library, issue the 
ZZPCH master terminal command. The next time a transaction 
calls on the action program, IMS loads the new version from the 
load library. When you use the fast load feature, IMS copies the 
new version to the LDPFILE. The ZZPCH master terminal 
command is described in the {MS terminal users guide, UP-9208 
(current version). 
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Adding action program Follow the same procedure to add an action program to the load 
to library library that is missing at start-up. Of course, the program must 
be defined in a PROGRAM section of the IMS configuration. 


ALTER statement restricted When you use the fast load feature, do not use ALTER 

when using fast loading Statements in the job control steam at IMS start-up. When you 
do not use fast loading, you can insert ALTER statements in the 
Start-up job control stream to make temporary changes to action 
programs. 














SNAP DUMP ANALYSIS 


gAwDy> v 
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12. Debugging Action Programs 


Though error-free programs are every programmer’s dream, in 
reality they never seem to materialize. After all the explanations 
are made about how to program applications correctly, probably 
the most important tool a programmer has is his working 
knowledge of debugging procedures. Consequently, it’s important 
to know how to debug your action program using the snap dump 
feature provided by IMS. 


12.1. TYPES OF SNAP DUMPS 


Termination and You can obtain two types of snap dumps: 
CALL SNAP dumps 


1. the termination snap dump 


2. the CALL SNAP dump 


Obtaining termination A termination snap is caused by action program termination 

snap either by voluntarily moving an S to the termination indicator or 
by abnormally terminating due to program check or timer-check 
(time out due to a loop in the action program). 


Obtaining CALL SNAP A CALL SNAP dump is caused by your program voluntarily 

dump issuing the CALL SNAP statement in a COBOL action program or 
the ZG#CALL SNAP macroinstruction in a BAL action program. 
The action program does not terminate to produce this dump. 


Edited and unedited IMS provides both edited and unedited snap dumps. In 

snaps single-thread IMS, termination snaps are always edited; however, 
for CALL SNAP dumps only unedited snap dumps are available. 
In multithread IMS, users must specify SNAPED=YES in the 
OPTIONS section of the IMS configuration to obtain edited snap 
dumps. 
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12.2. TERMINATION SNAPS 


General breakdown Figure 12-1 illustrates the general layout of a termination snap 
dump caused by S termination indicator or abnormal termination. 


This same general layout applies to single and multithread IMS. 


EDITED HEADERS 


PROGRAM REGISTERS 


INTERFACE AREAS 


ACTION PROGRAM LOAD AREA 


TERMINAL CONTROL TABLE 





Figure 12-1. Layout of a Termination Snap Dump 


There are six sections to each termination snap dump: edited 
headers, IMS and action program registers, interface areas, action 


program load area, the thread control block, and the terminal 
control table. 
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Edited header data The edited header section contains information about the action 
program that was running when the snap occurred. Included is 
the name of the action program load module that was executing, 
an allocation map that provides the relative addresses of action 
programs and IMS areas needed in debugging the program, and a 
general statement of why the snap dump occurred: e.g., USER 
REQUESTED VOLUNTARY TERMINATION. 


Register section The next section contains registers and their contents. Here, 
you'll find one or two sets of registers depending on the reason 
for the snap dump. If your action program voluntarily terminated 

Registers with a voluntary with a snap, i.e., S_ terminati indi your snap dump 

termination snap contains one set of registers - These registers are 
of little use to you. 








When you voluntarily terminate your action program to obtain a 
snap dump, you're usually checking contents of interface areas 
that are easily locatable from the allocation map in your snap 
dump. In this situation, you do not need to obtain a program 
status word from the save area. Furthermore, no program status 
word is passed to the save area on a termination snap. 


If, however, your action programs are in BAL and you do need to 
know your action program's register contents on a termination 
snap, look in your action program's save area plus Cig bytes to 
find registers 14, 15, and O-12 in that order. 


To arrive at the save area plus Cis, locate the BAL program 
information block DSECT field, ZA#PSAVE, which contains the 
address of your action program save area. (See Figure 3-3 for 
the BAL program information block DSECT.) 


Registers with an On the other hand, if IMS terminates your action program 


abnormal termination abnormally, the snap dump contains two sets of registers - 
snap : 






User registers precede IMS registers and are labeled so they are 
easily identifiable. Just above the user registers O-F is the 8-byte 
program status word indicating in its last three bytes the address 
of the instruction immediately following the one that caused the 
abnormal termination. (See Figure 12-6 program status word, 
EOE60E01 40 


t16-) 





UP-9207 





SPERRY UNIVAC OS/3 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





SNAP DUMP TYPES 








Interface areas 


Program area 


Thread control block 


Following the register section, you find the interface areas - 
program information block, output message area, input message 
area, work area, continuity data area, and defined record area. 


The next section of the snap dump is the action program load 
area. It contains the executable load module generated by the 
linkage editor. 


Following the action program area is a section used for the 
action program's thread control block. In the third control block, 
most pointers and flags required to control the user environment 
are stored for use by IMS and indirectly by the user action 
program. 


Figure 12-2 illustrates the relationship between the IMS thread 
control block and the user interface areas for both single-thread 
and multithread IMS. 


PROGRAM INFORMATION BLOCK 
(PIB) 
OUTPUT MESSAGE AREA 
(OMA) 
INPUT MESSAGE AREA 
(IMA) 


WORK AREA (WA) 


CONTINUITY DATA AREA 
(CDA) 

: DEFINED RECORD AREA 
(DRA} 


PROGRAM !NFORMATION BLOCK 
(PIB) 

OUTPUT MESSAGE AREA 
(OMA) 
CONTINUITY DATA AREA 
(CDA) 


WORK AREA (WA) 


INPUT MESSAGE AREA 
(IMA) 

: DEFINED RECORD AREA 
(DRA) 





Figure 12-2. Relation between THCB and Interface Areas 
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Notice that pointers within the thread control block point to each 
interface area. Single-thread and multithread IMS differ only in the 
location of these pointers and in the relative order of the 
interface areas themselves. 


Thread control block Also, the program information block (first interface area) in the 
locations for single thread control block is located 20 bytes into the thread control 
ene nenntead block in a multithread termination snap. In a_ sinlge-thread 


termination snap, the program information block begins at the 
first byte of the thread control block. 


Terminal control block The last section in the snap dump is the terminal control table. 
Data in this area is relevant to the terminal that initiated the 
action and is the least useful section of the dump to the IMS 
programmer. 
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12.3. CALL SNAP DUMPS 
Layout Description 

General breakdown Figure 12-3 illustrates the general layout of CALL SNAP dump. 
Except for the edited headers, this layout pertains to single and 


multithread CALL SNAP dumps. All single-thread CALL SNAP 
dumps are unedited. 


INTERFACE AREAS 
- PI 


- OMA 
- IMA 


WA 


MAIN STORAGE AREAS 


{Only those named on SNAP function call) 





Figure 12-3. Layout of a CALL SNAP Dump 


There are three sections in each CALL SNAP dump: 


Edited headers (for edited dumps) 


IMS registers 


Requested main storage areas 





Edited headers The edited Header Section contains information about the action 

data program that was running when the CALL SNAP _ occurred. 
Included is the name of the action program load module that was 
executing, an allocation map that provides the relative addresses 
of action programs and IMS areas needed in debugging the 
program, and a general statement of why the snap dump 
occurred; e.g., USER INLINE SNAP. 
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Register section The register section contains IMS registers only. No program 
registers are shown. These registers are of little use to you. 


Interface areas Following the register section, you find the main storage area. 
The main storage areas included in the CALL SNAP dump are 
only those you named on the SNAP function call in your action 
program. You can dump up to six main storage areas including 
interface areas. 


SNAP Function Call 


Purpose of SNAP When you want to debug your action program without 

function call terminating the program, use the SNAP function call. The SNAP 
function dumps up to six noncontiguous main storage areas in 
hexadecimal. Output is to the printer. COBOL and BAL formats 
for the SNAP function calls are: 


COBOL Format 


CALL 'SNAP' USING start-area-1 end-area- 1 
[...Sstart-area-6 end-area-6]. 


> BAL Format 


ZGHCALL SNAP,(start-addr-1, end-addr-1[,...start-addr-6, 
end- addr -6]) 
Start-area and The start-area-1 and end-area-1 parameters are paired for the 
end-area COBOL CALL statement just as the start-addr-1 and end-addr-1 


parameters are paired for the BAL CALL statement. The 
start-area-1 is the data name of the beginning of the area to be 
snapped and the end-area-7 is the data name of the end of the 
area to be snapped. 


Start-addr and For the BAL CALL macroinstruction, the start-addr-1 and 
end-addr end-addr-1 parameters indicate the start and end addresses of 
the area being snapped. 


Six noncontiguous The SNAP function dumps up to six areas including the program 

areas snapped information block, input message area, work area, output 
message area, continuity data area, working-storage (COBOL), 
and defined storage area (BAL). 
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SNAP function and 
naming areas to 
be snapped 


In the FIXSAM action program (Figure 12-7, line 312) the SNAP 
function call shows how the start areas and end areas are paired 
and their data names defined elsewhere in the program. Though 
the beginning and ending identification of these snapped areas 
may occur on the SNAP function call in any order as long as they 
are paired, the interface areas take their beginning and ending 
identification from the single and multithread activation record 
layouts shown in Figure 12-2. 
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12.4. SINGLE AND MULTITHREAD SNAPS 


Order of interface areas There are three major differences between single-thread and 
multithread snap dumps. First, the order of the interface areas is 
different. In a single-thread dump, it is: program information 
block; output message area; input message area; work area; 
continuity data area; and defined record area if defined files are 
used. On a multithread dump, it is: program information block; 
output message area; continuity data area; work area; input 
message area; and defined record area if defined files are used. 
Since the allocation map in an edited dump points directly to 
these areas, there should be no difficulty in locating them in 
either single or multithread IMS dumps. 


Different DSECTs The second major difference concerns the thread control block. 
The format for single-thread and multithread is totally different. 
Figures 12-4 and 12-5 provide listings of the thread control 
block DSECTs for both single-thread and multithread IMS. By 
examining these figures, notice that although the format is 
different, the data they contain is basically the same. 


Shared code differences The third difference is if the action program is a shared code 
& COBOL program, in multithread the termination snap dump shows 
an additional area appended to the end of the program 
information block. This is the shared code volatile save area used 
by IMS and COBOL to make COBOL reentrant. This portion of the 
dump is of little use to an action programmer. 


The terminal control table for single and multithread IMS is also a 
valuable debugging aid. Figure 12-6 shows this table. 
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LOCe LINE SOURCE STATEMENT 


A997T94 2MeDTHCB 
goonoe B99804ZTH#DTHCR DSECT 

BOB +e 

89982+e THREAD CONTROL BLOCK / SYSTEM IN-ORMATION BLOCK 

B98 348 

B9984ee THREAD CONTROL SECTIUN 

BIDES+e 

BOY B bee 

B99BT +e INSERTED EQU"S Tu MATCH Od/7 NAMES 

B99BE+e 
Soonoc BOGSF+ZTATPIBA cwU 
Soenoe B999D*ZTHHPIBA OS 
Soo0n04 BOOIL+ZTBTIMA EU 
990n04 BOVIZ+ZTHHIMA US 
fo0n08 BO99Z4+ZTATWA EQU 
090068 BIFI4SZTHHWA oS 
Go000Cc BOGISeZTBTOMA Eau 
Goan0C BOSI6+ZTRHOMA US 


e 
A PROGRAM INFORMATION BLOCK ADDR 
* 
A 
. 
A 
° 
A 

900019 BOII7*#ZTBTCDA cEWU . 
A 
* 
A 
s 
F 
e 
F 
. 


INPUT MESSAGE AREA ADDR 
WORK AREA ADOR 


OUTPUT MESSAGE AReg ADDR 


Cgonic BO9IBSZTHHCDA US 
To0014 B99994ZTHTORMA EwU 
C90014 BOODO+ZTRHDKA US 
300018 BOCOL+ZT#OOREC EQu 
Qco018 BOOO2Z+ZTHHDORA OS 
faonic KOCO3+ZTRSUBFL EwU 
C30nIC BOCC4Y+ZTHHDFA vS 
690022 BCOOS+ZTRTFAM cau 
300029 BOCOS+ZTAHFAM DS 4F FILE aLLOCATION WAP 
Coons BOGO7+ZTSHNUMF Eel eoZTHHFAM FILE ALLOCATION MAP LENGTH 
fo0030 BOOOCB+ZTRTATA EQU . 
800035 BOCOV+ZTHHATA vS F 
2c0n34 BOOLO+ZTRTPTA Eau . 
030034 BOCTI+ZT@HPTA vos F 
teo0348 BOCI2+ZTRTPTAL US F 
So0n3c BOCI34+ZTHTTTA Eau e 
a 
F 
F 


CONTINUITY DATA AREA ADOR 
OEFINED KECORD ARta ADOR 
DATA DEFINITION RECORD ADDR 


DEFINED FILE/SUBFILE PKT ADDR 





ACTION CONTROL REC PTR 


PROG CONTROL TABLE REC PTR 


Ssan3ac BOGIL4Y+ZTaHTTA oS 
80040 BOOIS+ZTHHIOAYV US 
Soon44 BCOLS*+ZTHHPLA uS 
C95048 ROCI7+ZTRHBIQP US 
BOC B46 
BOC1Y+e EQUATES FOR 1ST BYTE OF ZT#HBIQP 
309068 80020+Z8#S0LSH EQuU x*UB*® SHUTDOWN IN PROCESS 
Seono4 6O021+Z28aS0LAS twu x*O4* AUTOMATIC STATUS 
?90n02 ACE?S2+ZHR2SOLCO EQU x¥*02¢ ZZUP/Z7ZDWN COMMAND OUTSTANDING 
eeo00! BOC23+Z8RSOLST EQU x*O1l* SHUTDOWN TIMER 
bOCZ4+e 
89cn4c BOC2S5¢ZTBHAIQL US XL1 BYPASSED INTERRUpT QuEut LENGTH 
Jo0ONNU BCOZ6+ZARUSER Ewu * 
Jasn4D 09 BCOLZ7+ZTHUSER VC x'U* « USER FLAG 
SOC Za+e 
BCC L948 MUST ALWAYS HE ON Oun BYTE BOUNDARY 


TERM CONTROL TAS KeC PTR 
START OF VARIABLE 1/70 AREA 
PROGRAM LOAD AREA ADORESS 
BYPASS InwTERRUPT QuEVE PT 





Figure 12—4. Single-Thread Thread Control Block (Part 1 of 4) 
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LIWE SOURCE STATEMENT 
BOCIOes 
bOG31+8 1/0 HAS OCCURRED 
BOO32e8 INITIAL SETTING FOR USER 
BOC33+e IMS ACTIVE 
BOC34ee COUNT FOR TOTA: TIME 
Scsn4e BCOISeZTH#TINO kw . 
Ooon4eE BNC3I64ZTRHIND US XtLL CONTROL INDICATORS 
sOC37+8 
BOC 3840 EQUATES FOR ZTsHIND 
6OC3I9+e 
Cooned BNCY4YO+ZTHHINSP EQU x*sO* SNAP INDICATON 
C99040 OCCH4IL+ZTRHINER Eu X40" ERRON KETURN 
900929 BOCH2+ZTRHINOL EQu x*Z0¢ DELAYED INTERW,L SUCCESSION 
Coool9c BOC4YZ+ZTAHINEG chu x*1G* EXPLICIT OUTPUT 
Geonos BOG44HeZTRHINEX eWU x*UB* EXTERNAL SUCCCSSION 
9con04 BOCHS*ZITSHINCN EWU X*'O4t CANCELLED 
Geonc2 BIO4YS+7TRHHINIR cQu x°U2* INTERNAL REQUEST TO FILE MGMT 
Oconc! bOCH7+Z7TBHINUP EQU x*GL* UPDATE PERFORMED BY THIS ACTION 
BOCYE+s 
29004F BAOYI+ZTHSYIND US XL1 CONTROL INDICATURS 
enone BOOSO+ZTHILIST eu X'oO" INTEKRUPT LIST IF SET 
Goon4o BOCSL+ZT#TOMRD cQu y*4Oe ee £F UN INUICATES READ FROM TOMFOLE 
8G0n29 BOCH24+ZT#TRSD EQU K*20* « RESEND = NO 
Soonic BO5534+ZTSUTOUT Eu x*10* USER TIME QUT 
fe00c8 BAOSH*+ZTRBESETL EQU x*Oee 
90964 BOCSS+ZTBUSETK LW x*9O4* USE THE TEXT i, UMA ALTHUUGH TRANS WAS CNC 
S9onc2 8905647 TH#ZZ0PN Eau x°U02¢ INDICATES TO weITE ZZOPN TERM. RECORD 
toons? BCOS7T+ZTRPSSK OS oF 
SCCSBee 
Bsensgee FILE MANAGEMENT ENTRIES 
BOG40+8 
Caaon74 BOCOL+ZTBTFC tuu * 
foo0n74 BIC62Z4+ZTSHFC vs FoUYTE O ita OF PARAMS 
ALITosee BYTE 3 3 FUNCTIOW CODE 
Qo0n7K8 BOO644+ZTSTUPDA LQu . 
290078 BOQSS4+ZTHHUPLA US F JNPROTECTED OTF AvoR 
Ogon7C BNOSS4+ZTRTCR tw . 
feco7c HOG674ZTRBHAPLA VS F PARAM LIST AUOR 
fognad BICCKeZTBaTF WA EQU . 
fe0n87? SI269+ZTAHF WA US 3A FILE sGnT wORK AneA 
FaanRCc BOr7O+ZTB&OMSL LS A TCT ADUK OF OMS RUN@UNIT 
teanve SIG7L+ZTBOMCA CS A UMS = OMCA ADDRESS 
BOS72+¢¢@ 
bOC73+¢ SAVE AREAS 
UOC7T 444 
BOC7S +e 
HOnTb+e@ 
Te0094 SOG77+Z18HSADM US LaF DATA MANAGEMENT GAVE AREA 
TeCIVUc BOCO7K+ZTRHSALR WS LAF JNTERNaL REQUEST SAVE AREA 
bIN79 +4 
bNCRO+e SYSTEM ENFORMATION SeCTION 
aNCdl +e 





Figure 12-4. Single-Thread Thread Control Block (Part 2 of 4) 
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LOCe . LINE SOURCE STATEMENT 
600124 80082+Zb4a5TIDT US F TRANSACTION CODE T,BLE 
090128 wO0834+ZbASACT 0S ACTION CONTROL TAbvLE 
Q9012C BOCB4+ZB8SFCT US PROGRAM CONTROL TABLE 
C90130 8 s0985+Z2BaSFCTI US FILE CONTROL TABLt INDEX 
000134 BOCK8S&+Z62STERM US TERMINAL CNTL TBL ADDR 
Cc0138 BOOB87+ZBRSNCTI OS DEF FILE CONTROL TABLE 
too13c BOG38+ZKASFADR US IMS LOAD ADDRESS 
900149 BCOBI+ZHBRBSAVAL US AVAILABLE LIST ADURESS 
090144 80090+Z6asSTCS OS TERMes CONTROL SECTION 
Cool48 BNOYI1+ZBR#SIMB ODS INPUT MESSAGE BUFFER 
O9014C 80092+ZBRSIOAE OS I/p9 AREA END ADDR 
Ceo1SC B00934+ZKRSESAD uS ADDR IMS SESSION STATISTICS 
Ceo154 B80094+Z7BaLOUTM LS LARGEST OUTPUT MSue 
t9c0156 BOO9S*+ZBeLINM oS LARGEST INPUT MSGe 
900158 Bo0764+ZBB2LOMTI OS 4C LaRGEST OUTPUT MSGe=TERM IDe NAME 
S0015C B0097+ZbRLIMTI US 4C LARGEST INPUT MSGe=TERM iDe NAME 
Jo0160 BCOY8+ZBRBSMLL OS H STANDARD MESSAGE LINE LENGTH 
000162 BOSOYI+ZRBRSMNL OS H STANDARD MESSAGE NUMBER OF LINES 
099164 BO1904ZB8SIMBL US H INPUT MESSAGE BUFFER LENGTH 
900166 sO1Qle+ZbaTMCCA DS H NUMBER OF TERMS Ii ICAM CCA 
090168 B0102+28aSTOF US XLL » USER TIMEOUT #1) AG 
090169 8N103+ZB4SOLOF US xLi CONTROL INDICATURS FOR aUuDIT 
BC1LO4ee 
BOLIS+e EwUATES FOR ZBsSOLUF 
000082 0106+ZbaeS0LUP EuU X*SO* UPDATING PERMITTED 
9900042 O0197+ZB#SOLAI EQu x*4O" AUDIT MODULE INCLUDED 
BOING +s (BEF IMAGES, TR FIteS) 
200029 691094Zb4SOLKD Eau x*20¢ ROLL GACK PROGKAM / FILE DOWN 
Goon1D = AOLIU+ZBeSOLSU EQuU x*10* SUPPRESS UPDATES 
000008 BolLI+Z5#S5SOLTB EWU x*UB8* REFORE IMAGES TRACED 
S90004 BA1L2+ZBRSOLTA Eu x°O4e AFTER IMAGES [tRACED 
900002 BCII3+ZB8#SOLTI Enu x*929 INPUT MESSAGES TRACED 
090001 BOLL4Y+ZBRSOLTE EQU x*01* 1/0 ERROR TRACE FILE 
BOLIS+®? 
90016C BO11L6+ vs oF 
BOLL7+* 
CO016C bN118+Z5#FLGI OS X « FLAG UF STARTUP 
90082) BOIIL9+ZbR&STRIN X*80% ¢« STARTUP ACTivEe 
900049 60120+ZBaTCRSH X°4O00 e*TRCFILESCRASH 
CoON20) ANni21+ZBeaTEXT X*20¢ e*TRCFILEFEXT 
COO16D §=40122+ZBBFL G2 xX eFLAG FOR TOMFILE 
090082) or1i23+ZuatTOmMuP x*80¢ © fFOMFILE CONF ;GURED 
So0n01 bO124+#ZBa2TOMER x*OLe ¢ ERROR ON TOM FILE 
C0002 491254758 TOMNT x*02* ¢ pO NOT TRACE TOMFILE 
COCISE ell 26eZ5#FLG3 xX eFLAG FOR TYPE OF RESTART 
Cocact #891274ZRey DCL A°O1L* eSTART=CLEAN 
800002 HN12d+ZBRINDWA X*O02¢ eSTAKTSWARM 
9¢0004 BO1z29+ZeRITNDCO x*O4* eSTAKT=COLU 
PQO16F 3C1304Z7beFLG4 x UMS FLAG BYTE 
Feons8s B91S1+ZdaPNSDm x*80" 145 HAS MADE w REQUEST To OMS 
S99049 Bo1324Z880KrS0C x°4S" DMS HAS TERMIN,TED : 
COON22 BC1334ZbRNMSRU x20 OMS RKUN-UNIT EXISTS 


rIxorrePemnAArAAAAATAN 





Figure 12-4. Single-Thread Thread Control Block (Part 3 of 4) 
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LOCce LINE SOURCE STATEMENT 
Soon? BO134+ZS#1MSNA EQU x*10¢ IMS WOT ALLOWER ACCESS TO DMS 
So0nca BO135+ZBRDMSNA EQU x*O08* OMS [S NOT THERE 
Gc0175 BO136+2B8FLGS US xl 
8e0089 BCL37+ZBaKaAT equ X*8C* KATAKANA CONFIGURED 
9¢0049 BOL3B+ZBBSTATS EQU x*4G* STATISTICS AT SHUTDOWN 
900020 BOCL3I9+ZBSSFSEN EQu x'2G* SFS ENABLED 
fo0008 BO140+Z68G6LB EQu x*O8e GLOBAL NETWORK 
O90004 BO141+ZB8RDED EQU x*O4e DEDICATED NETWnHRK 
000171 BOLY2¢ vs XL3 yNUSED 
@00174 BO1434+ZBeHLPCT OS F LAST PCT ADDRESS 
90178 BOI144*+ZBRLACT DS F LAST ACT ADORESS 
00017C BOL4YS+ZBRBLAD os F LAST LOAD AREA ADURESS 
900180 80146+ZBANLST OS H INTLIST#N VALUE 
900182 BOL4d7+ os xL2 UNUSED 
000184 BOLYB+ZCBCCA os CCA NAME 
000168 BOLY9*+ZCHLOCAP DOS LOCAP NAME 
00018¢ 60150¢ZHeMDICE OS DICESSCREEN CLEAR/uSG POSITION 
000199 BOLISL+Z6aUNDEF US POINTER 10 TRIDT TO PROCESS UNDEF e TRANS eCONES 
c00194 BO1S2¢+ZBe#pAaTE OS TODAY*S YATE 
GO0198 = §=660153+ZbeSESLN US F LENGTH-SESSION TASLE@ZSTAT 
Co019¢ BCIbS44+Z7Q8THFIN OS OF « THIS TAG MUST STAY AT END 
00019C BOLSS+ZTHHLEN EQU e-ZTaUTHCE LENGTH OF THCB 
00019C BOISé6+ZTRTLEN EQU ZTSHLEN 
000000 BOIS7+ZCRIIP CSECcT 





Figure 12-4. Single-Thread Thread Control Block (Part 4 of 4) 
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Coon0c 
000010 
Oo00!14 
000018 
Oo00ICc 
090020 
000024 
090028 
Oo002¢c 
Oo003¢ 
000034 
900020 
Oo0054 
0000586 
Oo005C 
000060 
000064 
Co0068 
Ooo0n0éc 
000074 


LINE SOURCE 
2628 
2629 

A2630¢+ZT#AOTHCE 
AZ631L+ZTRTHQPT 
A2632¢ZTSNTHCB 
A2633¢ZTRTHURF 
A2Z2634¢ZTRTHROF 
A263S54¢ZTRDOWAIT 
A26364+ZT#REGRS 
A26374¢ZT#IECB3 
A2638e8 
A2639+8 
A2640O08 
A2641*ZTRTHSVR 
A2Z26424¢ZTB#THRAD 
AZ643+ZTRTPIBA 
AZ644SZTBTIMA 
A2ZG4S*ZTRIWA 
A26464ZTRTOMA 
A26474+ZTRTICDA 
A26484ZTSTORMA 
AZ2649*+ZTRODREC 
A26504ZT#SUBFL 
A26S514ZTSTFAM 
A26S24ZTRTNUME 
A26534+ZTRTATA 
A2Z26544ZTUTPTA 
A2Z6SS4+ZTRTPTAL 
A2Z6Sb4ZTRTTTA 
A26574ZTBTIMB 
A26S58eZT#TEDIT 
A2Z6594ZTRTRID 
A26604ZTRTIND 
A266, +8 
A266246 
A266348 
A26644e 
A2665+8 
A266648 
A2667+8 
A266848 
A2669+8 
A26708 
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STATEMENT 


PRINT GEN 
ZMRDTHCB 


DSECT 


oS 
os 
bs 
US 
oS 
oS 
oS 


NEXT THREAD IN QUEUE POINTER 
NEXT THREAD FOR SCHEDULING 
URGENT FLAG O = ROUTINE 
THREAD READY FLAG 1 = READY 
OX BIT O INITIAL THREAD WAIT FLAG = wAIT 
xX BIT 7 RESTORE REGISTER FLAG O = YES 
xX Bit O CANCEL FLAG 1 © CANCEL 
BIT 2 OUTPUT MESSAGE GENERATED BY 7G8MTMSO 
BIT 3 INTERNAL CANCEL INITIATED 
BIT 7 TECB FLAG 1 © 3worD 
« THREAD SAVE AREA REGISTER 
e THREAD RETURN AURHRESS 
PROGRAM INFORMATION BLOCK ADOR 
INPUT MESSAGE AREA ADDR 
WORK AREA ADOR 
OUTPUT MESSAGE ARE~ ADDR 
CONTINUITY DATA AKEA ADOR 
DEFINED RECORD AREA ADDR 
DATA DEFINITION RECORD ADDR 
DEFINED FILE SUB=FILE DESC ADDR 
SF FILE ALLOCATION MaP 
e-ZTaTFAM FILE ALLOCATION MAP LENGTH 
ACTION CONTROL TABLE RECORD ADDR 
PROGRAM CONTROL TABLE RECORD ADOR 


>Prrprrrrnnt" 


TERMINAL CONTROL TABLE RECORD aDdoR 
INPUT MSG BUFFER ADOR 
EDIT TABLE ADOR 

CL8 TRANSACTION ID 

XL1 CONTROL INDICATURS 


BIT O TERMINATION TYPE is) NORMAL 

1 ABNORMAL 
it) NO 

1 yes 
INTERNAL MESSAGE CONTROL? 

00 END ACTION oR END TRANSACTION 
ol EXPLICIT OurPUT 

10 DELAYED INTERNAL SUCCESSION 


11 CANCELLED 


BIT 2 ERROR RETURN 


BIT 3-4 








BIT 5S 


INTERNAL REQUEST INDIC FoR Fm 


A267) +# 
A26724¢@ 


0 
i 


NO 
YES 


Oc0075 
090076 
-000078 
OoO007A 


A26734¢ 
A2b674%4+8 
A2Z67S5S4ZTRTERS 
A267464ZTATES 
A26774*ZCRSFSSC 
A2678+ZCHRITLN 


BIT 6 OUTPUT IN PROCESS 
BIT 7 OUTPUT WAITED 
X ERROR CODE NUMBER 
H RELATIVE ACT RECOkn ADDR 
H INPUT STATUS BYTE COUNT 
XLL xTION FLD LEN CTR@INVALID TRANSACTION 





Figure 12-5. Multithread Thread Control Block (Part 1 of 2) 
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LOCe 
600078 


LINE SOURCE STATEMENT 

A26794¢ZCRSFSID DS CL6 SUCCESSOR@ID FORK REBUILD 
A2680¢e FILE MANAGEMENT ENTRIES 

A2681+¢4 PARAMETER LIST FOR SUBTASK 


Co0084 
000088 
Con08c 


eo00090 
600074 


A2682¢ZTRTBA 
A26834ZTSTRPLA 
A26B4+ZTRTFC 
A2685+¢ 
A2Z6BSeZTRTUPDA 
A26874+ZTHTCR 
A2688+8 


oS 
oS 
os 


vs 
os 


OTHER 


A BEGIN ADDR 
A REQUEST PARAM LIST ADDR 
A BYTE O = & OF PARAWS IN LIST 
BYTE 3 = FUNCTION COnE 
A UNPROTECTED DTF ADDR 
A COVER REG 


Cco09s 
Oo00A4 
Oo0000 
fo0009 
Oo00Fs 
OoO0o0FC 
000118 
000166 
00018C 
00018C 
000184 
000;88 
000188 
Oo0040 
Oo0004 
000001 
0001BC 
Oooice 
So01Cc4 
0001¢c8 
Oco1cs 
8090000 


A2689+ZTRHTFWA OS 
A26904ZTSTSAVI DS 
A2691L+ZTSTSAV2 OS 
A26924ZTRSAVS EQU 
A2Z693+ZTRSAVES EQU 
A2694+4 os 
AZ69S+¢ZTRTSAVY US 18A SAVE AREA 

A26964ZTRTSAV3 DS 11A SAVE AREA 

A2697+ZABPSSK DS oF 

A269B4ZTRTFLA OS F REQUIRED BY 

A26994ZTHTFI os F APPL eMANAGe 

A2700¢ZT#TF2 DS F FLAG BYTE 

A2701+ZT#SYIND EQU ZTSTF2 FLAGS 

A2702*¢ZT#TOMRD EQU x40 INDICATES TOM ,EAD . 
A2703¢ZT#ZZ0PN EQU x04" INDICATES TO wRITE ZZOPN TERM. RECORD 
A2704¢ZT#ROF EQu x*O1* MIRAM RE©READ FLAG 

A2705¢ZTRUDMCA OS A USER PROGRAM DMCA ADDRESS 

A27064ZT#IDMCA OS A IMS INTERNAL OMCA ADDRESS 

A2707+ZT#SIBA OS F SIB ADDRESS 

A2708+ oS OF 

A27O094¢ZTBTLEN EQU e-ZTwOTHCB LENGTH OF CONTROL BLOCK 
A2710+ZO#QOUTMT CSECT 


3A WORK AREA 
LILA SAVE AREA 
1IA 

ZT#TSAV2Z SAVE 
ZT#SaV5+40 
7F*oOe 





Figure 12-5. Multithread Thread Control Block (Part 2 of 2) 
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LOCe 


900000 


LINE SOURCE STATEMENT 


2712 
A2713+2C8DTCT 
A27144+0 


ZMBDTCT 
DSECT #06 TERMINAL CONTRnAL TABLE RECORD see 
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900003 
oco004 
Co0008 
Go000Cc 
Coooic 
800014 
eoonls 
COOOIA 
o00018 
Go0018 


F ACT LINK TO NEXT TCT IN QUEUE 
xL4 TERMINAL 1D 
REL ADDR SOURCE TCT (0S/3) 
REL ADOR ALTERNATt TCT (0S/3) 
CORRESPONDING TTT aDORESS 
A27204¢ZCHTESR ODS SucC ACT REL ADDR = ROLLBACK 
A2721+ZCHTCOL OS CONTINUITY DATA LENGTH 
A2722+4ZC#TLN vs xL1 LINE NuMBER 
A27234¢ZC8TTST oS XL7 STATUS BYTES 
A2724sZCRTST £Qu zCaTTst 
A272544 
A2726+° 
A2727+¢ 
A2728+ZC#8TTLST EQU x°80* LAST TCT 
A2729+ZC#TTIMD EQu x*40° TEST MOOE 
A27304¢ZC#TTUM EQU x*20* URGENT MESSAGE, ACTION 
A27314Z2C8TTOWN EQU x*10¢ TERMINAL DOWN 
A2732¢ZC8TTHLD EQU x*G8* HOLD TERMINAL 
A2733¢ZCaTTUT EQU x*O4¢ URGENT TERMINA 
A2734+ZC#TMWR EQU x*O2* MSG wAIT (FOR ZZTST) RECEIVED 
A2735+ZC#8TMTC EQU x*Ol* MWRITE FOR ZZTST (SINLGE THREAD) 
A2736¢ZCB8TOMW EQU Xx*O1L*® GUTSTANDING MwRITE (MULTI THREAD) 
A2737+¢ 
A2738¢ZCaTSTI1 EQU 
A2739+8 
A2740+8 
A2741 40 
A2742+ZCHTTIM EQuU x*8O* INTERACTIVE MUDE 
A2743¢7CH#TTMT EQU x*40" MASTER TERMINAL 
A27T44*¢ZCRBTALTS EQuU x*20* ALTERNATE TERM SPECIFIED 
A274S*+ZCHTTRC EQU x*10* ROLLBACK COMPLETE 
A2746eZCRTTIMWS EQU x*O8e* IMS SENT MSG walT 
A2747¢ZC#8TTBTH EQU Xx*O4* BATCH TERMINAL 
A2Z274Be+ZCHTTRP EQU x*O02* ROLLBACK IN PROCESS 
A2749*eZCHTIMS EU x*O1* MSG TO ORIG TERM SENT 
A2750e8 
A27514ZC#TST2 Eau 
A2752+ZC8TPRSF EQU 
A2753+¢6 
A2754¢8 
A2755+¢ 
AZ27S6+ZCH#TTUNS Eau x*80* MWRITE ISSUED FROM ZOBUNSMT MODULE 
A2757+7ZCHTTREL LWu X*40 RELEASE BUFFER AT MWRITE COMPL 
A27SB+ZCBYPRMQ EQU x*20* MSG IN QUEUE 
A27594+Z7C8TPRMP EQu x*10" MSG IN PROCESS 
A27604ZCR8TTSTA EQU x*08* SEND AUTO STATS MESSAGE 
A2761+Z2ZCHTCONT -EQuU Xx*O4%* CONTINUOUS OUTPUT REQUESTED 
A2762+ZCHTDELN EQU x*O2* DEL NOTICE = acTION To BE SCHED 


A2715¢ZCB8LINK OS 
A27L6+ZC#TID OS 
A27174ZC8TAL oS 
A2718+ZC8TALT DS 
A27194Z2CRTTTA OS 


EQUATES FOR ZCHTTST/ZCHTST 


C90080 
Oooo4o 
eoo0ze 
000010 
0900008 
Gooo04 
000002 
Sooo00l 
Soo00! 


feo01c ZCBTST4#1,1 


EQUATES FOR ZC#TSTI 





Cooose 
800040 
000020 
900010 
e00008 
co0004 
6900002 
000001 


800010 
Cooolo 


ZCBTSTI+I1 91 
ZCBTST2 


EQUATES FOR ZCeTST2 


Saoose 
scon4o 
t90029 
Toone 
Coo0cs 
Co0004 
teono2 





Figure 12-6. Single-Thread and Multithread Terminal Control Table (Part 1 of 5) 
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LOCe 
800001 


COOOIE 


tooose 
Cooo4e 
200029 
200010 
fe0008 
tco004 
990002 
feo00! 


ScooiF 


Ccoose 
Co004D 
fcoo20 
000010 
Sco00s 
feoo04 
Ceon02 
Cooo00l 


Oe0020 


800080 
S00040 
900040 
Co0020 
to900209 
900010 
Coo00s 
Oo0004 
do0008 
Coo0004 
000002 
Cco001 


S0002! 


Ceoose 
Ccoo#e 


LINE 
A2Z27634+72CRTOIG 
A2764+8 
A2765¢ZC#TST3 
A2766+8 
A2767 +8 
A2768+¢ 
AZ27694+ZCRBTTOR 
A277O*ZCRTTQNE 
A277, *¢ZCRTHDRS 
A2772+ZC8TIDN 
A2773+ZCRTIGM 
A2774¢ZCRCOIP 
A277S5S+*+ZCRTNRDY 
A2776¢ZCBTUNAC 
A2777+@ 

A277 8+e 

A27794ZCHRTST4 
A2780+¢8 
A2781+¢6 
A2782+8 
A278 3+ZCHERMEX 
A2784+ZCUSFSRK 
A278S¢ZC#ABTOY 
A2786*ZC#8DYTWD 
A27874+ZCRSIGN 
A2788+ZCRATTRI 
A2789+ZCR8CONSL 
A27904+ZCRCNTRD 
A279 1 4¢@ 
A2792+4Z7CRTSTS 
A2793e8 
A2794+0 
A2795+8 
A2796+ZCRIMPRT 
A2797+ZCRDEPND 
A279B¢ZCRBDEPRT 
A2799+ZC8DMSUP 
A28004¢ZC8BND 
A28014ZC8UBPND 
A2802+ZC#OMSRO 
A28934¢ZCHOMSUB 
A2804+ZC#UPDRU 
A26054¢ZC#UPOTD 
A2B064+ZCH8TCALL 
A2807+ZC#8DMSOR 
A2808¢8 
AZ2B8O094ZCRTST6 
A2610¢8 
A281l1¢# 
A2812+¢8 
A2813+ZCBDOMSER EQU 
A2514*¢ZCRWRKI EQuU 


E@U 
baU 
EQUATES 


EQ@u 
EQu 
EQu 
Eau 
EQu 
EQuU 
EQu 
EQu 


EQuU 


EQUATES 


EQU 
EQ@u 
£QU 
EQu 
EQU 
EQu 
E@u 


Eau 
EQUATES 


EQU 
Ewu 
EQU 
bQU 
EQu 
EQuU 
EQuU 
EQU 
£Qu 
EQU 
eau 
EQu 


E@U 


EQUATES 


EQuU 


SOURCE STATEMENT 


x*O1e 


SINGLE AND MULTITHREAD TERMINAL CONTROL TABLE 


OUTPUT GENERATED FOR INPUT QUEVYING 


ZCRTST2Z41 91 


FOR 2CeRTST3 


x*6os 
x*408 
x*20¢ 
x*10° 
x*ose 
x*o4e 
x*o2¢ 
x*Oie 


DISCONNECT REWUESTED (S/T) 
TERMINAL*S LOw QUEUE NOT EMPTY 
OUTPUT HEADER cAVED 

INTERNAL DELIVERY NOTICE 

IMS GENERATED ERROR MSG 


CONTJNUOUS OUiPUT IN PROCESS (m/T) 


NO IMS READY SG TO THIS TERMINAL 
SEND UNSOLICITED OUTPUT INDICATOR 
FOR SWITCHED MESSAGES AT ACTION END 


ZCRTST341 51 


FOR ZCaTST4 


x*8or 
x*4Q° 
x*20¢ 
x*10*% 
x*O8e 
x*O4e 
x*O2e 
x*O1e 


ZCaTST4+1 9) 


A/m GENERATED ERROR MSGe 

REBUILD ALLOWED BY A/P 

ABORT DYNAMIC SESSION 

ABORT TERM WINDOW 

SIGN ON FOR DYNAMIC SESSION 

TERM HAS CONFIGe ATTRIBUTES 

CONSOLE TERMINAL 

OUTSTANDING TCS/DISKETTE READ FUNCTION 


DMS FLAGS 


FOR ZCaTSTS 


x*80° 
x*40° 
x*40e 
x*20° 
x*20¢ 
x*1o¢ 
x'O6e 
x*o4e 
x*O8e 
x"O4e 
x*O2¢ 
x*Ole 


ISSUED IMPACT FOR ACTION 

DEPART PENDING 

ACTION ISSUED nEPART 

ISSUED DSM OPcN FOR UPDATE 
BOUND/UNBOUND STATE 

UNBIND PENDING 

OMS FORCED OEFART wITH ROLLBACK 
OMS RUN UNIT UNBOUND 

OPENED FOR UPUVATE IN THIS RUN-UNIT 
UPDATING RUN*UNIT IN THIS SUCCESS UNIT 
FUNCTION CALL/TERMINATION CALL 

DMS REQUEST VIA DeReMe 


ZCeTSTS*1e1 OMS FLAGS EXTENSION 


FOR ZCaTST6 


x*sOre 
x*4o¢ 





DMS ERROR IN RKUN@UNIT 
TEMPORARY FLAG &1 


Figure 12-6. Single-Thread and Multithread Terminal Control Table (Part 2 of 5) 
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ae a 


LINE SOURCE STATEMENT 
A2B8I1S*ZCRWRK2Z EWU X*20* TEMPORARY FLAG 82 
A2B816+ZCHTTMDE EQuU x*10¢ MOEFER ISSUED -OR THIS TERMINAL 
A2617+¢ THE FOLLOWING STATUS BYTE TAGS ARE NOT CLEARED WHEN A G OBAL 
A2818+® NETWORK DYNAMIC TERMINAL DOES A SSSOFF 
A2B819+48 ZCaTTLst 
A2820+¢ ZCaTTuUrT 
A2B821+48 ZCaTITMT 
A2822+0 ZCeTNRDY 
A282348 ZCsTUNAC 
A2B24+0 ZCRATTRI 
A28254¢ 
A2826e8 

990022 A2827+ZCRDOPST OS xX ODP STATUS BYTE 
A282u+¢ 
A282948 EQUATES FOR ZCxDDPST 
A2B30+48 
Oco0s8o A2Z8314+ZCBREMTR EQU x*80* REMOTE TRANS 
¢o0040 A2832+ZC#FSOUT EQu x*40¢ FIND SESSION Us TSTANDING 
O90020 A28334ZC#PSEDO EU x*20* PSEUDO TCT 
Coo00!18 A2834+ZCADDPOT EQuU x°10* MWRITE FOR ODP 
A2B35ee 
€90023 A2836+ZC8DDPMD US x DOP MODE 
A2837+8 
A2838e8 EQUATES FOR ZCaxDDP MODE 
A2839¢80 
Co0009 A284O04+ZC8DTR EQu C*R* DIRECTORY TRANS. ROUTING 
Oo00c! A2B41+Z7CRPTRA EQU C*a® PROGRAM TRANSe ROUTING = ACTIVATE 
Seo0c3 A2B424+ZCHPTRC EQuU C*C* PROGRAM TRANS.» ROUTING = ABORT/CANCEL 
Ceoocs AZB434ZCRPTRE EQU C*'E*® PROGRAM TRANS. ROUTING = END 
A2B844+8 
Ccoo24 A2B4S4+ZCHSFLAG DS XL1 GENERAL SFS FLAG BYTE 
A?2B4 be" 
A2B47+e@ EQUATES FOR ZCaSFLAG 
A2B48e8 
O00080 AZ2B49*ZCHINFMT Euu x*808 INPUT FORMAT 
G9004? A28SO+ZC#DYNM EQU X*40¢ DYNAMIC MEMORY 
900020 A2651+ZCHSFBT! EQU x"20¢ SFS FLAG 1 
Oo00I1¢ A2BS24+ZCHITCF EQU x*10* INVALID XTION 
Sco008a AZ28S3+ZCRSFRT2 EQU x*O8* SFS FLAG 2 
A2854ee 
Go0025 AZ2B554ZCRSFIRC XL1 SFS INPUT RETRY -OUNT 
A2856e8 
090026 A2857+4 xL2 UNUSED 
or0028 AZ8S8+ZCATRCTA A TRCT ADOR 
Ccoo2c A2859472CB8TQE F CANCEL LINK 
feo030 A2B604ZCHPRET F OISPL TO PROCESS FILE TABLE 
090034 A28614+ZCHPQCNT H PROCESS wUEVE COUNT 
9c0036 A28624*ZCBMQCNT XLI LAST ICAM SVC 
090037 A26634ZCRTDELS L XL1 DELIVERY NOTICE sTATUS 
000038 AZBO4+ZCHLGCNT H LOW QUEUE COUNT 
Coo03A A26654ZCR8TIN H TOTAL INPUT COUNT 
8o9003c A2B8664+7ZCHTINT H TRANSe INPUT COUNT 





Figure 12-6. Single-Thread and Multithread Terminal Control Table (Part 3 of 5) 
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LOC. 
CSOO3E 
Spoo4¢e 
Cooo044 
Co0048 


CoOD4A 


ocoo4c 
Coo0so 
t90052 
Coo054 


Co0054 
Coo056 
co0058 
fo005C 
Scooec 
0090064 
Co0n6s 
Cooo0éc 
Gcao070 


Cco074. 


Ceoo7c 
Ceooss 
tco084 
to0088 
900088 
foo007c 
S00092 
Co0074 
000098 
OponRa 


C900D8 
C50008 
CoooeD 


COO0E! 
teones 
COOOEF 
Cooors 


Gooort 
Gecooro 
eoonr2 


Caonr4 
Cooors 
SQ00F8 
C900r9 
TOOOFA 


TOONFS 
too0oFs 
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LINE SOURCE STATEMENT - 

A2B674+ZC8TTCM OS TERM COMMAND COUNT 

A28684+ZC#TINCH DS TOTAL NO. INPUT CuUARSe 
A28694ZCHTOTCH OS TOTAL NOe OUTPUT CHARSe 
A2870¢ZCH#TOC vs TOTAL OUTPUT COUNT 

A28714ZCRTOMS2Z DS SOURCE TERM O/P MoGe SIZE 
A28724+ZC8TON os TIMER LIWK 

A28734ZCHRIML vs INPUT MESSAGE LENGTH 

A2B744ZCHOML us OUTPUT MESSAGE LENGTH 

A2875¢ZCBTML oS TIMER MESSAGE LENGTH (05/3 MeTe} 
A287 b+0 O0S/3 Sete Uses ZCRCOSEQ INSTEAL OF Z2CHTML 
A28774¢ZCRCOSEW EQu zCutTmtL C/O SEQ COUNT (05/3 SeTe ONLY) 
A2878+ZC#DOML os H DOP MSGe LENGTH 

A28794¢ZCB8I BF vs INPUT BUFFER AUDOR 

A28804ZCRORF oS OUTPUT BUFFER ADOK 

A2Q81+¢ZC8TBF vos TIMER BUFFER ADDK 

A28B24+ZCBOBF os DDP BUFFER abdOn 

A2683+¢ZC8DPREL OS DDP BUFFER RELEASt ADDR 
A2B8B4e4Z7CHTDELC DS xL4 USER CONTINUOUS ,AUTPUT CODE 
A288S4+2CHSFSTC OS A SFS TERMINAL CLASS ENTRY ADOR 
A2G86+ZCHSFSFN US CL8 SFS FORMAT NAME 

A28874+ZCBSESAD LS A SESSION STAT TABLE ADDR 
A28884+ZCRSESID US F SESSION 10 

A2B8894ZCATOMEM US F SFS DYNAMIC MEMORY ADDR 
A28904¢ZC8TTRID vS CLS TRANS ID CINITIA, DATE/TIME) 
A2691+ZC8TRID ERU ZCaTTRID OS/4 TAG 

A2B892+ZCHDLCNT US H ImMc DEADLOCK DETECTION COUNT 

A2893¢ bs h UNUSED 

AZ2B944+ZC8TCH bs A THREAD CONTROL BLOCK ADOR 
A2B9S54Z7CRTLI OS 8F TRANS LOCK INDICATOR 

A2B8964+ZCHTAUM OS aF AUDITED UPDATE MaP 

A2697+e0¢@ ZC8TL] AND ZC#TAUM MUST AGREE wITH ZT#TNUMF IN THE THCB 
AZ2E984+ZCH8TTEXT US CLB TRANSLATED TERM cMU/TRANS CODE 
AZB9IF*ZCHTCODE EQU ZCRTTEXT OS/4 TAG 

A29004¢ZCH8TODRC OS cL] DOR NAME 10 CHAR (HIGH BYTE # xtFD*) 
A29Cl+¢#e® THE ABOVE FIELD IS DEFINED IN Oc/4 BUT NOT TAGGED 
A29924¢ZCBTDDRN OS CL7 DATA DEF REC NAME 

A29034+ZCR8TDFN US CL7 DEFINED FILE NAME 

A2904%+ os x UNUSED 

A2905+ZC#TES bs F SUCC ACT RECORD ReLATIVE aADOR 
A2906e8 MULTIeTHREAD SYSTEMS USE ZCacsS & ZCRCDOC IN PLACE OF 2cR8TES 
A29907+ ORG ZCaTEes 

A29084ZCH#ES vs 4 SUCC ACT RECORD Rt, ATIVE ADDR 
A29094¢ZC8COL vs H CONTINUITY DATA LtNGTH 

A2910¢8 

A29L1L+Z2CHWwAl vs H WORK AREA INC 

A29124¢ZC8CDI bs m4 CONTINUITY DATA AREA INC 
A29134¢ZC8TTIN US xL1 TCT RECORD NUMBER 

A2914¢ vs xl} UNUSED 

A291S¢ us H UNUSED 

A291448 MULTI\eTHREAY USES ZCRCOK & ZCHCES INSTEAD OF 7CaTTTN « ZCHeTINT 
A2917+ ORG ZCRTTIN ; 
A29184ZC#8CDK vs H TCT RECORD NUMBER 


Figure 12-6. Single-Thread and Multithread Terminal Control Table (Part 4 of 5) 
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LOCe 
OO00FA 
Cooorc 


Co0100 
Co0100 
090100 
Boo0100 
000104 
Co00106 
¢o0108 
CO010A 


99010C 
Coollc 
Coole 
Coors: 
000112 


Ceooon 
too008e 
Foo0040 
900020 
390010 
200008 
690004 
690002 


90113 


Cooose 
Co0049 
9¢0020 
200010 
O90008 
So9o004 


290114 
Co0118 
feo1ic 
690120 
O9012¢ 
Coocon 


LINE SOURCE 
A29194¢7C8CES 
A29Z204ZCRSCFR 
A2921+8 
A29224ZCHTTIR 
A292347ZCH#TIR 
A292Z44 
A2925¢ZCBTRWA 
A29264ZCB8FBPA 
A2927+ZCHCBPA 
A2928+ZC8LBPA 
A2929+ZCRNRBCB 
A293048 
A2V3I14ZCRTLNAM 
A2932+ZC#HTCHAR 
A2933+ZCHTTSL 
A2934+4+ZCRHTTSW 
A293S5+ZCRTTTYP 
A29 3608 
A2937+8 
A293B+8 
A2Z9F39+ZCATTINEC 
A294O04+ZCRTT4IYPR 
A2941L4ZCRTT4HU2 
A2942e¢ZCHTTYU4 
A29434Z2ZC8TT327 
AZ2944eZCHTTU4YC 
A29454+7ZC2TTUZG 
A294647ZCHTTHOT 
A2947+8 
AZ2Z94YB+ZCHTTATT 
A2949¢8 
A2950+8 
A2951+¢ 
A2952+¢ZCBTTKAN 
A2953+ZC#TINVI 
A2954e¢7CRTTSBT 
A295S5¢ZCH8TTPKT 
A2956¢7ZCRTTCST 
A2957¢#ZCR#TTCCT 
A2958e8 
A29594ZC8TINER 
A29604ZCHTRIDA 
A29614ZCRALTID 
A29624ZCRHTFIN 
AZ963+ZCRTLEN 
A29644Z08QUTMT 
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STATEMENT 


os 
vs 


OS 


E@u 
ORG 


EQU 
EQu 


Eau 
EQU 
eQu 
E@u 
EWU 
EQu 
EQU 
EG@u 


EQu 


EWU 
EQu 
EQU 
bau 
EQu 
EQU 


us 

bS 

vs 

us 
bwu 
CSECT 


H SUCC ACT REL ADOR ~ ROLLBACK 
XL4 COUNT FIELD FOR ROLLBACK 


XLI TERM IND FOR ACTION PROG USING ROLLBACK 
ZCaTTIR OS/4 TAG 
ZCRTIR 
TRACE wORK AREA 
* FIRST BLOCK OF FARTITION 
* CURRENTLY ACCESSED BLOCK 
® LAST BLOCK OF PaRTITION 
en OF REMeBYTES Iw CURRe BLOCK 
CL4 LINE NAME 
CL4 TERMINAL CHARACTERISTICS 
ZC8TCHAR SCREEN LENGTH 
ZCRTTSL*}! SCREEN WIDTH 
ZCaTTSW+} TERMINAL TYPE 


EQUATES FOR ZCuTTTYp 


ULOO/UZN0O/UTSIn/TTY 
UTS400 PR 

UTS400 CP (U2 MODE) 
UTS400 CP (U4 MODE) 
1Bm 3271 

UTS40 

UTS20 

UTS4O00 TEXT Evr1TOR 


x*oor 
x*soe 
x*40°e 
x*20¢ 
x'ioe 
x*oee 
x*O4e 
x'O2¢ 


oR UTS400 


ZCRTTTYP4+1 TERMINAL ATTRIBUTES 


EQUATES FOR ZCaTTATT 


x*8oe 
x*40° 
x*'20°¢ 
x*10°¢ 
x*OBe 
x*O4e 


KATAKANA 

NON*VIDEO 

SCREEN BYPASS 

PACKET PON TERMINAL 

CIRCUIT SWITCH PDN TERMINAL 
TERMINAL ON CLUSTER CONTROLLER 


F SFS ERROK FIELD 

A PTR TO TRIOT ENTRY FOR CURRENT TRANSACTION 
F ALTERNATE TERM ID 

SF THIS MUST ALWAYS eE at END 

e-2CR2OTCT 





Figure 12-6. Single-Thread and Multithread Terminal Control Tabie (Part 5 of 5) 
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12.5. SAMPLE DUMP ACTION PROGRAM (FIXSAM) 


Figure 12-7 shows the sample COBOL action program FIXSAM. 
This program produces two types of snap dumps depending on 
values entered at the terminal. 


How FIXSAM produces When the operator enters transaction code F#03 followed by the 

S termination and value T (Figure 12-7), line 303), FIXSAM moves an S to the 

CALE SNAP Gunes termination indicator to produce a termination snap. Figure 12-8 
shows the S termination snap dump. 


When the operator enters transaction code F#03 followed by the 
value Y (Figure 12-7), line 302), FIXSAM issues a CALL SNAP 
that dumps working storage, the program information block, 
input message area, output message area, work area, and 
continuity data area without terminating the program. 


Abnormal A third type of snap dump is produced if the program terminates 

termination dump abnormally. An abnormal termination snap caused by a program 
check is shown in Figure 12-10. This dump varies in only a few 
details from the S termination snap. 
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DUMP PROGRAM 








LINE NO. SOURCE ENTRY 


00C01 IDENTIFICATICN DIVISION. 

co0de PROGRAM-IDse FIXSAM. 

00003 ENVIRONMENT DIVISION. 

0Oc0ds CONFIGURATION SECTION. 

00005 SOURCE-COMPUTER. UNIVAC-OS2. 

00006 OBJECT-COMPUTER. UNIVAC-~0OS3. 

00C0?7 DATA DIVISION. 

oocoe WORKIKG-STORAGE SECTION. 

00009 01 DICE-CODES. 

00c10 

ooc11 SET CURSOR-COORD TO HOME x“100200607. 

00012 C5 CURS-HME PIC x4) VALUE ” 

00012 

00014 POSITION CURSOR TO A NE® LINE X°16040000%. 

00015 O05 NXT+LNE PIC xX (4) VALUE 7% 

00016 

00017 SKIP 3 LINES AND BEGINNING CF LINE X~1004G6300"%. 

00018 OS SKP-3LN PIC x4) VALUE 7” 

00019 

00020 SKIP 2 LINES AND BEGINNING CF LINE X°190402090°. 

coc21 C5 SKP-2LN PIC x4) VALUE * 

00022 

00022 START OF ENTRY CHARACTER X°1E%. 

00024 0S SOE-CHAR PIC x(1) VALUE “ %, 
00025 

00026 NON-NUME~-MSG PIC X49) VALUE 

00027 “NON-NUMERIC VALUE ENTERED FOR READS DESIRED FIELD”. 
00028 

90029 TRANS -CAN-MSG Pc x (40) VALUE 

00030 “TRANSACTION CANCELLED DUE TO ABOVE ERROR~. 

00C31 

00Cc32 EOF-MS6 PIc x(40) VALUE 

00033 “END OF FILE REACHED DURING READ NUMBER ~, 

00034 

00035 ERR-MSG PIC xX (40) VALUE 

00036 “ERRCR FROM SAM-GET CURING READ NUMBER “. 

00037 

00038 STAT-HDRS PIC x(47) VALUE 

00039 “STATUS~CODE DETAILED STATUS CODE ~. 
00040 

00C41 FSAMTIN pic x (7) VALUE “FSMTFIL”. 
00942 

00043 FSAMDIN PIC x(7) VALUE “FSMDFIL”. 
OGC44 

00045 '  SUCC-MSG PIC x(54) VALUE 

90046 “ENTER NUMPER OF READS FOR SAM VAR LENGTH FILES AS FANN”. 
00Cc47 

C0C48& DISCONNEC T-MSG PIC xX(25) VALUE 

00049 “LINE DISCONNECT REQUESTED”. 

oo0cso HDG-LAE. 





Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 
(Part 1 of 7) 





UP-9207 


SPERRY UNIVAC OS/3 


IMS ACTION PROGRAMMING IN COBOL AND BAL 
ie eS Yn) ee eS ee 


12-23 


DUMP PROGRAM 


Boe a 


LINE NO. 


00cs1 
cocs2 
00053 
00054 
00055 
00056 
00057 
00c58& 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00C7e2 
00073 
o0c74 
00075 
06076 
00077 
coc7s 
00079 
00080 
00C81 
Cocé8e 
00083 
00084 
00085 
N0C86 
00087 
90088 
00089 
ooc90 
00091 
00092 
90093 
00094 
00c9o5s 
00096 
00997 
00c98 
00099 
C0100 
00701 
C0102 


SOURCE ENTRY 


05 
05 
05 
95 
05 
05 
05 
05 
05 
05 


HO1 
FILLER 
HDe 
FILLER 
HD3 
FILLER 
HD4 
FILLER 
HD5 
FILLER 


O01 SNP-ERR-MSG 


“ERRCR ON SNAP NO. 


O1 END-wWS 
LINKAGE SECTION. 
01 PIB. COPY PIB74. 


Oe 
02 
02 


32 
02 
02 
02 


STATLS-CODE 


DETAILED-STATUS-CODE 


C3 PREDICTED-RECORD-TYPE 
03 DELIVERED-RECORD-TYPE 


SUCCESSOR-ID 


TERMINATION-INDICATOR 
LCCK-ROLLBACK-INDICATOR 
TRANSACTION-ID. 


O3 YEAR 
03 TODAY 
O3 HR-MIN-SEC 


DATA-DEF-REC-NAME 
DEFINED-FILE-NAME 
STANDARD-MSG-LINE-LENGTH 
STANDARD-MSG-NUMEER-LINES 
WORK-AREA-LENGTH 
CONTINUITY-DATA-INPUT-LENETH 
CONTINUITY-DATA-OLTPUT-LENGTH 
WORK ~AREA-INC 
CONTINUITY-DATA-AKEA-INC 
SUCCESS-UNIT-I1D. 

93 TRANSACTION-DATE. 


04 YEAR 
G4 MONTH 
G4 TODAY 


TIME-OF-DAY. 


US HOUR 

04 MINUTE 

04 SECOND 
C3 FILLER 


SOURCE-TERMINAL-CHARS. 

C3 SCURCE-TERMINAL-TYPE 

OF SGURCE-TERM-MSG-LINE-LENGTH 
SOURCE -TERM-MSE-NUMBER-LINES 


PIC 
PIC 
PIC 
Pic 
Pic 
P1C 
PIC 
PIC 
PIC 
PIC 


PIC 
3 
PIC 


x (8) VALUE 
x (4) VALUE 
x (7) VALUE 
x (8) VALUE 
x(13) VALUE ” 
x (9) VALUE 
x (8) VALUE 
x (6) VALUE 
x (4) VALUE 
X(5) VALUE SPA 


x (42) 
4 5 
X VALUE “«*%, 


VALUE 


PIC 9(4) COMP-4. 
PIC 9€4) COMP-4, 
RECORD-TYPFE REDEFINES DETAILED-STATUS-CODE. 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 9¢€4) COMP-4. 
PIC 9€4) COMP-4. 
PIC 9(9) COMP-4, 
PIC X(7). 
PIC X(7). 
PIC 9€4) COMP-4. 


PIC 9(4) COMP-4, 


PIC 9(4) COMP-4. 


PIC 9(4) COM 
PIC 9€4) CO 


PIC 9¢€4) COMP-4. 
PIC 9¢€4) COMP-4. 


PIC 99. 
PIC 99. 
PIC 99. 


PIC 99.4 
PIC 99- 
PIC 99. 
PIC XXX. 


FIC Xe 


PIC 94) 
PIC 9(4) 


SOURCE-TERM-ATTRIBUTES PIC X. 





“NQe READ”. 
SPACES. 
“CUST-ID”. 
SPACES. 
CUSTOMER NAPE. 
SPACES. 

“AMT PAID“. 
SPACES. 

“DATE”. 

CES. 


p-4. 
MP-4. 


COPP-4. 
comp-4. 


Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 


(Part 2 of 7) 
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LINE NO. SOURCE ENTRY 


00103 92 DDP-MODE PIC Xe 

00104 IMA. COPY IMA74. 

00105 O02 SOURCE-TERMINAL-ID PIC X(4). 
001706 O02 DATE-TIME-STAMP. 

00107 03 YEAR PIC 94) COMP-4. 
C0108 Oz TODAY P1C 9€4) COMP-4. 
00109 O3 HR-MIN-SEC PIC 9€9) COMP-4. 
00110 O2 TEXT-LENGTH PIC 9¢4) COMP-4, 
90111 OZ AUXILIAPY-DEV-ID. 

COM12 O23 FILLER PIC X. 
00113 O27 AUX-DEV-NO PIC X. 
00114 02 TRANS PIC XC2)-6 

00115 O02 RECTCRD PIc x2). 

C0116 O2 NORECS REDEFINES RECTORD PIC 99.4 
00117 C2. FILLER PIC X. 

00118 N2 DISCONNECT PIC X. 

00719 Oc FILLER PIC X. 

001420 02 SNAP PIC Xe 

00121 Q2 FILLER PIC X. 

00122 M2 EXT-succ PIC XxX. 

C0123 O02 END-IMA PIC Xe 

00124 CDA. 

00125 92 DISCONNECT-SAV PIC X. 

001726 O2 SNAP-SAV PIC Xe 

00127 O02 END-CDA PIC Xe 

00128 OMA. COPY OMA74. 

00729 N2 DESTINATION-TERMINAL-ID PIC X(4). 
004730 M2 SFS-OPTIONS. 

00131 GZ SFS-TYPE PIC Xe 
C0132 03 SFS-LOCATION PIC X. 
00133 O2 FILLER PIC x2). 
00134 G2 CONTIAUCUS-OUTPLT-CODE PIC x¢4). 
00135 Og TEXT-LENGTH PIC 9(¢4) ComP-4. 
00136 O2 AUXILIARY-DEVICE-ID. 

00137 G3 AUX-FUNCTION PIC xX. 
00138 O03 AUX-DEVICE-NO PIC X. 
00139 NZ OUT-MSG. 

00140 C3 DICE PIc x4). 

00141 O3 LINE. 

00142 C5 FILLER PIC x(15). 
00143 OS FILERD PIC X(7). 

00144 OS FILLER Plc x(&). 

C0145 C5 TSNP. 

00746 1G FILLER PIC xX(19). 
00147 10 SNP1 PIC Xe 

00148 10 FILLER PIc x2). 

00149 1G SNP? FIC Xe 

00150 1C FILLER FIC x(@2). 

00151 10) SNP3 PIC X. 

00152 10 «~FILLER PIC x2). 

001753 1C SNPS PIC Xe 

00154 TC =FILLER PIC x2). 





Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 
{Part 3 of 7} 
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a i SS 


LINE NO. SOURCE ENTRY 

00155 10 SNP5 PIC 

00156 10 FILLER PIC 

00157 DICE2 PIC 

00158 LINE2 PIC 

00159 DICE? PIC 

00160 LINE? PIC 

00161 DICE? PIC 

00162 LINE7. 

00163 O5 FILLER Pic 

00164 OS FILREAD PIC 

00165 O05 FILLER P1C 

00166 O3 bICcEs PIC 

00167 O03 LINES PIC 

00168 03 DICES PIC 

00169 Q3 LINED PIC 

00170 O3 DICE Pic 

00171 O3 LINE11 PIC 

00172 O03 DICE12 PIC 

00173 03 SOE-DICE PIC 

00174 03 END-OMA PIC 

00175 WORK-AREA, 

00176 O03 REC-IO-AREA-F. 

00177 05 CUST-10 PIC 

00178 0S CUST-NAME PIC x¢€20). 

00179 0S AMT-PAID PIC 9(5)V99. 

00180 O05 DATE-PO. 

00181 10 MTH PIC 92). 

00182 16 SLSH-1 PIC Xe 

00183 1G =DAYC PIC 9€2). 
& 00184 10 SLSH-2 PIC X. 

00185 1c SYR PIC 9(2). 


00186 OS FILLER PIC X(9). 
00187 DETAIL=-LNE. 

00188 5 FILLER PIC X(3). 
90189 05 RECS-RD PIC 9(2). 
00190 OS FILLER PIC xX(8). 
90191 05 CUST-I0 PIC 9(5). 
C0192 OS FILLER PIC X (6). 
90193 05 CUST-NAME PIC xX(20). 
00194 O05 FILLER PIC x4). 
00195 95 AMT-PAID PIC $(6).99. 
00196 95 FILLER PIC XC4). 
00197 OS DATE-PD. 

00198 1G TH PIC 92). 
00199 106 ~SLSH-1 PIC Xe 
00200 1G DAYC FIC 9¢€2). 
00201 10 ~SUSH-2 PIC X. 
00202 10) YR PIC 9(2)- 
00203 OS FILLER PIC x3). 
00204 ERR-LNE REDEFINES DETAIL-LNE® 
00205 5 ERROR-ELD PIC xX(40). 
00206 O05 RECKD-ERR PIC 29. 





Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 
(Part 4 of 7) 
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LINE NO. SOURCE ENTRY 


00207 OS FILLER Pic x(30). 
00208 03 STATLS-LNE. 

00209 O05 FILLER PIC X(13). 
00210 O5 STAT-ERR PIC 9(4). 
00211 OS FILLER PIC X(30). 
00212 O05 D-STAT-ERR PIC 9(4). 
00213 OS FILLER PIC x21). 
00214 O03 REC-CANT PIc 9(2). 
00215 03 ERR-IND PIC 9. 
00216 O03 STATI PIC 9(4). 
00217 03 OSTATI PIC 94). 
00218 03 STAT2 PIC 9(4). 
00219 03 DOSTAT2 PIC 9(4). 
00220 O03 STAT3 PIC 94). 
00221 03 DSTAT3 P1C 94). 
00222 O03 STAT4 PIC 94). 
00223 03 DSTATS PIC 94). 
00224 03 STATS PIC 9(4). 
00225 O3 DSTATS PIC 94). 
00226 O03 FILENAME PIC XC7). 
00227 03 END-WA PIC X. 
00228 PROCEDURE DIVISION USING FI6 IMA WORK-AREA OMA CDA. 


00229 OPTIONS~SAVE.« 

00230 MOVE CURS-HME TO DICE1. 

00231 MOVE NXT-LNE TO DICE2, DICES. 

00232 IF SNAP IS EQUAL TO “Y” OR “N% OR “T*% MOVE SNAP TO SNAP-SAV 
00233 ELSE MOVE “N“~ TO SNAP-SAV. 

00234 If RECTORD 1S NOT NUMERIC, MOVE NON-NUMB-MSG6 TO LINE2, 
00235 MOVE TRANS-CAN-MSE€ TO LINEZ, 

00236 WOVE 232 TO TEXT-LENGTH OF OMA, 

00237 GO TO SNAP-TEST. 

00238 IF DISCONNECT IS EQUAL TO “Y¥° MOVE DISCONNECT TO 

00239 DISCCNNECT-SAV», ELSE MOVE “N” TO DISCONNECT-SAV. 
00240 TAPE-REC-GET. 

00241 MOVE ZERO TO ERR-IND, REC-CNT. 

00242 MOVE “FILE NAME” TO LINET, LINE?. 

00243 MOVE FSAMTIN TO FILENAME, FILEKDe 

00244 IF NORECS FS EQUAL TO ZERO, 

00245 MOVE HDG-LNE TO LINEZ 

00246 POVE SPACES TO DETAIL-LNE, 

00247 " -WOWE NORECS TO RECS-RD, 

00248 MOVE DETAIL-LNE TO LIKE2, 

00249 60 TC DISC-REC-GET. 

00250 POVE SPACES TO DETAIL-LNE. 

00251 PERFORM SAM-GET THRU SAM-€ET-EXIT UNTIL REC-CNT IS EQUAL TO 





00252 NORECS. 
00253 IF ERR-IND 1S EQUAL TC ZERO, 
00254 MOVE CORRESPONDING REC-IO-AREA-F TO DETAIL~-LNEo 





Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 
(Part 5 of 7) 
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CINE NO. SOURCE ENTRY 


' 00255 MOVE NORECS TO RECS-RD, 
00256 MOVE HDG-LNE TO LINE2, 
00257 MOVE DETAIL-LNE TO LINE3, 
00258 60 TO DISC-REC-GET. 
00259 MOVE ERR-LNE TC LINE2. 
00260 MOVE STATLS-LNE TO LINES. 
00261 DISC-REC-GET. 
00262 MOVE ZERO TO ERR-INDs, REC-CNT 
00263 MOVE FSAMDIN TO FILENAME FILREAD. 
00264 MOVE SKP-2LN TO DICE?. 
00265 MOVE NXT-LNE TO DICE®, DICED. 
00266 IF NORECS IS EQUAL TO ZERC, 
00267 MOVE HOG-LNE TO LINE? 
00268 MOVE SPACES TO DETAIL-LNE, 
00269 WOVE ZEROS TO RECS—-RD, 
00270 MOVE DETAIL-LNE TC LINES, 
00271 GO TC SUCC-TEST. 
00272 MOVE SPACES TO DETAIL-LNE. 
00273 PERFORM SAM-GET THRU SAM-GET-EXIT UNTIL REC-CNT IS EQUAL 


00274 NORECS. 
00275 IF ERR-IND IS EQUAL TC ZERO, 
00276 MOVE CORRESPONDING REC-IQ-AREA-F TO DETAIL-LNE, 


MOVE HDG-LNE TO LINE&, 
MOVE NORECS TO RECS-RD, 
MOVE DETAIL-LNE TO LIAEQ, 
GO TC SUCC-TEST. 

MOVE ERR-LNE TO LINES. 

MOVE STATUS-LNE TO LINES. 

SUCC-TEST. 

MOVE SKP-2LN TO DICE1T1. 

IF EXT-SUCC IS NOT EQUAL 10 “N%, MOVE “E” TO 
TERMINATION-INDICATOR, 
POVE “SAMVIN” TO SUCCESSOR~ID, 
MOVE SUCC-MSG TO LINE11, 
MOVE NXT-LNE TO DICET2, 
MOVE SOE-CHAR TO SOE-DICE,s 

MOVE 541 TO TEXT-LENGTH OF OMA, 
GO TC SNAP-TEST. 

MOVE 460 TO TEXT-LENGTH OF OMA. 

IF DISCONNECT IS EQUAL TO “Y%, MOVE DISCONNECT-MSG TC LINET1, 
MOVE °C” TO AUX-FUNCTION, : 





Figure 12-7. Sample Action Program (FIXSAM) Generating Snap Dumps 
(Part 6 of 7) 
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LINE NO. SOURCE ENTRY 


00296 MOVE “E* TO TERMINATIGN-INDICATOR, 

00297 MOVE “HANGUP~ TO SUCCESSOR-ID, 

00298 MOVE S36 TO TEXT-LENGTH OF OMA. 

00299 SNAP-TEST. 

00300 IF SNAP-SAV IS EQUAL TO “N%, 60 TC NORM-RETURN. 
00201 MOVE “x” TO END-IMA END-OFPA END-WA ENDO-CDA. 


00362 If SNAP-SAV IS EQUAL TO “¥%, PERFORM SNAP-ROUTINE. 
00303 IF SNAP-SAV IS EGUAL TO “T”, POVE “S” TO 

00304 TERMINATION-INDICATOR. 

00305 MOVE SPACES TO END-OMA.} 

90306 NCRM~RETURN. 

00307 CALL “RETURN”. 

00308 SNAP-ROUTINE« 

00309 * 

00310 SNAP ACTIVATION RECCRD AND PROGRAM. 


00311 
00312 CALL “SNAF” USING DICE-CODES END-WS PIP OMA IMA END-IMA OMA 


NO-CMA WCRK-AREA END-WA CDA END-CDA. 
IF STATUS~CODE IS NOT EGUAL TC ZERO MOVE STATUS-CODE 
TO STAT1 MOVE DETAILED-STATUS-CODE TO DSTATI. 
SAM-GET. 
CALL “GET” USING FILENAME REC-IO-AREA-F. 
ADD 1 TO REC-CNT. 
IF STATUS-CODE IS EQUAL TC 2EROs GO TO SAM~GET-EXIT. 
MOVE SPACES TO ERR-LNE, STATUS-LNE. 
IF STATUS-CODE IS EQUAL TO cy MOVE EOF~MSG6 TO ERR-LNE 
ELSE MOVE ERR-MSG6 TO ERR-LNEs 
MOVE REC-CNT TO RECRD-ERRe 
MOVE NORECS TO REC-CNT. 
MOVE 71 TC ERR-IND. 
MOVE STAT-HDRS TO STATUS~LNE. 
MCVE STATLS-CODE TO STAT-ERR- 
MOVE DETAILED-STATUS-CODE TO D-STAT-ERR. 
SAM-GET-EXIT. 
EXIT. 





Figure 12—7. Sample Action Program (FIXSAM) Generating Snap Dumps 
(Part 7 of 7) 
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12.6. ANALYZING THE TERMINATION SNAP DUMP 


Allocation map The first area of the S termination dump to examine is the edited 
addresses headers. These include the allocation map that contains the dump 
addresses of the main storage areas snapped. 


The action name is SAMFIN and the action program load module 
processing that action is also SAMFIN. The term-id (terminal 
identification) for this transaction is TRMD. This is the way the 
terminal that initiated the transaction was defined in the 
communications network definition. The allocation map _ that 
follows contains the beginning and end locations as well as the 
lengths of user interface areas, and other areas included in the 
snap dump. The locations refer to relative addresses. Relative 
addresses are printed on the far left side of the snap dump. All 
addresses are given in hexadecimal. 


No address given By examining the directory in Figure 12-8 notice that there are 
gia area not no addresses given for action subprogram area. The reason for 
use 


this is that action program SAMFIN did not call a subprogram. 


Thread control If you are not using an edited snap dump, that is, the snap 

block addresses contains no directory listing, it is still quite easy to locate all your 
action program's interface areas. Go directly to the thread control 
block. In this multithread example, it is at location 36E20 plus 
15,1, because the multithread layout begins at the twenty-first 
byte from the beginning thread control block address. (See Figure 
12-8.) The first five full words (40 bytes) contain the relative 
addresses of the program information block, input message area, 
work area, output message area, and continuity data area, in that 
order. 


Heasonforsnap Following the allocation map on Figure 12-8 is the reason for the 
snap dump: USER VOLUNTARY TERMINATION. Voluntary 
termination resulted when the action program moved S to the 
termination indicator. 


One set of In the sample snap dump (Figure 12-8), the register section 
registers contains only one set of registers because the action program 
. terminated voluntarily. These are IMS registers. To find SAMFIN’s 
registers, you must go to relative location PIB + 48,,¢ (address 
33448). Beginning at that location, count three full words. The 
third word contains the full word address of SAMFIN’s save area 

(34958). The save area contains the action program registers. 
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Oe ee ee ed ee ee ee eee ee ee 
1 


_arsg9o0 swap pUuARP e 
1 


Oe ee ee ee ee ee ee 
ACTION MARE: SARE IN SATE: 82704415 
CURRENT ACTION PROGRAM:  SAPFINOO TERM-18: TRAD TRANS-I1D: 00520069018F0003 TIME: 8208245 
*@ ALLOCATION MAP se 
FROM To LENGTH AREA-WARE 
00033400 0003348F 00000090 PROGRAM INFORMATION BLOCK (P18) 
000338CO G00338EF 00000030 INPUT MESSAGE AREA CIMA) 
000337cO O0O338BF 00000100 WORK AREA (uA) 
00033570 00033787 00000248 OUTPUT RESSAGE AREA (COMA) 
00033788 OO0337eF o0000008 CONTINUITY DATA AREA (CDAD 
00034000 000351FF 00001200 ACTION PROGRAM LOAD AREA 
QOO36E20 OOO36FE? O000001C8 THREAD CONTROL BLOCK (TNCB) 
00000000 occcoD00 00000000 ACTION SUBPROGRAM CIF ACTIVE) 
00036E54 0003673 00000020 FILE ALLOCATION MAP 
00008240 o000835# 00000120 TERMINAL CONTROL TABLE (TCT? 
00033508 00033568 00000064 SHARED ACT.PROG. VOLATILE AREA 
CAUSE OF SNAP DUMP: USER VOLUNTARY TERMINATION 
SWAP BY EXIMS AT 017106 
MEGS 0-7 OCOOOTSEO OCO173eC 000349A8 06033400 00034498 000337C0 00034688 00033570 
MEGS B-F 000338C0 00034698 00034558 00035558 600346E88 00034958 60017164 60017186 


SWAP OF3400 TO OF38FO 


STATUS-CODE S TERMINATION-INDICATOR 
DET-ST-CODE LOCK-ROLLBACK-INDICATOR 


00-o00qu00| E2c1D4cé C90 90520065 O1FFDD03 J000000D 00000000 DOODDD0D #2... SAMFINSMeccccccceccccccce ces“ 0F3400 





033420-00000050 000¢0100 cOdOGCOE OOODOCCC 5 Bee ccccceccce se B 20415080842. 4 .U-0F3420 
033440-00500018 E900000G6 00034958 DOODT0ND [00034958] 09007680 SPO344EA DOOISTSD # be elenccccccccercvescHenmseseevc OF 3440 
033460-00036E34 ON0000CE 00033400 OOOSF7OC COOSGEZC OPOOTFEC OP008240 OODDGC HP *.edaceeWeccccePesePevescccs ooleOF3460 


033480-0000000A OoCLCONC coccccco 001 ved} QOONGO00N 09033448 OPOSGECS SOOSSFFE teccccccccccvcccccsccscsccar DS ol o-OF 3480 
| SOURCE-TERMINAL-TYPE 


TIME-OF-DAY 
TRANSACTION-DATE 
SAVE AREA ADDR 


END OF PIB 


0334A0-00015730 OOCOOOIE COOS4CAL 000349A5 00033400 COO3S37CO OOOS37CO OGOS4EBR Fecrcccccccanccsccsccccscscces sec OF ShAl 
0334C0-00033570 000338C0 00034698 00034558 00035558 soasse1s{oooszeac BOO3S37CO *ecccccccessccvcecscsrelescccecec UF 3400 
O334E0-000334C0 OOCS35S70 GCOCSSECO OGO332OA 00033570 00033799 DO0337CO COOSSBBS *eccccccerecccccccccseccccessesee—OF SHED 
033500-00033788 800337BA OODDOCCO 00034580 0003467C 00034958 OO034688 DO033400 tecsncccccccvcccaccedeccccce ce seeOF3500 
033520-000338CO 00033788 00033570 O00337CO DOO34E7A 60034818 DOOOD0NDN OOOODNOD #..cecccececcceneveltmeleccsscses OF 3520 
O33540-Q0000F00 OONCO0ON OHOCOCOO DOOCOCCE COCCECCL OOHONDND DOOOD00D BODDDDND *s.cceneccscccccccsccccssccesesn ses -CFI540 
033560-000000C0 00f0000G coCcoOCccO vooovov0 | 
PARAM LIST 





Figure 12-8. Termination Snap for SAMFIN Load Module 
(FIXSAM Action Program) (Part 1 of 3) 
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DICE CODE START OMA MESSAGE-LENGTH 


0000000 00000000 ssssdouevane Hacsceveccccnncccccscccavcness ses OF 3560 
$a580 COCIDTES SODSCIDE C5404040 4040606 EPOAESCS COBS4060 40404040 *.... FILE NAME PSRTFIL OF 3500 
O335A0-40404040 4604046040 40404040 40404060 S0SC6C4C 40404040 460406040 40404040 -0F35A0 
0335€0-60404040 40604060 40406040 100400CC CS505C44C DECESOCH CODSCS4O DOCSCICS * ooscEND OF FILE REAC-OF35C0 
OS3SEO-CACSCA4O CHESDICD DSCTECDS CSCICKLO BSESDACZ C5D94040 GOFTKOSO 40604040 *HED DURING READ NUMBER 1 -OF35E0 
033600-60404040 404046040 40404040 40404060 4040406C 40404040 100460000 EZEICTES ooo eS TAT=0F3600 
033620-ESE260C3 DECACS40 SOFOFOFO FZ404040 40404040 40ChESES CICVOSCS CA4UEZES *US-CODE 0002 DETAILED ST-OF3620 
OS36AO-CTESESEZ 40C306C4 CSSOSCFO FOFOFCSO 4O4C4L4C 40404040 60404040 40404040 *aTUS Cove 0000 -0F 3640 
033660-40404040 10040200 CECc9D3CS 40OD5C1D4 CS4C4O4C 404040C6 EZD4CKCE COD34040 * ceeeFILE NAME FSMBFIL -OF3660 
033680-40406040 404C4C4C 40404040 40406040 40404040 40404040 40404060 40404040 * -0F3680 
O336A0-460404040 40404040 460404040 40404040 1004000C 5064840 BSCSCICs 404604040 ceeeWO. READ = -OF 3600 
OS36CO-C3ESEZES GOC9C440 40404040 S0404CC3 EKEZEIDE D4CSDI4O DSCIDACS 40404040 *CUST-ID CUSTOMER NAME = -OF36C0 
O336E0-40404040 S0CTD4ES 4007C1C9 C4404060 40404004 CIE3C540 60404060 10040000 « ART PAID DATE +06 e-OF36E0 
033700-404040F0 F4404040 40404040 SOFOFOFS FZFOSCAC 40404040 CODGESDS C4DSEBLD * 06 00620 FOUNDRY -0F3700 
O33720-0306C4C7 C5404040 40404040 404040460 SBFIFIFS FOFOGBFT F1404040 SOFOFS61 *LODGE $11900.11  08/-0F3720 
O33T40-FIFSOIF? FI404060 10060200 40404040 4044046 40404040 40404040 40404040 £15/77 aoe -0F 3740 
033760-60404060 404040460 40404040 40404040 40404040 40404040 404040460 40404040 -0F3760 
aeee OF3780 TO OF37A0 SAME AS ABOVE 
O337A0-40404040 40404060 40404040 404040460 40406040 404046040 D5E35C0C 00000000 NT# 6006 e-OF37A0 


LL END OF OMA 


START CDA 
START OF WORK AREA END CDA 


A0-40404040] 404046040 40404040 404604040 40404066 460404040 poere coe 00000000 NT #00 co o~OF3S7AD 
FOFOFGF2 FCCODGES OSCADSES S0D3B6CK C7CS4O4(C 40404040 GOFTFIFO FOFOFTET *00620FQUNDRY LODGE 1190011-OF37C0 
OSS7EQ-FOFBG1F1 FS61F7F7 OOOOOCOD OQOD00OD 00404040 FOFSS040 404046040 SDA0FOFD *O8/TS/7Tecccceces a4 O0-OF37E0 
O33IBOO-FOFZFO40 40404040 S0CEDEES DSCOBIES 40030604 C7CS4040 40404040 40404040 #620 FOUNDRY LOOGE -0F3800 
O33820-40SHFTF1 FOFOFOGE FIFI4040 4OG0FOF8 G61F1F561 F7F74040 SOEZE3C1 ESE4E260 * $11900.11 O8/15477 STATUS --CF3820 
O33840-C3p6C4C5 SO40FOFG FOFZ4C40 40404640 4040C4CS5 ESCICHDS CSCHA0E2 ESCIESES *COBE OC02 DETAILED STATU-OF3840 
Q33860-E2460C3B6 C4C540460 FOFOFCEO 40404040 4040404C 40404040 40404040 40404040 *$ Cope 0000 -0F3860 
033880-40FOF4FO COODDD0D 00000000 OO00000O HO0000OD COHD0000 00000000 00000000 fH O4D ce ccnnccccrccccscssccences sno OF 3880 


0338A0-00000000 00000000 CODCOCOO CoF2n4c4 cCecsn35¢ OOC00000 00000000 WE IOSG soe Mate seato genes aaeeiniecea AEAtan 
END OF WORK AREA 


IMA 
START OF ACTION PROGRAM 


END OF IMA 
LOAD AREA 


FHE4 

Joi tt 
BCO-ESp9M4cC& 00520069 OfBFOCO? DOCKACOO Cé7vEFuFS SOD55C40 40404040 F TPAD ccccccvccen F#0h WT NO -OF38CO 

te 
O338E0-4040K040 4604604040 40404040 406046060 00 * . -OF38EO 
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034040-00014160 806C9108 50004720 COSEF363 G6COCDCS5SS DCOS6000 €1R24160 60069940 teee-aXoeboceesSe-eevee—ehoe——ee —OFS040 
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Figure 12—8. Termination Snap for SAMFIN Load Module 
(FIXSAM Action Program) (Part 2 of 3) 
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SAM FIN REGISTERS 


O34920-AAAAAARA AAAAAAAAIARAAAAAA AARAAAAR = AAARAARAAA AAAAAAAA OOOOOO0D AAAAARAA 


O34940-AAAAAAAA 001C0002 [OE0S0000 01000201 00004020 21200700 O0000000 00033448 


034960-000349A0 [40034EF2 00015730 O00000NG DOODCOOL OO0349A8 00033400 0003498 
0349A0-00034644 GOCO00SD QOOSS#AC 800337C0 00033400 00033570 000338C0 OOOS38—A 
0349C0-00033570 00033799 000337C0 0003383 00033788 800337BA 00000000 oCOCOO0O 


0349€0-00000000 00000000 00000000 O000000O ‘00000 O00000D 00000000 00000000 


eeae OFSA00 TO OF4A80 SAME AS ABOVE 


034A80-00000000 00000000 00000000 00000000 NND0000N B0000000 405BF1FT FOFOFO4E 


O34AA0-F1F10000 OOCON0OD ONOONDCOG OO00NCCO NOO000NDC GooooOLD OOCOODDD ccODCOD0O 


77 
034aC0+00000000 00000000 00000000 COCO0000 58102018 58201000 5020A100 9200100 


O34AE0-58201004 SO20A104 9200A104 S$8201008 SO20A110 9200A110 5820100C 5020a10C 


034p00-9200AT0C 58201010 SOZ0AT08 9200ATCE O7OFAI14 ATISO7FE B20370790 60008203 


034820-705C6004 D20370A8 600495E8 B80T705CO 4780C014 95058017 4780C014 95E38017 


PIB AODR 
IMA ADDR 


END ACTION PROGRAM LOAD AREA 
OMA ADOR 
CDA ADDR 


O3SSTRO-S7FOROGC S7FQFOS8 47FOF OSS STFOFOSG S7FCFC3C 47FGFO38 47FGFOS4 47FGFO30 


O35180-47FORO2C 47FQFOZ8 47FOFO24 47FOFO20 


O3SSTAO-47FOROOC 47FQFOOR8 47FOF O04 O5001B0F 


035160-18226833 00045923 00044770 10044900 


O351§0-DOOCB2Dd OOOMBEC DOOCO7FE SBF3I0CTIS 9813004 D7FRD006 D00MD000 000dD000 


035200-00 
THREAD CONTROL BLOCK START 
SWAP OF6ERO TO 

OS6E20-FFFEBCSO 000% 


03€£60-00000000 00000000 


QO000011 OOOS6EFO 60016F32 


[00033400] 000338¢0] 000337¢0] 
: x N MAP 


2 is O - O 
036840 00033€FO Oo020COO oDOCCsCC [Gd000802 OCD00000 cO000000 


ooooecoo 00000000 o0nG0c0¢ }20030B48 OOO3F7eC 00000000 


O36E*0-00008240 DOCOCGOO COOOLCCE DO52006s OteFOCe3 280006E8 00000000 0000000 


O36EAO-O0000000 OOC1IBN42 00033408 O200003E ONNCSFA2@ OODIA8CS8 OCOOO000 00000000 


O36ECO-00000000 COCODDOD 00034958 QOOOCLOD 4001AB72 DDDD46FE OOO36EAS OOOOSEDS 


O3S6EED-OODTABCE OOCS6E20 COOI34CO OOCOSEDS OLOOD0OD OO036F38 DD0C000CO 60016F32 


O36FCO-COD046FE OO0173E4 00017380 00000004 00036€20 00000001 00036€20 00000000 


036F20-00008240 00008240 00007378 00008240 00033c04 00017680 00000000 00000000 


036F40-00000000 600C21BE OLOTEFOS D0000CD1 0000001 000018A0 00033400 00033400 


036F60-00036£20 OOCO000N OXCOOOCN O0000000 0000000 G0000000 09000000 00000000 


O36F&0-00033448 S0001DB80 00017680 00008240 00033400 000018A0 00033400 00036E20 


036FAD-00036E20 00000000 00035200 


oocooo00 


Q0000000 00033400 O0033aFC OOCOC009 00034000 


636 FcO-80000000 oooo0c00 NC000000 o005C000e 


ff THREAD CONTROL BLOCK END 
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Figure 12-8. Termination Snap for SAMFIN Load Module 
(FIXSAM Action Program) (Part 3 of 3) 
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SAVE area In Figure 12-8, the save address is 34958. Once you locate this 
address, which is in the action program load area, advance three 
full words (C,.). At location 34964 you will find your action 
program's registers 14, 15, and O-12, in that order. 


Finding Error Codes in the Program Information Block 


Locating status codes Looking at Figure 12-8, SAMFIN’s program information block 
begins at address 33400. The first word (4 bytes) contains the 
STATUS-CODE and DETAILED-STATUS-CODE fields. IMS returns 
values to these fields indicating the result of action program 
function calls. {f the function call is successful, these fields 
contain zeros. Figure 12-8 shows that the function call made to 
IMS was successful because both STATUS-CODE and 
DETAILED-STATUS-CODE fields indicate a successful function 
call. 


lf, for example, IMS returned a status code of 03 and a detailed 
Status code of OB, it would mean that the action program made 
an invalid request and that the file requested was not assigned to 
this action at IMS configuration. Then, to find out exactly which 
file is involved, you must consult the parameter list address in 
the thread control block. (See Figures 12-4 and 12-5.) 


For a complete listing of the values IMS returns in the 
STATUS-CODE and DETAILED-STATUS-CODE fields, see 
Appendix D. 


Finding Other Data in the Program Information Block 


Locating TERMINATION- Still in the program information block at relative location PIB + 

INDICATOR field Aig is the TERMINATION-INDICATOR field. If your action program 
moves an §S to this field, this location contains an E2 for 
voluntary termination snap. The value in this and any other 
program information block field varies depending on the action 
program and whether the program terminated voluntarily or 
involuntarily. 


Locating LOCK-ROLLBACK- Relative location PIB + By, is the LOCK-ROLLBACK- INDICATOR 

INDICATOR field field. It contains D5 (character N), which is the default value. The 
value N establishes a new rollback point in the audit file 
(before-images of records to be updated) and releases all locks 
for this transaction. 
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Locating other PIB fields 


Locating DESTINATION- 
TERMINAL-ID 


Locating MESSAGE- 
LENGTH field 





By comparing the program information block fields listed in Figure 
3-2, to the program information block area of the snap dump, 
you can see exactly what values all these fields contained when 
the dump occurred. For your convenience, we have noted a few 
of these fields in Figure 12-8: transaction-date (82.04.15), 
time-of-day (08.08.42), and source-terminal-type (hexadecimal E6 
or character W) indicating a local workstation. 


All 90-character positions of the program information block are 
displayed. Remember, however, that only the first 71 positions 
are accessible to your action program. 


Finding Error Causes in the Output Message Area 


Using the allocation map in Figure 12-8, we see that the output 
message area begins at address 33570. This area contains the 
16-byte control header and the output message generated by the 
action program. 


The first three words of SAMFIN’s output message area (Figure 
12-8) including the DESTINATION-TERMINAL-ID and DATE- 
TIME-STAMP fields contain zeros indicating that the destination 
terminal is the same as the source terminal. 


Also, in the output message area at location 3357C or OMA + 
Cig is the 2-byte MESSAGE-LENGTH field. This field indicates the 
size of the output message to be generated (460 bytes). 


Since SAMFIN does not use screen format services and is not a 
continuous output program, relative locations 3357E and 335/F, 
respectively, contain zeros. 


Following the unused 2-byte AUXILIARY-DEVICE-ID field is the 
4-byte DICE field containing the DICE sequence as the first four 
bytes of the output message text. 
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Locating the input message 


Executed instructions 


Finding executed 
instructions 
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Finding Error Causes in the Input Message Area 


The input message area begins at relative address 338CO. Its 
contents include the input message area control header (16 
bytes) and the input data entered by the terminal operator. The 
terminal input starts at IMA + 10,g or 338D0. The terminal 
operator entered the transaction code, F#04. He didn’t wish to 
test the disconnect feature in this run, so he entered an N. Since 
he was interested in terminating voluntarily with a snap dump, he 
entered T in the next position. We've noted these fields to assist 
you in finding them in the snap dump (Figure 12-8). 


Finding Error Causes in the Continuity Data Area 


By looking in the allocation map, we find that SAMFIN‘s 
continuity data area begins in location 337B8. Here, we see the 
character D5 or N. This indicates that the value of N was entered 
at the terminal to indicate that the disconnect feature was not 
being tested on this run. The next byte indicates an E3 or T 
meaning that the voluntary termination was used. 


Finding these values tells us that our program executed the 
instruction which moved these values from the input area to the 
continuity data area. (See lines 232, 233, and 238-239 in 
FIXSAM's coding (Figure 12-7).)} 


Finding Error Causes in the Work Area 


Similarly, the work area begins at location 337CO. To find 
customer identification, name, amount paid, and date paid values 
in this area of the dump indicates that SAMFIN executed 
instructions that placed these values there. (See the GET function 
call (line 317, Figure 12-7) which actually moves these values 
from the disk or tape file to the work area. 


Finding Error Causes in the Action Program Load Area 


Now, let’s turn our attention to the action program load area. 
This is by far the lengthiest section of the snap dump. Data 
contained in the thread control block is equally essential to 
interpreting the program area so we'll discuss these two areas at 
the same time. 
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Using the thread control 
block 


Locating the file allocation 
map 


Bits set off 


Bits set on 


Three DSECT labels 
locate and explain 
parameter list 





The thread control block is at location 36E20. As we previously 
mentioned, it contains the addresses of all the interface areas 
and the action program load area. This data is valuable only if 
you're using an unedited dump. However, the thread control 
block does contain other information very useful to the IMS 
programmer. 


Using the multithread DSECT shown in Figure 12-5, find the 
ZT#TFAM allocation map tag and its location. Add this value to 
the thread control block address. In our example at location 
36E54, there are four full words (single thread) or eight full 
words (multithread) used for a file allocation bit map. To use this 
bit map, you must realize that four full words. contain 128 bits 
and eight full words contain 256 bits. IMS uses these bits to 
indicate which specific files a user action program can access - 
one file per bit. 


If bits are set to zero, the action program cannot access those 
files. Examining these locations can be very valuable in 
determining which files your action program was accessing during 
execution. 


For example, if the high-order bit was on, the action program 
could access one file - the first file configured. If additional bits 
were on, additional files could be accessed. These bits are 
maintained in the same relative order as the actual files were 
configured. 
Three labels from the multithread thread control block DSECT are 
sometimes helpful in debugging. Using the thread control block 
DSECT for multithread, Figure 12-5, find three labels: 

ZT#TRPLA 

ZT#TFC 

ZT#TUPDA 


In single-thread, the thread control block DSECT labels (Figure 
12-4) are: 


ZT#HRPLA 
ZT#TFC 


ZT#TUPDA 
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Locating the To the left of the first label, ZT#TRPLA, find the address that is 

parameter list also the dump address of the parameter list that was passed for 
the function executed. In this case, the address of the parameter 
list was 334D8. 


Determining the Next, find the ZT#TFC label representing an address in the dump. 

last function call This address points to an area in the dump containing the 
number of parameters in the list and the hexadecimal code 
representing the last function call. You can go to this address 
and see the addresses of parameters that were passed. The last 
valid word in this list will contain a hexadecimal 80 in the first 
byte. Note that sometimes these function calls are issued by IMS 
and sometimes by your action program. For this reason, this data 
is not always useful in debugging. 


Determining number You can determine the number of parameters passed on the last 
Seeonears mn function call by counting the number of words containing valid 
Ss 

; addresses. 

Hexadecimal Table 12-1 lists all the IMS function calls and their corresponding 
equivalents for hexadecimal values for use in debugging your action program. 


function calls 


& Table 12-1. Hexadecimal Equivalents for Function Calls 





06 RETURN 
OA SEND 

26 ESETL 
2A SETL 

2E INSERT 
32 DELETE 
36 PUT 

3A GETUP 
3E GET 

4A SNAP 

8E SUBPROG 
92 SETLOAD 
96 GETLOAD 


@ AA SETK 
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Locating the Finally, find the label ZT#TUPDA in the DSECT and obtain its 

DTF or CDIB address in the same way. This address points to the area in the 
dump containing the last DTF or CDIB referenced by the last 
function call executed. This address is not within the range of the 
user snap dump and is useful only when a job dump is available. 
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12.7. OTHER DEBUGGING RESOUCES 


Using the link lf your action programs are in COBOL, in addition to their compile 
map and link, a link map is useful. Figure 12-9 shows the link map for 
action program, FIXSAM. 


The link map shows which COBOL object modules are included in 
the load module. The object module, FIXSAM, is included in the 
load module, SAMFIN, as well as the IMS interface module, 
ZF#LINK. 


UNIVAC SYSTEM OS/3 LINKAGE EDITOR 
DATE- 82/04/15 TIME- 07.51 


CONTROL STREAM ENCOUNTERED AND PROCESSED AS FOLLOWS - 


77 PARAM OUT=LOADLIB 
4s 
LOADM SAMFIN 
INCLUDE FIXSAM 
INCLUDE ZFSLINK,SYSOBJ 
ENTER FIXSAM 
de 
Caamsl *AUTO-INCLUDEDe 
CSONUM = *FAUTO-INCLUDED® 
C@OSME *AUTO-INCLUDED*® 


*DEFINITIONS DICTIONARY* 
& SYMBOL. TYPE. PHASE. ADDRESS. SYMBOL. TYPE. PHASE. ADDRESS. SYMBCL. PHASE. ADDRESS. 


ACTIVATE ENTRY ROOT  00C011C0 ADDKY ENTRY ROOT 00001124 ARETURN Root 00001168 
BUILD EwTry Root C0C0110C caans1 CSECT root oaooon0ca caanur Root 000002A8 
caesme CSECT ROOT COC06468 CHTBL EATRY ROOT  O000T0F8 CLOSE Root 0000119C 
CADRE EwTry root 00CC11¢0 DELETE EaTRY ROOT 0000197¢ DELKY root 00001128 
DLADR ENTRY ROOT COCK11I7¢ OLKCP ENTRY ROOT 00001120 ENDCRE root o0c01TS¢ 
ESETL ENTRY ROOT (001188 ESLAT ENTRY ROOT 00001188 FIND Root 000011a0 
FIXSAN CSECY ROOT cocgosesa FREE ETRY ROOT 00001148¢ GET ROOT 00001170 
GETLOAD ENTRY ROOT GOCCTIta GETUP EXTRY ROOT 00001174 GTADR root 00001180 
INSERT EMTRY ROOT OOCCTI20 KESALA ENTRY ROOT oO0000000 KESALP ABS ooco1t Fs 
KESKES ENTRY ABS ocoatiFs UNK CP ENTRY ROOT O00C112C OPEN Root 00001498 
OPENF ENTRY ROOT €C0C01198 PUT EKTRY ROOT 00001178 RDID Root 00001170 
RDIOC ENTRY ROOT OCOC11#4 RDIOCL Entry ROOT 000011AC ROIDL Root 600001174 
ROKEY ENTRY ROOT CCCC1124 ROKEYC ENTRY ROOT 00001110 RDKEYCL rkoct  c00011t0C 
ROKEYL ENTRY ROOT ccco1i3a RDKYI ENTRY ROOT oongtiic ROKYIC ROOT 00001108 
RDSO ENTRY ROOT GCO0T148 RoSsec EwTRY ROOT O000TT9C ROSQCL Root 00001194 
Rosa! ENTRY ROOT (CO00114C RDSOTIC ERTRY ROOT 00001164 RDSQL Root 0000118¢ 
ROSR ENTRY ROOT COCO1140 ROSRC EWTRY ROOT 00001190 ROSREL root 00001168 
RDSAL ENTRY ROOT COO01T44 REBUILD ENTRY ROOT 00001110 RELREC Root 00001190 
RETURN ENTRY ROOY CCOO11A8 RUN EaTRY ROOT O00010FC SEND RocT CO0011A4 
SETK ENTRY ROOT OCOC1IOS SETL ENTRY ROOT 06001184 SETLOAD ROOT 0000111¢ 
snap ENTRY ROOT 000C1164 SSLOCK ENTRY ROOT 00901150 SSUNLK root 00001154 
STCRL ENTRY ROOT 006001158 STLAT ENTRY ROOT 00001184 sue root 00001120 
SUBPROG ENTRY ROOT CCCOM2C UNLOCK ENTRY ROOT 00001194 WRIO root 00001178 
XATIMAS EWTRY ROOT COCE1194 ZFA@LINK CSECT ROOT 000010F8 


#* ALLOCATION MAP «2 
LOAD MODULE - SAMFIN SmZ—E - GO001TF8 
PHASE NAME TRANS ADDR FLAG LABEL TYPE €S$1D LNK ORG HIADOR LENGTH OBJ ORG 


SAMFINOO NODE - ROCT oo000000 OOCO1E? 000011F8 
eee START OF AUTO-INCLUDED ELEMENTS ~ 





Figure 12-9. Link Map for FIXSAM Action Program (Part 1 of 2) 
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PHASE NAME TRANS ADOR FLAG LABEL LNK ORG WIADOR LENGTH OBJ ORG 
- 11/10/81 00.60 - Caamsi 
caamsi ooo0ce00o 000002a7 0000028 cococo0o 
- 10430781 00.00 - Caenun 
Caenun oocog2as8 00000465 O0000018E 00000000 
- 10/30/81 00.00 - Caasme 
Caasme 00000668 000004E1 0000007A co0000000 
#** END OF AUTO-INCLUDED ELEMENTS - 
- 82/04/15 07.50 - FIXSAM 
FIXSAR OOCCOsEs O000T0F7 o0000c10 90000000 
- 81/12/22 06.58 ZFEWLINK 
TFALINK 000010F8 000011F7 C0000100 oooococo 
ACTIVATE 00001100 cooocacs 
SETK OGCC1104 oooooonc 
CHTBL OOCOI10FS ocooceco 
RUN 000010FC coco0004 
XR3IMS OOCO1ITS oooo0o1c 
BUILD 0000170¢ 00000014 
REBUILD 00C01110 00000018 
GET 00001170 o00c0073 
GETUP 00001174 oo00007¢ 
PuT 00001178 ooonroeo 
DELETE 00001177¢ co000084 
INSERT 00001180 cooocoss 
SETL 00001184 cooo00sc 
ESE TL 00c01188 00000090 
FREE 0000118¢ 00000094 
RELREC 06061190 00000098 
UNLOCK 00001194 0000009Cc 
OPEN 00001198 cooo0dao 
CLOSE 0000119¢ 000000 a4 
FIND 00C01%A0 oooocoaAs 
SEND OOCOTIAS aooodoac 
RETURN 00001TA8 0000c080 
ARETURN 00001T68 00000070 
SNAP O00CT164 000000éCc 
sus 00061120 00000028 
RDOSQL 000017118C 00000094 
RDIDC OO00T1A4 Co00000AC 
ROIOCL 00C0T1A0 co0000as 
RDSaC 0000119¢ 000000 a4 
RDSQCL 000C1194 oo00009c 
RDSRC 00001190 00000098 
RDOSRCL 000011468 00000070 
ROSQIC 00001164 oo00006¢ 
RDKEYC 00001410 00000018 
ROKEYCL 00c0110¢ 00000014 
ROKYIC 00001108 00000010 
GTADR 00001180 00000088 
DLADR 0000117¢ 00000084 
ADOKY 00001124 ooo0ceec 
DELKY oocot128 00000030 
Unk ce oocotizc 00000034 
DLKCP 00001120 00000038 
WRID 00001178 00000080 
ROID 00001170 00000078 





PHASE NAME TRANS ADDR FLAG LABEL LNK ORG HIADDR LENGTH OBJ ORG 
RDIDL 00001174 cooceo7¢ 
ROKEY 00001134 oo00003Cc 
ROKEYL 000014438 co000040 
RDKYI 00C0193C 000000 44 
RDSR 00004140 00000048 
RDSRL 00001144 coocoo4sc 
Rose 00001148 cooo0esa 
Rpsal OOctI14¢ 00000054 
STLAT 00001184 ooocoosc 
ESLAT 00001188 00000090 
SSLOCK 00007150 cooo00ss 
SSUNLK 00001154 cooooosc 
STCRL 00001158 00000060 
ENOCRL 0000115¢ 00000064 
CHDRB 00001160 G0000068 
OPENF 00001198 000000a0 
SUBPROG 00001120 ooco0co28 
SETLOAD oo0011?C 00000024 
GETLOAD 00001198 00000020 

O00004E8 


, FLAG CODES - ; 
8 - BLK DATA CSECT D - AUTC-DELETED E - EXCLUSIVE “A” REF 6 ~ GENERATED EXTRN I~ INCLUSIVE “V" REF 
L - DEFERRED LENGTH = - MULTIPLY DEFINED No - NOT INCLUDED P - PROMOTED COMMON R - SHARED REC PRODUCED 
S - SHARED ITEM U - UNDEFINED REF v - VCON ITEM 
*ANY OTHER CODES REPRESENT PROCESS ERRORS* : 


LINK EDIT OF “SAMFIN® COMPLETED 
DAVE- 82/04/15 TIME- 07.53: 
ERRORS ENCOUNTERED- 0000 UPSI- x“00° 





Figure 12-9. Link Map for FIXSAM Action Program (Part 2 of 2) 
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12.8. ANALYZING AN ABNORMAL TERMINATION SNAP DUMP 


Abnormal snap Figure 12-10 shows the dump generated when action program 

dump example SAMFIN terminates abnormally due to a program check error. 
This program check occurred because of an invalid instruction 
code. 

Importance of All of the debugging techniques discussed for S termination 

oe status snaps pertain to abnormal snap dumps except for information 

wor 


about the save area. In addition, the program status word plays 
an inportant part in determining the cause of an abnormal 
termination dump. 


Locating erroneous To find the address of the erroneous instruction, you must first 
instruction address go to the sixth, seventh, and eighth bytes of the program status 
word. 





In Figure 12-10, after the allocation map, the address in these 
bytes is 034CS5C. 





This is the address of the instruction immediately following the 
erroneous instruction. You go to address O34C5C and count 
back one instruction. The next question is: How long is the 
erroneous instruction? so you know how many bytes to count 
back from this address. 


Interpreting error codes Once you locate the next sequential instruction after the 
erroneous one, look at the program-status word in byte 5. The 
first 4 bits of this byte contain the instruction length code and 
condition code. You are interested in the two_ high-order 
(leftmost) bits of byte 5. Looking at the program status word 
(Figure 12-10), notice that byte 5 contains 404. In binary this is: 


0100 0000 





LENGTH OF ERRONEOUS 
INSTRUCTION 
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The two high-order bits can have one of the following binary 
configurations indicating a 2-, 4-, or 6-byte erroneous instruction. 







2-byte instruction 


10 4-byte instruction 


6-byte instruction 


SAMFIN’s erroneous instruction has a bit configuration of 01, 
meaning it is a 2-byte instruction. Counting back from location 
034C5C, two bytes show an instruction containing zeros. 


Now you go to byte 4 of the program status word to obtain the 
interrupt code. The interrupt code is O1,g, an operation 
exception. This means that an illegal operation was attempted. 


ee ee ee eee eee ee ee ee ee 
1 

rres9o0 SNAP ouRnP * 

1 


Oe ee et et ee ee ee ee ed eo te! 


ACTION NAME: SAMFIN BATE: 
CURRENT ACTION PROGRAR: SAPFINOO TERM-IB: TRAD TRANS~1D: 0052006901C50006 TIME: 
*e ALLOCATION MAP #e 
FROA TO LENGTH AREA-NAME 


00033400 0003348F 00000090 PROGRAR INFORMATION BLOCK (P1B) 
000338CO 000338EF 00000030 INPUT MESSAGE AREA (IRA) 
000337c0 0003388F 00000100 WORK AREA (WA) 

00033570 00033787 00000242 OUTPUT MESSAGE AREA CORA) 
G00337a8 O00337eF 00000008 CONTINUITY BATA AREA (CBA) 
00034000 000351FF 00001200 ACTION PROGRAM LOAD AREA 
GOO36E20 O0036FE7? 000001C8 THREAD CONTROL BLOCK (THCB) 
goo00000 ao0D0000 00000000 ACTION SUBPROGRAM CIF ACTIVE) 
Q0036€54 000346€73 00000020 FILE ALLOCATION RAP 

00008240 000083SF 00000120 TERMINAL CONTROL TABLE (TCT) 
€0033508 00033566 00000064 SHARED ACT.PROG. VOLATILE AREA 


CAUSE OF SNAP DURP: USER PROGRAM CHECK 


82/04/15 
6:15:30 





Figure 12-10. Program Check Abnormal Termination Snap for SAMFIN Load 


Module (FIXSAM Action Program) (Part 1 of 2) 





: 
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TS 01100000 


INTERRUPT CODE 
BI 
ADDRESS OF ERRONEOUS INSTRUCTION 
PROGRAP STATUS WORD: ENEOCE 


USER REGS 0-7 oo000coG O0G34é6C 90023400 00033400 000337c0 000337¢0 00034688 00033570 


USER REGS 8-F 000338¢0 00034698 00034558 00035558 60034BF4 00034958 9O0350EE 00034¢56 


SWAP BY EXIMS AT 017946 


REGS 0-7 900013€0 000173BC 00037400 0C03340C 000337CO0 000337C0 00034688 060033570 


REGS 8~-F 800338CO 00034698 00034558 00035558 6003468F4 OOD04AES 600177964 60097186 


SWAP OF34G0 TO OF38F9 


933400-00000000 E2C1D4CE €9D50505 00520069 04C50006 D0000000 00009000 DOOCOO0D 26. .SAMFINNN ec cccE ssc cccccccsees OF 3400 


033420-00000050 
033440-00500018 
033460-000337¢0 
033480-60034BF4 
0334a0-00015730 
0334¢0-00033570 
0334€0-00033400 
033500-00033758 


034860-02067023 


034€00-50319246 
034¢20-50325031 
034€40-€0524760 


034€60-F900A040 


000c0100 
€9000000 
000337¢0 
00034958 
oococote 
000338c0 
00€33570 
800337BA 


60F8F211 
50325031 
2110050 
C06641E0 
62274770 


aoaoo00s ooouc0nO 
EQE6OECT 40034C5C 
00034688 00033570 
9OOSSQEE 00034C56 
Q0034SA8 O00345A8 
00034698 00034558 
COC33ECO DONS3EDA 
oootoace 00034580 


A04608012 F910A040 
B2015034 80120247 
SOC1S4FC AQSTF211 
CO62T8FC DOEFAIIG 
COEZB204 503€5000 


FEFZFUFS 
ooocacoc 
900338cCc 
5cooo000 
0693340C 
900353558 
0003357¢ 
0G074667¢ 


622705¢0 
7OACSO31 
a0608012 
58F09008 
02135049 


FIFSFORS 
0003 466¢ 
00034698 
00033448 
COO%37C0 
O0034B FS 
00033799 
00034958 


4770026 
58FO90046 
DSFCADGT 
O7FFA7 FD 
50050209 


FIFSF2F8 OOOOOOES 


06033400 00033400 
00034558 00035558 
DOO36ECS SOOS4FFC 
000337¢G 00034688 
N00338AC 800337C0 
G00337C6 000338B3 


00034688 60033400 


02477060 61609240 


OSEF9Z240 5031D246 
F9114050 
¢03q0c0q ao 4csocs 


01406282 F236a060 


a0604770 


Pee ebececevesce co B2CKE508152 86s oW-OF 3420 
ReSaeZoccoWee eKPecccccekacesscceOF 3440 
Rececvccrccscccccccesecccccese ree OF 3460 
Bm ch cccccebenckecccac veces Dhol e-OF 3480 
Weer ccccccncceccccscccsccsenscee—OF S4A0 
Hacer cvccesscceccecee—eehnesessee CF ShlO 
Herccccnrcnverescccescvoence veces OF SHED 


Pe mccesecncccnsecseedecccsvens cee OF 3500 


BK eee Glee cePee eosccceeKeo"J—~« -OFSBEO 


PEK ewe SK BoeeKecebeolocene BoKe-OF4C00 
HBB ee BER ccc 2en~eceve Fe ebemo o-OF 4620 
&C-OF4C40 


Wee rDeccvccccccvesleceselecnce 


29 ee cecceSKebe keke heb eKed oe200--OF 4660 


BAD INSTRUCTION 





Figure 12-10. Program Check Abnormal Termination Snap for SAMFIN moe 


Module (FIXSAM Action Program) (Part 2 of 2) 
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12.9. ANALYZING A CALL SNAP DUMP 


Purpose of the The CALL SNAP dump is useful in action program debugging 

CALL SNAP dump because the program issuing the SNAP function call can continue 
processing. By specifying on the SNAP function call only those 
areas of your program that you want to examine, you obtain the 
data you want to check without terminating the program. 


Sample CALL SNAP Figure 12-11 shows the dump generated by the SNAP function 

dump code issued from the SAMFIN action program (Figure 12-7, lines 
312 and 313). Notice, each beginning and ending area requested 
is listed in the dump (Figure 12-11). 


oe ee ten ee ee ee ee et ee eee ee ee eee 
1 

Ins 90 SNAP oun pe * 

1 


ee ee ee ee ee ee ee eee ee ee ee et ee ee ee ee ee ee eee 


ACTION NAME: — SAMFIN DATE: 82/04/15 
CURRENT ACTION PROGRAM:  SAPFINOO TERM-1D: TRAD TRAWS-ID: 0052006901800001 TIRE: 8:07:04 
## ALLOCATION MAP #* 
FROM To LENGTH AREA-NAME 


00033400 0003348F 00000090 PROGRAM INFORMATION BLOCK (PIB) 
COO33kCO GOO33REF 00000030 INPUT MESSAGE AREA CIMA) 
000337CO0 000338BF 000001C0 WORK AREA (WA) 4 
00033570 60033787 00000248 OUTPUT FESSAGE AREA CORA) 
COO337Be 000337BF 0000008 CONTINUITY DATA AREA CCDA) 
G0034000 O00351FF 00001200 ACTION PROGRAM LOAD AREA 
OOO3EEZ0 OOD36FE? GOD001CE THREAD CONTROL BLOCK (THCB) 
oooocede ooo00000 o00c0000 ACTION SUBPROGRAM CIF ACTIVE) 
GOO36ESS O0O36E7® 0000020 FILE ALLOCATION MAP 

00008240 O000835F 00000120 TERMINAL CONTROL TABLE (TCT) 
GO033508 00033568 g0000064 SHARED ACT.PROG. VOLATILE AREA 





CAUSE OF SNAP DUMP: USER INLINE SWAP CALL 

SNAP BY EXIMS AT 017146 

REGS 0-7 OCOOTZEG 00033408 000349A8 00033406 000337BA 000337¢0 00034668 00037570 

REGS 8-F COO338CG 00034698 00034558 00035555 60034E88 00033490 60017164 60017186 

SNAP OF4668 TO OF4890 
0346B8-10030000 40040000 1C0403CO 10040200 1£E00D000 DO0DD00D 05060560 DSESDSCS tecccceccccncccccccccces sNON~NUME~OF 4688 
O34608-D9C9C340 ESCIDZES CSSOC5DS ESCSDICS CHATCCODE OV4ODICS CICSEZLO C4CSEZCO *RIC VALUE ENTERED FOR READS DESI-OF46D8 
O346FE-09C5C440 COCICSD3 C400OCOO NOCOCOCO E309C1DS EZCICSES C9D6D540 C3ICIDSCI *RED FIELDecasese TRANSACTION CANC-OFS6 FS 
034718-C5D3D3C5 CA40CKES CS40E3D6 4CC1C206 ESCS40C5 D9D9D6DO C505C440 D6C640C6 *ELLED DUE TO ABOVE ERROREND OF F-OF4718 
034738-COD3C540 DOCSCICS CRCSCE4O CLEGDSCS DSC74ODS CSCICKLD DSEADSC2 CSD94040 *ILE REACHED DURING READ NUMBER -OF4S738 


034758-C5D90906 DF40COD9 DED4S4CE2 C1D460C7 CSES40SE COESDICD DSC74OD9 C5SCIC440 *ERRCR FROM SAM-GET DURING READ ~OF4S756 


O34778-D5E4D4C2 C5D94040 EZ2EXCIEZ E4EZ60C3 DEC4ES4C 4046040469 40404040 40404040 *NUMBER STATUS-CODE ~0F4778 


O34798-40C4CSES CICID3CS C440E2E3 CTESESEZ2 4O0C3BECS C5404000 C6EZD4E3 C6C9D300 * DETAILED STATUS COLE .FSMTFIL.-OFS798 
034765-C6OE2D4C4 COCOD30O CSDSEICS DGLODSES DSCZESDI 4ODECE4LD OOCSCICS E240CEDE *FSMDFILSENTER NUMBER OF READS FO~OF47BB 
034708-D940E2CT D&SUES5SCT DSSODIC5 OSCTESCE 4GCEC9OS CSE2Z40CT E249C67E ESD5Q000 *R SAP VAR LENETH FILES AS FAWN. o-OFS7O8 
O3S47F8-D3CID5CS SOC4CIEZ C3D6DSDS CSCIES4C OSCSDEES CSEZE3SCS C4000000 GOODDO00O *L INE DISCONWECT REQUESTEDes cece e-CF&7FB 


O34818-D5064840 DICSCICS 40404040 C3EGEZE3 GOCICKSE 40404040 40404003 ESEZESDG *NO. READ cUST-ID CUSTO-0F 4818 





Figure 12-11. CALL SNAP Dump for SAMFIN Load Module (FIXSAM Action 
Program) (Part 1 of 2) 
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O34638-D4C50940 OSCIDACS 4C4C40C40 40404040 40C1D4E? 4OD7C1C9 C44040460 40404004 *RER NAME ART PAID 0-0F 4838 


O354858-CTE3C540 40404040 C5SDSD5D6 D940D6D5S 40E2D5C1 O740D506 4B40F 140 40F24040 *ATE ERROR ON SWAP NO. 1 2 ~OF 4858 
O34878-F34040F4 4040FS40 40404040 40404040 40400000 00000000 Sc 304 ~6S eccceet® -0F 4878 
SNAP OF3400 TO UOF3570 
033400-00000000 E2C1D4CE C9DSD5DS O520069 CtADOCO1 COCONOOD OCODOCOG ODDDCOOD 4... SAMFINNN ccc ccscccccevcen ces OF 3400 
033420-00000050 N0CCC10G QOOCOCCE OCOOCCOG FRFZFOFS FYFSFOFB EGE7TFOFZ OODOGOES tee ebescecc eran cehZC hte OB0 202s oeW-OF 3420 
037440-00500018 EXCOOD0C 00034958 DOCLOOCO 06024958 QOOD7BEO S0O344EA GOOIS73IO eek eeLonceccvcccccccces#a—cececee OF 3440 
133460-00026£34 CODGOGCE 00033400 DOO3ZF7DC BOD36EZG DOOOTFEC DDOOR240 DODOSCIO eeereceeHecccceToversesesece cet e-OF3hE0 
032480-G00COCOC COCODOOL COCOOCCO D0D0NGOD CBONCODND 00033448 COOSEECH 4OD34FEE *avecccccccvcccsccsescsesce>D o}>-OF 3480 
D334A0-000157320 SDOCUOO4A GOCE4SAE D0034GA8 00033490 COO337BA OOOS37CC DOO34EBE *evceccelecccscccccsccsesscecsses—OF3hA0 
0334CC-G0033570 O0033ECD 000346698 0003455E 00035558 G0O34EBB OOO3466BR DOD34BGD tacaccccccccncerccensreteceses ses OF IaC0 
0334£0-00033400 90633570 GOCZ2ECO 000338DA 00033570 00033799 OLO3S37CO OOO3S3BBE *scevanecovessesencsesncescccse cae “OF3hEO 
O335C0-O000337E2 800337BA GOCOCCCE O0N3458C 0002467C 00034958 OOD346BR 00033400 tecccscccevcncccsvecmosccvccce cee 0F3500 
O37520-000338C0 COO33788 00033570 OOC337CE OUOLOCOG 60034D18 OLO3Z4GEBE 6OO34EBB tecccccncncsccesccsacrelecetenmete-OF 3520 
033540-COOD0FOD DOCOOUON GOCOGCOD DOCOOCEG CODCCEOC CODOGODD DO00000D DOOOOOOD Hi cvaccsccccccccccccccvvccsesssve CF 3540 
033560-G000G00G0 ODCDCOTO CODOECGO OODOD0CO oO Receccccrcesecezes -0F3560 
SNAP CF38CO TO GF3EDA 
OSTECO-E3D9D4C& 00520069 O1BD0001 DOCFOCCO CO7BFOF? 40D540E8 &0055C RTRAD cecccccccess FRO? NY NE -OF38CO 
SNAP OF3570 TO OF3799 
033570-O00000G0 CGOGOGOO D0000000 O4CCNCOO 10020000 COCO9DICS SUD5C1D4 C54C404D trccesccnccvcccceccecF ILE NAME -0F3570 
N33590-404040C6 E2D4E3CE CODZ4CHO 40404040 40404C4C 40404040 404646040 40404040 * FSPTFIt -OF3590 
0335B0-40404040 40404040 40404040 40404046 46404040 40494040 40404060 10040000 oeee-OF35B0 
O335D0-C5D5C440 DOCELOCE CODICES4O DYCSCIC3 CBCSC44C CHESDICD DSCTSODO C5C1C440 *END OF FILE REACHED DURING READ -OF35D0 
O335FO-OSESD4C2 C5D9404C SOFITKC40 4O404C4C 9 454C4C4C 40404040 40404040 60404040 *NUMPER 1 -CF35F0 
033610-40404040 404046040 10040000 E2E3SCIES ESEZ60C3 DECKC540 GOFOFOFC 2404040 seeeSTATUS-CODE (OC2 -0F3610 
O37630-40404049 4OC4C5ES CICIDICS COSOEZES CTEZEGEZ 40C3D6C4 CS54040FO FOFOFO4O DETAILED STATUS CObE COCO -0F3630 
933650-40404040 404046040 40464040 40604040 4046C0404C 10040200 CocoD3CS 4UD5C1DS eoacFILE NAM~OF3650 
O32670-CS4N4040 604046006 E2D4C4CE €9034040 40404040 40494040 46404040 40404040 FSPDFIL -0F 3670 
033690-40494040 40404040 40404040 4046046040 404C4C4C 40404049 404640466 40404040 « ~0F3690 
0336B0-10040000 D5D64840 DICSCICS 4O0404C4L CZEAEZE2 6O0CFC440 404604040 404040C3 te eeeNO. READ CUST-ID c-0F3680 
OSI6DU-E4EZE3D6 D4CSD940 DSCIDACS 404604040 404604040 40C1D4E3 4OD7CICS C4404040 *USTORER NAME AMT PAID ~OF3600_ 
O336FO-40404004 CIESCS4C 40404040 100469000 404G4UFC F2404060 40404040 GOFOFOFD « DATE eee ¢3 COO-OF36FO 
O33710-F1F 94040 404C4046C CIDIGCSO 4UDZ2C1ES 7OELSOE? ESCSCID2 SL4C4L4C6 40404040 #10 AL & KAY“S STEAK -OF37140 
O33720-405BF2F1 F7FUCGEFG F3404C40 GOFTFI61 FIFSEITF? F6404043 10040206 40404040 * $2170.02 TVITSITE wee -0F3730 
O33750-40404049 40406066 40404040 40406546 40404040 40404940 4640440 40404040 ~OF3750 
seen 0F3770 TO GF379C SAME AS ABOVE 
033790-40404040 40404040 405¢ -03790 
SNAP OF37CO TO OF38B? 
O337CO-FOFOFOFT FCCID349 SO40D2C1 ES7DEZ4C EZESCSCT D2404040 SGFOFZF4 F7FOFOF3 *OCO10AL & KAY’S STEAK 0217002-0F37¢0 
O3S27EO-FIFIOTF1 FIETFZF6 OOCOOCEE OOOOCOCO OO4USO4C FOF34040 460404040 GOGOFOFD #117997 7b ce scccece 03 O0-OFZ7E0 
D3SIBOO-FOFTFO4O 40404040 40010740 SO40D2C1 EETDEZSC EZESCSCH DZ240404C 40404040 *010 AL & KAY“S STEAK -OF38CO 
O33&20-4C40S5BF2 FIF7FUSB FOF3S4C40 GOSGOFIF1 61F1F961 F7FE4040 40E2E3C14 E3E4E260 $2170.07 1V/19/76 = STATUS-~0F3820 
OQ3FB40-C3D6C4CS 4O4OFOFG FOFZ4C40 40404040 4O4CC4CS ESCICIDS CSCSSUE2 EICIEZES *CODE OCD2 DETAILED STATU-CF3840 
O33860-E240C306 C4C54040 FOFOFOFO 40404040 40404040 40404040 40406060 40404040 *s Cepe acon -OF 3860 
O33880-4OFOF3FO DOCOCOOC COCOCCCO IOCLOCOOD CONCELCL OODDD0000 DODONCOD DOOOODOL * O30 ..ccecccensccnccccccccececee CF 3880 
O336A0-00000000 90000000 DOONDCCE CoE2D4C4 COCSD35C Be ccccceece ve FSMDFIL® -OF38A0 
SWAP OF3788 TO OF37BA 


O37 7pB-DSE85C -OF37B8 





Figure 12-11. CALL SNAP Dump for SAMFIN Load Module (FIXSAM Action 
Program) (Part 2 of 2) 
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12.10. ONLINE FILE RECOVERY 


Automatic file rollback 


Requested file rollback 


IMS audit file entries 


When a transaction terminates abnormally, or requests rollback 
before completion, IMS rolls back user data file modifications 
(updates, inserts, and deletions) that occurred in the transaction 
and issues messages to the source terminal and system console. 
These messages are explained in the OS/3 system messages 
programmer/operator reference, UP-8076 (current version). 


On rollback, IMS returns each MIRAM, ISAM, or DAM file, 
modified in the terminated transaction, to its logical state before 
the transaction was initiated or before the last rollback point was 
recorded on the audit file. When abnormal termination occurs, 
rollback occurs automatically. 


You can request rollback upon normal termination of a 
transaction by moving special indicator values into’ the 
LOCK-ROLLBACK-INDICATOR field of the program information 
block. For more information on the use of this indicator, refer to 
3.11. 


Before update or deletion, IMS records in the audit file the 
current state of each record to be modified. In addition, before 
adding a new record to a file, IMS records in the audit file the 
keys or record numbers of records to be added. It also records 
data marking the initiation and termination of each transaction 
that modifies a file. If you specify a lock rollback indicator value 
to establish lock rollback points, IMS also records these rollback 
points in the audit file. 


Table 12-2 lists the functions IMS performs to roll back file 
modifications. 


Table 12-2. File Rollback 















Update GETUP, PUT GETUP (current image), 


PUT (before-image) 







Delete GETUP, DELETE 


INSERT 


INSERT (before-image) 


Insert GETUP (current image), 


DELETE 
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Unrecoverable audit Error Returns 

file errors 
When unrecoverable 1/O errors occur in the audit file, IMS 
notifies the source terminal operator, sends an error message to 
the print file, and attempts rollback of all existing transactions 
logged in the audit file. If you didn’t configure LOCK=UP in the 
configurator FILE section, IMS prohibits any additional update 
requests and returns a status code of 3 (invalid request) and one 
of the detailed status codes listed in Appendix D. 


Prefix Area Format 


Data file 1/O errors If an 1/O error occurs on a user data file during rollback of a file 
modification, IMS takes a snapshot dump of the prefix area of 
the record being rolled back. After the snapshot dump, IMS 
continues rolling back all modifications made to user data files for 
that transaction. 


AUDCONF/AUDFILE errors |f an error occurs on the AUDCONF or AUDFILE during rollback 
of updates made by a transaction, IMS places the name, 
ZU#ROL, into the current action program name field of the prefix 


& area. 


Prefix area format Figure 12-12 shows the format of the prefix area and Table 
and contents 12-3 describes the content of each field. 
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transaction 
4 code 


8 terminal contro! table address 


12 
transaction id 
16 
ee 
24 ee A 
initial action 
program name 
28 current action 
program name 
32 
36 date and time stamp 
40 at time of audit 


44 key length reserved for system use 
48 data length of updated record 


52 filename 





Figure 12~12. Format of Prefix Area of Records in the Audit File 
(Online Recovery) 


Table 12-3. Contents of Prefix Area for Records in the Audit File 
(Online Recovery) (Part 1 of 2) 


ZF#RTC Type code Binary Bits Set 
to 1 Meaning 
Not used 
Not used 
Termination 
Not used 
Rollback point 
Before-image, MIRAM 
° Before-image, ISAM 
Before-image, DAM 
: 












NOOR WO 
N 


to 1 Meaning 





1) First before-image for 
transaction 
Inserted record 
Abnormal termination 
Not used 
MIRAM, indexed 

-7 Not used 












OQhwndo 











UP-9207 SPERRY UNIVAC OS/3 12-49 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


ONLINE FILE RECOVERY 





Table 12-3. Contents of Prefix Area for Records in the Audit File 
(Online Recovery) (Part 2 of 2) 






Configured code _ identifying the 
current transaction; one to _ five 


alphanumeric characters, left-justified 


ZF#ATC Transaction code} 2-6 EBCDIC 
in field 


a 
ZFHACT TCT address Hexadecimal! Address of terminal control table 
{TCT) for terminal originating this 
transaction. Full-word aligned 
ZFHATRID | Transaction id 12-19 
ZF#ATMID] Terminal-id 20-23 Hexadecimal} Configured identification of network 
termination initiating this transaction 
ZFHAIAP Initial action 24-29 EBCDIC 
program 
six alphanumeric characters, 
left-justified 
ZF#ACAP | Current action 30-35 EBCDIC Program-name of currently active 
program action program 


ZF#ADT Date-time 36-43 Binary 
of audit 


ZF#KLIDA | Key length 44-45 Binary Length of key in an indexed record; 
set to 0 for a DAM Record 


ZF#DLIDA | Data length 48-49 Binary Length of data portion of updated 
or record, or number of active update 

ZF#NAUT 

ZF#FNM 50-57 EBCDIC 


transactions. 
NOTES: 

















Data-time of initiation of this 
transaction, in the form: 
yy-mm-dd-hh-mm-ss 













Program-name of first action program 
initiated for this transaction; one to 










Date-time of writing this record to the 
audit file, in same form as 
transaction-id 

















Logical name of data file being 
accessed by current action program; 
one to seven alphanumeric characters, 
left-justified 





1. When records are written to the audit file for a UNIQUE action program, the 
transaction-code field contains OPEN, the initial-action-program field contains 
ZU#OPEN, and the current-action-program field contains the name of the UNIQUE 
module active at the time of audit. 


2. When the current action program is accessing a defined file, a prefix is written for 
each logical record involved. In the prefix, the file-name field contains the LFD-name 
of a conventional user data file contributing a logical record (or part of one) to the 
defined record. It never contains the defined-file-name specified with the DFILE 
keyword. 
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12.11. COBOL ACTION PROGRAM ERROR MESSAGE BUFFER 


Locating the COBOL error 
message buffer 


Error message buffer 
contents for 
1974 COBOL 


1974 COBOL 


error messages 


Error message 
buffer contents 
for extended COBOL 


The COBOL error routines C@@MSI (1974 COBOL) and COBJERR 
(extended COBOL) record data in a 4-byte message buffer that 
corresponds to errors contained in the canned message file. To 
find the cause of error, locate this message buffer by checking 
for its address in general register 1 of the program dump listing. 
Table 12-4 shows the contents of the message buffer for 1974 
COBOL and Table 12-5 describes the error messages. 


Table 12-4. 1974 COBOL Message Buffer Contents 







Canned message prefix 
Canned message prefix 


Hexadecimal message number 


NOTE: 


The hexadecimal message number in bytes 2 and 3 is one of the 
following and corresponds to the numbered COBOL message 
shown (nnnn). For the meaning of the message and suggested 
corrective action refer to the OS/3 system messages 
programmer/operator reference, UP-8076 (current version). 


Table 12-5. 1974 COBOL Error Messages for Action Programs 






END OF PROCEDURE DIVISION EXECUTED 
CE25 NEGATIVE VALUE EXPONENTIATED 


FLOATING POINT ERROR 


Table 12-6 shows the contents of the message buffer for 
extended COBOL. Table 12-7 describes the error messages. 
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Table 12-6. Extended COBOL Message Buffer Contents 





Canned message indicator ($) 










Hexadecimal message number 


End-of-table indicator (blank) 


NOTE: 


The hexadecimal message number in bytes 1 and 2 is one of the 
following and corresponds to the numbered COBOL message 
shown (nnnn). For the meaning of the message and suggested 
corrective action refer to the OS/3 system messages 
programmer/operator reference, UP-8076 (current version). 


Table 12-7. Extended COBOL Error Messages for Action Programs 





END OF PROCEDURE DIVISION EXECUTED 







043B INVALID EXECUTION OF ENTRY POINT 





NEGATIVE VALUE EXPONENTIATED 











APPENDIXES 


4n > VU 
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Capital letters 


Lowercase letters 


Braces 


Appendix A. Statement Conventions 


Throughout this document, certain conventions are observed on 
formats for statements and commands. General rules with 
examples pertaining to these conventions follow: 


Capital letters and punctuation marks (except braces, 
brackets, and ellipses) must be coded exactly as shown. For 
example: 


CALL 'GET' USING filename record-area record-number. 


is coded: 


CALL 'GET' USING CUSTFIL CUS-REC REC-KEY. 


Lowercase letters and words are generic terms representing 
information that you supply. Such terms may contain 
acronyms and hyphens for readability. For example: 


PROCEDURE DIVISION USING program- information-block 
input -message-area 
[work-area] [output-message-area] 
[continuity-data-area]. 


is coded: 


PROCEDURE DIVISION USING PIB IMA WA OMA CDA. 


Information within braces { } represents necessary entries, 
one of which must be chosen. 


For example: 


CALL ee [ene eG, area ness 
ZGHCALLJ (GETUP 
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is coded: 


1 10 16 





ZGHCALL GET, (STATE,RECORD, SNKEY) 


or 


CALL GETUP,(STATE,RECORD, SNKEY) 


Brackets a = Information within brackets [ ], including commas and 
semicolons, represents optional entries that you include or 
omit, depending on program requirements. Braces within 
brackets indicate that you must choose one of the entries if 
you include that operand. For example: 


ary 


is coded: 


JUS=L 





Default parameters = Default parameter specifications are indicated by shading. 
For example, if no TYP parameter is specified as input to the 
edit table generator, the M_ is supplied, meaning 
alphanumeric type data is expected. 


(default value) 





Periods m= A series of three periods vertically spaced, occurring in a 
program example, indicates that other coding not directly 
relating to the example is omitted. 

Example: 


PARA-1. 
CALL ‘GET’ USING STATE RECORD SNKEY. 


PARA-2. 





Statement conventions and coding rules specific to individual 
functions are described where applicable throughout _ this 
document. 
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Appendix B. COBOL Action 
Programming Examples 


B.1. DESCRIPTION 


Contents Appendix B contains compiler listings of sample COBOL action 
programs. Parts of coding from some of these programs appear 
out of context in different parts of the manual where we describe 
specific subjects and how to handle the coding. 


Summary The nine COBOL action programs in this appendix illustrate the 
complete action program coding for simple and _ dialog 
transactions, external and immediate internal succession, use of 
screen format services, sending a message to another terminal, 
output-for-input queueing, and continuous output. 


CSCAN series The CSCAN action program series (Figures B-1 through B-18) 
consists of four action programs: 


m DMSCAN 
=m DMDETL 
= DMPYMT 
m DMTOTL 
Simple transactions These programs represent a series of simple transactions that: 


™ page through a customer file (CSCAN transaction code); 


m display a customer's account status (CDETL transaction 
code); 


= apply payments to a customer's account (PAYMT 
transaction code); and 


™ request audit data about all payments applied to a 
customer's account (TOTAL transaction code). 
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ACT1/ACT2 dialog 
transaction 


JAMENU screen 
formatting 


BEGIN1 output-for-input 
queueing 


PRINT continuous output 


Action programs ACT1 and ACT2 (Figures B-21 and B-22) 
illustrate a dialog transaction with ACT1 naming ACT2 as 
external successor. 


JAMENU (Figure B-23) is one of a series of action programs that 
make up an entitlement accounting system. By validating a 
password entered from the terminal, JAMENU displays either a 
menu screen or an error screen. 


In addition to using both external and immediate internal 
succession, JAMENU uses the BUILD function call to construct 
screen formatted messages for a valid or an invalid password. 


The BEGIN1 action program (Figure B-24) illustrates use of the 
SEND function to initiate a transaction that performs continuous 
output at another terminal. It also shows the output-for-input 
queueing feature. 


The PRINT action program (Figure B-25) creates continuous 
output, sends it to the source terminal, and uses delivery notice 
scheduling for control and recovery. 
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B.2. SAMPLE COBOL ACTION PROGRAMS PERFORMING SIMPLE 
TRANSACTIONS (CSCAN SERIES) 


CSCAN program series The four action programs: DMSCAN, DMDETL, DMPYMT, and 
description DMTOTL perform a series of simple transactions. The transaction 
code CSCAWN starts the first transaction in the series. 


Files used These four action programs use three indexed files that have 
been defined to IMS in the FILE section of the configuration: 


1. DMOALT A customer file (alternate account file), sorted 
on zip code, customer last name, and customer 
account number sequence (See Figure B-14, 
lines 12 and 89-96.) 


2. DMOMSTR A customer master file, containing current 
financial data per customer and_ sorted in 
account number sequence. (See Figure B-15, 
lines 11 and 98-111, and Figure B-16, lines 
11 and 94-99.) 


3. DMOXACT An audit file created or updated by the PAYMT 
transaction and accessed for display by the 
TOTAL transaction. (See Figure B-16, lines 12 
and 100-115, and Figure B-17, lines 11 and 


91-108.) 
Key in CSCAN You begin the first transaction by keying in the transaction code, 
transaction code CSCAN on line 1 of the screen and pressing the TRANSMIT 


key. 



































MN 


CSCANM 






Figure B-1. Initiating the CSCAN Transaction 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 


Resulting CSCAN 
output 


Line 


Displaying more records 





The CSCAN transaction lists basic customer data by zip code, 
allowing you to scan the lists. The alternate account file, 
DMOALT, serves as an index to the customer master file, 
DMOMSTR. It is sequenced by zip code, customer last name, 
and customer account number. Figure B-2 shows the resulting 
output. 





























CSCAN 97005 CHRISTIAN 0236430 

PCDETL 132106 HRDLICKA RICHA 62 COLLINS 07003 
DCDETL 055760 MCMANUS R 318 HOOVER 07003 
DCDETL 158607 MCQUADE MICHA 153 FRANKL 07003 
DCOETL 660877 MEYER R P.O. BOX 07003 
DCDETL 147306 RANDALL WILLI 261 FRANKL 07003 
DCDETL 895260 ROHLF ING PAUL 1049 BROAD 07003 
D>CDETL 895606 VANARMAN JOHN 605 B TROY 07003 
DCDETL 805612 VEATCH STANL 39 OAKLAND 07903 
DCDETL 105451 WEST ROBER 10@ BELLEV 67003 
DCDETL 155798 WOOD EMELL 28 WINDING 07903 








Figure B-2. Output from CSCAN Transaction Code 


The DMSCAN action program (Figure B-14, lines 111-128) 
displays the first ten records of the DMOALT file (Figure B-2, 
lines 3-12). The record displayed on line 1 of the screen is the 
next available record on the file. 


By pressing the TRANSMIT key, you can display the next ten 
records on the file as shown in Figure B-3. (See the DMSCAN 
action program, Figure B-14, lines 135-141.) Notice that the 
CSCAN transaction code is displayed on line 1 of the screen, so 
that when you press TRANSMIT, a new transaction begins and 
DMSCAN is recheduled. 























UP-9207 SPERRY UNIVAC OS/3 B-5 
IMS ACTION PROGRAMMING IN COBOL AND BAL 
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Line CSCAN 07606 ROGERS 805257 
DCDETL 623643 CHRISTIAN GOEG 11 WOODCRE 67005 
DCDETL 623643 FITCH E BOX 25 07005 
DCDETL 165390 MORIARTY T 272 ROCKAW 07005 
DCDETL 805592 TUCKER CHARL HILLCREST 07005 
D>CDETL 181089 FISH ROBER 17 CHERRY 07006 
DCDETL 691479 HAFLEIGH WILLI 3 HIGHFIEL 97006 
D>CDETL 139915 LAMBKA IRWIN DIRECTOR H 47006 
DCDETL 044246 LONGENECKER R 2@ RICHARD 97006 
DCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
[D>CDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 








Figure B-3. Continuation of Output from CSCAN Transaction Code 


Displaying specific You can continue displaying customer records until you reach the 
records end of the file (Figure B-14, lines 151-156 and 175-194). 


The CSCAN transaction allows you to scan in another way. 
Instead of displaying records at the beginning of a file and 
scanning until you find the customer zip code you want, you can 
display the first ten records with the desired zip code or higher. 
By entering the zip code you want after the CSCAN transaction 
code (see Figure B-4), the DMSCAN action program begins 
scanning the DMOALT file for the first record that contains that 
zip code (Figure B-14, lines 151-171 and 179-194). 









































CSCAN 07006m@ 





Figure B-4. Initiating a Qualified CSCAN Transaction 
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Figure B-5 shows the results of this entry after you press the 
TRANSMIT key. 


























Line CSCAN 07009 RILEY 805238m 
DCDETL 181089 FISH ROBER 17 CHERRY 07006 
PCDETL 091479 HAFLEIGH WILLI 3 HIGHFIEL 067006 
PCDETL 139915 LAMBKA IRWIN DIRECTOR H 47006 
DCDETL 644246 LONGENECKER R 20 RICHARD 067006 
DCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
DCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
>CDETL 8065257 ROGERS CLESS 51 RAVINE 07006 
DPCDETL 152069 WILLIAMS GEORG 60 MCKINLE 067006 
DCDETL 181050 ROHRER GARRY 219 CARTER 07008 
DCDETL 029997 BOONE GEORG 64 BRUNSWI 067009 





Figure B-5. Output from Qualified CSCAN Transaction Code 


Initiating CDETL When you've found the customer account for which you 
want detailed information, you are ready to initiate the 
CDETL transaction. There are two ways to do this. Let’s 
assume ROGERS is the customer for whom you want to 
display detailed account information. 





1. You can enter the transaction code (CDETL) and 
ROGERS’ account number (805257) on line 1 of the 
screen and press TRANSMIT. 


2. You can forward tab the cursor to a position beyond the 
last name of the desired customer (ROGERS) as shown 
in Figure B-6 and press the TRANSMIT key. This 
method is more efficient because it reduces the number 
of keystrokes required and the possibility of erroneous 
data entry. 
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Line CSCAN 07009 RILEY 805238 

DCDETL 181989 FISH ROBER 17 CHERRY 07006 
4 DCDETL 091479 HAFLEIGH WILLI 3 HIGHFIEL 07006 
5 PCDETL 139915 LAMBKA IRWIN DIRECTOR H 67006 
6 DCDETL 044246 LONGENECKER R 20 RICHARD 07006 
7 DPCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
8 DCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 67006 
9 DCDETL 865257 ROGERS CLESS 51 RAVINE 07006 
10; DCDETL 152069 WILLIAMS GEORG 6@ MCKINLE 970606 
11: DCDETL 181956 ROHRER GARRY 219 CARTER 07008 
12! DCDETL 029997 BOONE GEORG 64 BRUNSWI 07009 





Figure B—6. Initiating the CDETL Transaction 


Resulting output Figure B-7 shows the output screen resulting from using the 
cursor tabbing/TRANSMIT method of initiating the CDETL 
transaction. The customer information on the lower part of the 
screen is displayed by the DMDETL action program (Figure B-15, 
lines 127-167.) 
































Line CSCAN 07009 RILEY 805238 
DCDETL 181089 FISH ROBER 17 CHERRY 07006 
DCDETL 091479 HAFLEIGH WILLI 3 HIGHFIEL 07006 
DCDETL 139915 LAMBKA IRWIN DIRECTOR H 07006 
DCDETL 044246 LONGENECKER R 2@ RICHARD 067606 
DCDETL 179363 MAGEDMAN . DAVID 27 CEDARS 07006 
PCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
D>CDETL 805257 ROGERS CLESS 51 RAVINE 07006 
DCDETL 152069 WILLIAMS GEORG 6@ MCKINLE 07006 
DCDETL 181050 ROHRER GARRY 219 CARTER 07008 
DCDETL 029997 BOONE GEORG 64 BRUNSWI 07009 





CUSTOMER: 805257 


CLESSEN A ROGERS - PURCHASE PRICE: $229.49 
51 RAVINE AVENUE REVISION: NO 
CALDWELL NJ 07006 PAYMENT PLAN T 


CURRENT BALANCE: $100.00 
PAYMENT AMOUNT: $22.95 


[DPAYMT 805257 



































@ Figure B-7. Output from CDETL Transaction 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 


Processing CDETL 


Automatic succession 


Initiating PAYMT 


When the DMDETL program reads the master record successfully 
and it contains a Y in its last byte, the program moves the word 
‘YES’ to the output field containing REVISION and you can make 
changes to the customer record you selected. (See Figure B-15, 
lines 199 and 200). Otherwise, the DMDETL program moves the 
word ‘NO’ to the REVISION output field and you can display 
another customer’s account information at the bottom of the 
screen. 


Notice that the DMDETL program automatically succeeds to the 
PAYMT transaction when you update the customer whose 
detailed information you displayed. DMDETL accomplishes this by 
moving the transaction code, PAYMT, in the form of a constant 
from working storage to the output message area (Figure B-16, 
line 196). Then, when you move the cursor to a point beyond 
the PAYMT transaction code and account number, the PAYMT 
transaction begins. 


There are two ways to initiate the PAYMT transaction: 


1. Forward tab the cursor to a position beyond the account 
number following the PAYMT transaction code and press 
TRANSMIT. (See Figure B-8.) 


2. Enter a payment amount different than the payment plan 
amount. You enter the amount next to the account number 
following the PAYMT transaction code and_ press 
TRANSMIT. (See Figure B-10.) 


The first method instructs the DMPYMT action program to 
subtract the payment plan amount ($22.95 in Figure B-8) from 
this customer’s current balance ($100.00 in Figure B-8). (See 
Figure B-16, line 157.) 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 



































Line CSCAN 97009 RILEY 805238 
DCDETL 181089 FISH ROBER 17 CHERRY 07006 
DCDETL 091479 HAFLEIGH WILLI 3 HIGHFIEL 070606 
DCDETL 139915 LAMBKA IRWIN DIRECTOR H 07006 
[D>CDETL 044246 LONGENECKER R 2@ RICHARD 067006 
DCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
DCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
DCDETL 805257 ROGERS CLESS 51 RAVINE 07006 
DCDETL 152069 WILLIAMS GEORG 69 MCKINLE 07006 
DCDETL 181650 ROHRER GARRY 219 CARTER 07008 
DCDETL 629997 BOONE GEORG 64 BRUNSWI 07009 





CUSTOMER: 805257 


CLESSEN A ROGERS PURCHASE PRICE: $229.49 
51 RAVINE AVENUE REVISION: NO 
CALDWELL NJ 07006 PAYMENT PLAN: T 
CURRENT BALANCE: $100.00 
PAYMENT AMOUNT: $22.95 


[>PAYMT 805257m 





Figure B-8. First Method for fnitiating the PAYMT Transaction 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 


Figure B-9 shows the results of this subtraction to obtain the 
customer's new balance. 



























































D>PAYMT 805257 





Line CSCAN 07009 RILEY 805238 

DCDETL 181089 FISH ROBER 17 CHERRY 07006 
DCDETL 091479 HAFLEIGH WILLI 3 HIGHFIEL 067006 
DCDETL 139915 LAMBKA IRWIN DIRECTOR H 06006 
DCDETL 044246 LONGENECKER R 20 RICHARD 07006 
PCDETL 179363 MAGEDMAN DAVID 27 CEDARS 67006 
DCOETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
PCDETL 865257 ROGERS CLESS 51 RAVINE 07006 

1 DCDETL 152069 WILLIAMS GEORG 60 MCKINLE 07006 

1 DCDETL 181050 ROHRER GARRY 219 CARTER 67008 

1 DCDETL 029997 BOONE GEORG 64 BRUNSWI 07009 

1 

1 CUSTOMER: 805257 

1 

1 CLESSEN A ROGERS PURCHASE PRICE: $229.49 

1 51 RAVINE AVENUE REVISION: NO 

1 CALDWELL NJ 07006 PAYMENT PLAN: T 

1 CURRENT BALANCE: $100.00 

2 PAYMENT AMOUNT: $22.95 

2 

2 

2 


$22.95 PAYMENT ACCEPTED FOR CUST. 805257 NEW BALANCE: $77.65 














Figure B-9. Output from PAYMT Transaction Using Standard Payment Amount 


Processing PAYMT Transmitting only the transaction code and customer account 
number confirms the amount applied to the customer's new 
balance. In addition, two processing operations occur: 


1. The DMPYMT action program updates customer's current 
balance on the customer master file (DMOMSTR). (Figure 
B-16, lines 158-159.) 


2. The DMPYMT action program adds a payment transaction 
record to a daily terminal transaction file. (See Figure B-16, 
lines 169-200 especially lines 185-187.) 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 


With the second method of initiating the PAYMT transaction, you 
enter a payment amount different than the payment plan amount 
next to the customer number that follows the PAYMT transaction 
code on the screen. Position your cursor next and depress the 
TRANSMIT key as shown in Figure B-10, line 21. 

































1 CSCAN 07009 RILEY 805238 

2 

3 DCDETL 181089 FISH ROBER 17 CHERRY 070606 
4 DCDETL 091479 HAFLEIGH © WILLI 3 HIGHFIEL 07006 
5 DCDETL 139915 LAMBKA IRWIN DIRECTOR H 07006 
6 DCDETL 044246 LONGENECKER R 20 RICHARD 067006 
7 DCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
8 PCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
9 DCDETL 805257 ROGERS CLESS 51 RAVINE 079006 
10 DCDETL 152069 WILLIAMS GEORG 60 MCKINLE 07006 
11 DCOETL 181650 ROHRER GARRY 219 CARTER 970068 
12 P>CDETL 629997 BOONE GEORG 64 BRUNSWI 07009 
13 

14 CUSTOMER: 805257 

15 

16 CLESSEN A ROGERS PURCHASE PRICE: $229.49 

17 51 RAVINE AVENUE REVISION: NO 

18 CALDWELL NJ 07006 PAYMENT PLAN: T 

19 CURRENT BALANCE: $100.00 

20 PAYMENT AMOUNT: $22.95 

21 DPAYMT 805257 575m 









































Figure B-10. Second Method for Initiating PAYMT Transaction 
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SIMPLE TRANSACTION IN COBOL: DESCRIPTION 


Updating payment 
amount 


Initiating TOTAL 


Processing TOTAL 


Line 








Suppose you enter the value 575 ($5.75) next to the account 
number. When you press the TRANSMIT key, the result is as 
shown in Figure B-11. 









































CSCAN 07609 RILEY 805238 
DCDETL 181089 FISH ROBER 17 CHERRY 07006 
DCDETL 691479 HAFLEIGH WILLI 3 HIGHFIEL 07006 
DCDETL 139915 LAMBKA IRWIN DIRECTOR H 07006 
DCDETL 644246 LONGENECKER R 20 RICHARD 67006 
DCDETL 179363 MAGEDMAN DAVID 27 CEDARS 07006 
DCDETL 122399 MCLAUGHLIN EDWAR 17 SPRUCE 07006 
DCDETL 805257 ROGERS CLESS 51 RAVINE 07006 
DCDETL 152069 WILLIAMS GEORG 6@ MCKINLE 47006 
D>CDETL 181650 ROHRER GARRY 219 CARTER 070608 
DCDETL 629997 BOONE GEORG 64 BRUNSWI 07969 
CUSTOMER: 805257 
CLESSEN A ROGERS PURCHASE PRICE: $229.49 
51 RAVINE AVENUE REVISION: NO 
CALDWELL NJ 07006 PAYMENT PLAN: T 
CURRENT BALANCE: $100.00 
PAYMENT AMOUNT: $22.95 
PAYMT 805257 
[>$5.75 PAYMENT ACCEPTED FOR CUST. 805257 NEW BALANCE: $94.25 









































Figure B—-11. Result of Entering Different Payment Amount on PAYMT Transaction 


DMPYMT confirms the receipt of payment by issuing a message 
(Figure B-16, lines 29-32 and 194-197) and applies the entered 
amount to the customer’s new balance (Figure B-16, line 157). 


The last action program, DMTOTL, totals all payment amounts 
entered for a particular customer. To initiate this audit trail 
program, you enter the TOTAL transaction code. 


Let’s assume that in addition to the payment plan amount of 
$22.95 for account number 805257, you've entered two 
payments for other customers, one for $5.75 and another for 
$3.00. You therefore entered three payments at terminal 1 
totaling $31.70. By entering the TOTAL transaction code (Figure 
B-12, line 1), you can obtain an audit report display (Figure B-12, 
lines 3-6) showing the number of payments and total payment 
amount initiated from your terminal (TRM1). 
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* TOTAL 
TERMINAL NUMBER OF TOTAL 
ID TRANSACTIONS PAYMENTS 
TRM1 3 $31.70m 





Figure B-12. Result of Initiating the TOTAL Transaction 


If you enter the option ALL following the transaction code, the 
DMTOTL action program also can accumulate totals for all 
transactions and all payments made at all terminals for an entire 
session. 


Suppose three transactions were entered from terminal 1 with 
total payments of $31.70. Then seven more transactions were 
entered at terminal 5 totaling $187.57. Finally, four more 
transactions were made at terminal 6 totaling $78.97 in 
payments. 


When you enter TOTAL ALL at the terminal the DMTOTL action 
program not only accumulates the total transactions and 
payments for each terminal but also accumulates a grand total of 
transactions and payments made in this session. Figure B-13 
illustrates the output message generated when you enter the 
transaction code TOTAL and the option ALL. 


























TOTAL ALL 
TERMINAL NUMBER OF TOTAL 
1D TRANSACTIONS PAYMENTS 
TRM1 3 $$31.76 
TRMS5 7 $187.57 
TRM6 $$78.97 


$298.140 





Figure B-13. Result of Initiating the TOTAL Transaction with ALL Option 


General flowcharts for the coding in DMSCAN, DMDETL, 
DMPYMT, and DMTOTL action programs (Figures B-14 through 
B-17) adjoin each program. Program line numbers in parentheses 
near flowchart boxes represent the lines of coding that implement 
the process described. 
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LINE NOe SOURCE ENTRY 


IDENTIFICATION DIVISTONe 
PROGRAM=I1D+ DMSCANe 
AUTHORe FeOeFeSeFe (NYNA 7/76) 
DATESWRITTEN® 7/13/7660 
DATE@COMPILEDs. 82/05/0036 
ENVIRONMENT VIVISTONe 
CONFIGURATION SECTIONS 
SOURCE*COmMPUTERe UNIVAC*0S3¢ 
OBJECT-“COMPUTERe UNIVAC~0S36 
OL010 DATA DIVISION. 

OCOO1] WORKING=STORAGE SECTIONe 

ocOl2 77 OmOaLtT Prc x(7) 
0CO13 77 OUT=«MSG-LEN PIC 9999 
09014 77 GE PIc Xx 
09015 77 CSCaN PIC xX{5) 
ocolé 77) CboETL Pre x¢5) 
OCO!lL7 O1 SCOPE-CHARe 

otoie 02 CR Pic 
oco19 O02 DLE PIC 
oco2c C2 €S¢ Pic 
00021 O2 HT PIC 
09022 O02 stx PIC 
00023 G2 ExT PIC 
02024 G2 sor Pic 
03025 O2 ONE PIC 
ooo26 O2 THREE PIC 
oc027 ERReMSG=LITS. 

ooo28 O2 FILLER PIC X¢(19) 
of029 C2 FILLER Pic xX(19) 
09039 O2 FILLER PIC x¢19) 
oco3) O02 FILLER PIC XEbv) 
09032 01 ERR=msG-TaB 
0c033 G2 ERR 

02034 LINKAGE SECTION. 
05035 Ot Peles. 


ooool 
ocod2 
oco03 
ocoo4 
ocoos 
00006 
03007 
ocoos 
oro09 


(1-16)] HOUSEKEEPING 


VALUE *DMOALT*. 

COMP<4 VALUE 768, 
VALUE °G*, 

VALUE *CSCAN's 

VALUE "CDETL%e 


VALUE #*0D%e 
VALUE #*19°%. 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


DEFINE 
MESSAGE 
CONTROL 

CHARACTERS 


(17-26) 


=< KOM OK OM OK OO 


VALUE **®@ENVALID KEYee'"e 
VALUE ***END OF FILESe%s 
VALUE ***INVALID REQUEST#e%s 
VALUE *#81/0 ERROROS*, 
REDEFINES ERR=MSGeLITSe 

PIC x19) OCCURS 4e 


DEFINE 
ERROR 
MESSAGE 
CONTENTS 


(27-33) 


CoPY Pl b74.e 


(34-70) 





05036 
09037 
0c038 
02039 
os040 
09041 
B3042 
02043 
05044 
or04s 
oco46 
09047 
02048 
oco49 
0s050 
os051 
07052 
0£053 
oros4 
oo055 
OL056 
02057 
ocose 
ocos9 
00060 
02061 
02062 
06063 
oco064 
oe04és 
of066 
09067 
02068 
ot069 
oco70 


O02 STATUS=CONE 
G2 DETAILED=STATUS= 


Cove 


PIC 944%) COMP-4. 
PIC 904) COMP=4. 


O02 RECORD@TYPE REDEFINES DETAILED-STATUS=CUDEs 


03 PREDICTED}REC 
03 DELIVERED-REC 
02 SuUCCESSOR-ID 
O02 TERMINATION@INDI 
O02 LOCK-ROLLBACK@IN 
G2 TRANSACTION@=1De 
O03 YEAR 
03 TODAY 
03 HR=MIN-SEC 
DATA*DEFeRECeNAM 
DEF INED=-FILE=NAM 
STANDARD @MSGeLIN 
STANDARD =MSGeNUM 
WORK *AREA*LENGTH 


CONTINUILTY=DATA*INPUT*LENGTH 
CONTINUITY@=DATA*OUTPUT*LENGTH 


WORK@ARELASINCG 
CONTINULTY=DATA= 
SUCCESS*UNIT#IDe 
03 TRANSACTION®=D 
04 YEAR 
O04 MONTH 
O4 TODAY 
TIME OF #DAYe 
O4 HOUR 
O4 MINUTE 
O04 SECOND 
O03 FILLER 
SNURCE=TERMINAL® 
03 SOURCE-TERMIN 


ORD-TYPE 
ORD=TYPE 


CaTOR 
DICATOR 


€ 

€ 
EeLENGTH 
BER@LINES 


AREA*INCG 


ATE. 


CHARS. 
AL*TYPE 


PIC Xe 
PIC Xe 


PIC X6)e 


PIC Xe 
PIC Xe 


PIC 9(4) COMPe4. 
PIC 9t4) COMPo4e 
PIC 919) COMPao4. 
PIC K(7)6 

PIC XU7) 6 

PIC 944) COMPe4. 
PIC 944) COMPH4, 
PIC 944) COMPo4, 


PIC 9(4) COMP=4. 
PIC 914) COMPo4e 


PIC 99.6 
PIC 99. 
PIC 99%. 


PIC 9%. 
PIC 99.6 
PIC 99. 
PIC XXX, 


PIC Xe 
03 SOURCE@TERM=MSG=LINESLENGTH 
03 SOURCE-TERM=MSG*NUMBER@LINES 


PIC 944) 
pic 914) 


PEC 9(4) COMP=4, 
PIC 944) COMPe4es 


COMP<4e 
COMPo4e 





Figure B-14. Sample COBOL Action Program DMSCAN (Part 1 of 3) 
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lemma. COPY IMA74. 
O2 SOURCE-TERMINAL=<I1D 
O2 DATE=TIME=STAMP. 


COPY 
INPUT 
MESSAGE 
CONTROL HEADER 


{7 1-80) 


DESCRIBE 
INPUT 
MESSAGE 
TEXT 


(81-96) 


03 YEAR 

03 TODAY 

03 HR*MIN@SEC 
O2 TEXTeLENGTH 
O2 AUXILIARY=pEV=IDe 

O3 FILLER 

O03 AUX=DEVeNO 
O2 FELLER 
O02 ZIip-IN 
O2 FILLER 
O02 LN=CUSTID. 

O03 LNwIN 

03 FILLER 
02 REN=LNeCUSTID 

03 CHAR 
ALT=RECe 
O2 ALT*KEYs 

O3 ZIP 

03 LN 

03 CUSTOMFR. 

O04 KEYeCHAR 

O2 FN«a5S 
O2 advR-10 
OeMama. 


PIC X(6)o 
PIC X(Sde6 
Prec X. 


PIC X(E7). 

PIC X(Bde 

REDEF INES LN©CUST]D. 
PIC X OcCURS 25 


PIC X(Sde 
Pryce X(17), 


Pic Xx OCCURS 6 
PIC X(S)e 

Pic x10). 

COPY OMA74e 


COMP=4, 
COMP<4, 
CcOMP-4, 
COMP<4, 


INDEXED By 


INDEXED by 


O2 DESTINATION=-TERMINAL@ID 
O02 SFS*°OPTIONS 
O02 FILLER 

O2 CONTINUOUS=OUTPUT=CODE 


PIC X¢4de 
PIC xXU2)de 
PIC Xt2)e 


COPY PIC X¢4)6 





OUTPUT 
MESSAGE 
CONTROL HEADER 


(99-105) 


DEFINE 
OUTPUT 
MESSAGE 
DICE 


{106-110 


DESCRIBE 
OUTPUT 
MESSAGE 
TEXT 


(111-128) 


DEFINE 
SUCCEEDING 
SCREEN 
DICE 


(129-134) 


DESCRIBE 
SUCCEEDING 
OUTPUT MESSAGE 
TEXT 


(135-141) 






02 TEXT*LENGTH 
O2 AUXILIARY=DEVICE= 
03 AUXeFUNCTION 
O3 AUX=DEVICE-NO 
O2 Dict-l. 
03 TEN-l 
03 FN-1 
03 Ye! 
03 X91 
DISPLAY=TABLE. 
03 CUST@LINE 
04 SoE-OUT 
04 TRAN-OUT 
O4 FILLER 
04 CuSsT~OUT 
O04 FILLER 
O04 LN-OUT 
FILLER 
ESc-0uT 
HT-OUT 
FILLER 
FN-OUT 
FILLER 
ADOR=0UT 
FILLER 
ZIP-*OuT 
CReOUT 
O2 Top-OF =SCREEN,. 
03 OICEe2. 
04 TEN=2 
O4 FNeW2 
O04 Yea2 
04 xX=2 
NEXT=TRAN 
FILLER 
NEXT=ZI1P 
FILLER 
NEXT*LN 
FILLER 
NEXT=CUST 


PIC 914) 

IpDe 
PIC XxX, 
PIC xX, 


OcCURS 10 


COMpa4e 


INDEXED by Keo 





Figure B-14. Sample COBOL Action Program DMSCAN (Part 2 of 3) 
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SIMPLE TRANSACTION IN COBOL: DMSCAN PROGRAM 











OOl142 PROCEDURE OIVISION 


00143 USING Pel=-B I-mMeaA ALT=REC O=MnAe 
09144 BEGIN=PROC.e 
Oot4s MOVE SPACES TO DISPLAY=TABLE TOP-QF=SCREENe 
INPUT 09146 MOVE DLE TO TEN@=1 TEN@2. 
(144-156) MESSAGE O0147 MOVE EXT TO FNel. 
PROCESSING oo148 MOVE STX TO FNe2e 
Oo149 MOVE THREE TO Yl. 
00150 MOVE ONE TO Xe] x=2 Ya2, 
00151 IF TEXT*LENGTH IN loMeA > 24 
00152 THEN SET 1 To TEXT*LENGTH IN J=M=a 
02153 SET 1 DOWN By 22 
ocis4 IF CHAK (1) 7S NUMERIC AND CHAR (1 + 5) 7S N MERIC 
ociss THEN PERFORM Myo10 
oc1se VARYING J FROM y BY 1 UNTIL J > be 
02157 MOVE LN=IN TO LNe 
0c158 MOVE ZIP*IN To ZIPe 
DISPLAY ocis? CALL *SETL* 
(157-171) OUTPUT oo16c USING DMOALT GE ALT©KEYe 
RECORDS Olé! IF sTaTUS-CO0E > O 
02162 THEN MOVE ERR (STATUS=CODE) To CuSsT=LINE (1) 
00163 GO To END=PROGe 
o2164 CALL *GET® 
Gf165 USING DMOALT ALT=RECe 
OC166 PERFORM READ-LOOP 
00167 VARYING K FROM 1 BY 1 UNTIL 
00168 MOVE CSCAN TO NEXT=TRANe 
OO169 MOVE ZIP TO NEXTH=ZIPe 
00170 MOVE LN TO NEXT=LNe 
00171 MOVE CUSTOMER TO NEXT=CUSTe 
OC!172 END=PROG. 
09173 MOVE OUT=MSG=LEN TO TEXT*LENGTH 
00174 CALL "RETURNS, 
OO175 MvelD. 
TERMINATE 00176 MOVE CHAR (1) TO KEY-CHAR (tu). 
(172-174) PROGRAM 


NORMALLY 





00177 MOVE SPACE TO CHAR (I}e6 

00178 Set 1 UP BY 1, 

00179 READ=LOOP, 

00180 IF STaTUS=CODE > O 

ocisl THEN MOVE ERR (STATUS=CODE) To CUST=LINE (K) 





MOVE 
CUSTOMER NO. 
TO OUTPUT 
MESSAGE 


OO182 GO To END-PROGe 
00183 SOE TO SOE-OUT (Ke 
00184 CDETL TO TRAN@OUT (K)e 
00185 CUSTOMER TO CUST=OUT (Kx). 
OO18s LN TO LN-OUT [K), 
00187 ESC TO ESC-OUT (Ke 
00188 HT TO HT*OUT (K). 
oo189 FNeS TO FN-OUT (K)e 
00190 ADDR-10 TO ADDR-QUT 
00191 ZIP TO ZIP=OUT (Ke 
00192 CR TO CReOUT IK), 
00193 *GET® 

00194 USING DMOALT ALT=RECe 


(175-178) 


READING 
RECORDS 
FOR 
DISPLAY 


(179-194) 





Figure B-14. Sample COBOL Action Program DMSCAN (Part 3 of 3) 
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SIMPLE TRANSACTION IN COBOL: DMDETL PROGRAM 





(1-13) HOUSEKEEPING 


DEFINE ERROR 
(14-20) MESSAGE 
CONTENTS 


DEFINE 
MESSAGE 
CONTROL 

CHARACTERS 


(21-37) 


DEFINE 
OUTPUT 
MESSAGE 
CONSTANTS 


(38-47) 





LINE NOs SOURCE ENTRY 


Of001 IDENTIFICATION DIVIS]|ONe 

09002 PROGRAM=f[De OMDETLe 

OD003 AUTHOR EeOeFeSeFe (NYNA 7/76) 

OD004 DATE=<WRITTEN® 7/16/7606 

OfL005 ENVIRONMENT DIVISION. 

09006 CONFIGURATION SECTIONe 

00007 SOURCE*COMPUTERs UNIVAC*0S3¢ 

OCCOB OBYECT@COMPUTERe UNIVAC*053¢ 

00009 DATA DIVISION. 

OfSO10 WORKING*STORAGE SECTIONe 

ccooll OMOnSTR PIC X(7) VALUE *DMUHSTR*e 

or0i2 OUT=MSG@LEN PIC 9999 COMP=4 VALUE 327. 

ocol3 ERR-MSGeLEN PIC 9999 COMP=4 VALUE 27.6 

ocol4 ERR=MSGH=LITS. 

ccois O2 FILLER Prec X(19) VALUE "@eINVALID KEYeets 
GO0016 C2 FILLER PIC x¢ig) VALUE *®*END OF FILE®e"o 
oco17 O02 FILLER Pyrc X¢19) VALUE "®#INVALID REQUESTee%e 
on018 O2 FILLER PIC xX¢i9) VALUE *#e1/Q ERROR@@*, 

os0l19 ERR=mSGeTBL REDEFINES ERR=MSGeLITSe 

09020 O02 ERR“MSG PIC xX¢19) OCCURS 4e 

oco21 |: SCOFE=CHARs 

os022 02 OLE Pic 
ocn23 C2 str Pic 
oo024 C2 EXT PIC 
00025 02 SOF Pic 
oo026 G2 cR PIC 
oc027 O2 ONE PIC 
0c028 G2 THREE PIC 
05029 O2 Five Pic 
Or7o3G C2 E€1GHT Pic 
oco31 C2 NINE Pic 
0c032 C2 FIFTEEN PIC 
07033 O2 SIXTEEN Prc 
oro34 O2 EIGHTEEN Pic 
oc035 O2 TWENTY=ONE Pic 
0C036 O2 TWENTY-TWO Pic 
C9037 O02 FORTY@ONE PIC 
oco38 MSGeLITSe 

09039 C2 CUSTOMER@LIT PyC VALUE “CUSTOMER #3 %e © 
oo040 PURCH]PR PYC VALUE "PURCHASE PRICce%o 
o2041 PAYMT*PLAN PIC VALUE "PAYMENT PLANS *. 
oco4#2 PAYMT<AMT PEC VALUE "PAYMENT AMOUNT: %o 
oc043 bAL Pre VALUE "CURRENT BALANCES*. 
oco44 REVISION PIC VALUE “REVISIONS %. 

oco4s YES Pic VaLUE *YES*. 

00046 KNO Pic VALUE * NO%. 

00047 PaAyMT PIC VALUE *PAYMT'%. 


VALUE 
VALUE 
VALUE 
VALYE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VaLuEe 
VALUE 
VALUE 
VALUE 
VALUE 


KK OO OK KO OO 


Figure B-15. Sample COBOL Action Program DMDETL (Part 1 of 4) 
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(48-84) 


COPY 
INPUT 
MESSAGE 
CONTROL 
HEADER 


(85-94) 


DESCRIBE 
INPUT 
MESSAGE 
TEXT 


(95-111) 


COPY 
OUTPUT 
MESSAGE 
CONTROL 
HEADER 


(112-120) 





03048 
oco49 
ocoso 
ooosl 
ocos2 
ocos3 
05054 
ocoss 
ocosé 
ocus7 
ocosa 
ocos9 
02060 
o9061 
oo062 
otos3 
oo0é4 
00065 
0G066 
00067 
00068 
00069 
oco70 
00071 
00072 
00073 
ocao74 
oco7s 
00076 
09077 
ooo78 
09079 
09080 
coos) 
00082 
00083 
ocos4 
ocoss 
00086 
ocos87 
00088 
00089 
020970 
ooovt 
aoo92 
00093 
00094 
oo09s 
00096 
00097 
oco98 
oco99 
09100 
0010) 
oo102 
oo1e3 
oo1904 
octos 
oc10é 
O0107 
co1o0s 
octo9 
ocii1o 
oot 
ocli2 
oo1n3 
ocii4 
ocris 
ocileé 
Oc1l7 
Oo1ls 
Oo1i9 
ociz2zo 


SPERRY UNIVAC 





OS/3 


IMS ACTION PROGRAMMING IN COBOL AND BAL 
SIMPLE TRANSACTION IN COBOL: DMDETL PROGRAM 


LINKAGE SECTIONe 
o1 P-J-8,. 

02 STATUS=CODE 

02 DETAILED=STATUS= 

O2 RFCORD=TYPE REDE 
G3 PREDICTED=REC 
03 DELIVERED@REC 

C2 SsuccessoReIv 

O02 TERMINATION-INDI 

02 LOCK=ROLLBACK=-IN 

O02 TRANSACTION=“1De 
O03 YEAR 
03 TODAY 
G3 HReMIN@SEC 
DATA*DEF=REC=NAM 
DEF INED@-FILE=NAM 
STANDARD=MSGeLIN 
STANDARU=mSG-NUM 
WORK*AREALENGTH 
CONTINUI Ty=0ATA= 
CONTINUITY#DATA= 
WORK“AREASINCG 
CONTINUILTY-DATA= 
SUCCESS=“UNI Te De 


COPY PIB74e 

PIC 9441 COMP<4. 
CODE PIC 944) COMPH4. 
FINES DETAILED=STATUS-CGDE. 
ORD=-TyPE PIC Xe 
ORD=<TYPE PIC Xe 

PIC Xlb)eo 
CaToR PIC Xe 
OLCAToR PIC Xe 


PIC 904) COMPa4, 

PIC 914) COMP=4e 

PIC 919) COMP=4. 

E PIC XU7}. 
E PIC X07) 
E-LENGTH PIC 914) COMP=4s 
BER@LINES PIC 944) COMP=4. 

PIC 964) COMPo4, 
INPUT*#LENGTH PIC 9(4) COMP=4, 
OUTPUT*LENGTH Pic 9(4) COMP=4e 

PIC 964) COMP=4. 
AREA*INC PIC 914) COMPH4e 


03 TRANSACTION-VATE. 


O4 YEAR 

O4 MONTH 

Oo4% TODAY 

TIMESOF=DAYe 

O04 HOUR 

04% MINUTE 

04 SECOND 
03 FILLER 
SOURCE=TERMINAL~ 
C3 SOURCE=}TERMIN 


03 SOURCE@TERM@MSG=LINE=LENGTH 


G3 SOURCE-TERM=MSG=NUMBER@LINES 


ToMeA. 
O02 SOURCE-TERMINAL@=1 
O2 DATE=TIME=STAMPe 
03 YEAR 
03 TODAY 
O03 HR@MIN|SEC 
O02 TEXT=LENGTH 
O2 AUXILIARY=DEVeID. 
O3 FILLER 
C3 AUX-DEV-eNO 
O2 FILLER 
02 cUSsTID 
O2 FILLER 
MSTReRECe 
O02 cUSsSTNO 
C2 FN 
02 mI 
02 LN 
02 ADDR 
02 cITY 
02 st 
O02 zIe 
G2 PURCHASE=PRICE 
92 PAY=<PLAN 
O02 PAY=AMT 
O02 BALANCE 
O2 UPDATE 
O-Meoa. 
O02 DESTINATION=TERMI 
02 SFS=OPTI 
O2 FILLER 
O2 CONTINUOUS-QUTPUT 
O02 TEXT-LENGTH 


O2 auxILIARY=NEVICE= 


O03 AUX=FUNCTION 
O03 AUX-DEVICE=-NO 


PIC 9% 
PIC 99 
PIC 99%. 


PIC 99%. 
PIC 99e 
PIC 99%. 
PIC XXX, 
CHARS, 
AL @TYPE PIC Xe 
PIC 914) COMP=4e 
PIC 914) COMP#4e 
COPY I[MA74e 
D PIC X(4).e 


PIC 904) COMP#4, 
PIC 9(4) COMPH4, 
PiC 9(9) COMP=4, 
PIC 914) COMP=4, 


PIC xe 
PIC xe 
PIC X¢6de 
PIC X{6)e 
Prc X¢24), 


PIC K(ble 

PIC x¢(1O), 

PIC X, 

Pre MCI7), 

Pic X(23). 

PIC X¢lud. 

PIC Xxe 

PIC X(5S)d.e 

PIC 99IVIGDe 

PIC XM. 

PIC F99VIGe 

PIC 999VIGe 

PIC X, 

COPY OMA74e 

NaLelp PIC X(4)e 

ONS PIC X(2)e 

PIC X2)-6 

PIC X¢4de 

PIC 9(4) COMPe4e 


“CODE 


Ide 
PIC X, 
PIC XxX, 





Figure B-15. Sample COBOL Action Program DMDETL (Part 2 of 4) 
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SIMPLE TRANSACTION IN COBOL: DMDETL PROGRAM 


oc121 OIcE=l. 

00122 C3 DLE-} Pic 

oc123 O03 EXT-1 PIC 

oc124 03 Yel PIC 

00125 03 xX-1 PyC 

Ool26 ERR@LINE PIC XC19), 
00127 cust REDEF INES ERR=LINE®s 
ceo128 03 CUSTUMER PIC X¢la)d, 
00129 O03 CUSTe-1 PIC Xtbde 
oe130 NICEe2e 

co131 03 DLE-2 PIC X, 

00132 03 STx-2 PIC Xe 

09133 03 Y°2 PIC X. 

00134 03 X=-2 PIC X. 

oci3s FN Pre X¢lld. 
OC136 MI PIC XxXe 

00137 LN Prec X(27), 
00138 PURCH@PR PIC x¢l7). 
0C139 PURCHASE PRICE PIC SES9e9%e 
oc140 CRel PIC X. 

oor4l ADOR PIC X(47). 
oc142 REVISION PIC X(15), 
60143 UPD PIC XxXe 

oe144 CRhe2 PIC X, 

Oocl4s CITY PIC x¢20). 
OO146 st PIC XxXXXe 
06147 dip PIC X¢lo), 
0c148 PAYMT=PLAN PIC 

ocr49 PAY*PLAN PEC 

Ootso Dict-3. 

oois! 03 DLE=3 PIC 

oc1s2 03 STx*3 PIC 

00153 03 Y*3 PIC 

Oo2154 C3 X"3 PIC 

ociss O2 BAL x(lad, 
06156 O02 BALANCE $ESF69DGI6 
0c157 02 CRe3 Xe 
ociss O02 soOE-0UT Ke 
OSi59 PAYMT X(b)eo 
00165 CUsST=2 x¢34), 
oc1él PAYMT*AMT x¢17). 
OC1462 PAY@AMT PIC $23909%e 
00163 O1CES4e 

GC1é64 G3 DLEe#4 PIC Xe. 
oc1iés 63 STxX-4 PIC Xe 
00166 C3 Y*4 PIC Xe 
Oc!67 03 x94 PIC X, 
05168 PROCEDURE DIVISION 

oclé69? USING Pel=B [emma NSTROREC 


DEFINE OUTPUT 
MESSAGE DICE 
121-1 
as T80 AND ERROR 
TEXT 


DEFINE 
OUTPUT MESSAGE 
DICE AND 
TEXT 


(131-167) 


00170 BEGIN-PROCe 


00171 MOVE CUSTIO TO CUSTNO. 
MOVE 00172 CALL GET? 
CUSTOMER-ID 00173 USING DMOMSTR MSTR=REC CUSTNOs 
(171-173) TO MASTER oc174 MOVE DLE TO OLEte 
RECORD AND ODL75 MOVE EXT TO EXT=1e 
READ MASTER 00176 IF STANDARD*HSG*NUMBER=LINES NOT > 12 
00177 THEN MOVE THREE TO Y=1 
00178 MOVE FIVE TO Ye2 
05179 MOVE EIGHT To Yeo3 
SET UP 06180 MOVE NINE TO Yo4 
SCREEN ocist MOVE SIXTEEN TO Ye] 
(174-185) CONTROL 


00182 MOVE EIGHTEEN TO Yo2 
00183 MOVE TWENTY*ONE TO Yo3 
Of184 MOVE TWENTY*TWO TO Yo4o 
62185 MOVE CNE TO Xeale 


CHARACTER 
VALUES 





Figure B-15. Sample COBOL Action Program DMDETL (Part 3 of 4) 








UP-9207 SPERRY UNIVAC OS/3 B-20 
IMS ACTION PROGRAMMING IN COBOL AND BAL 
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00186 IF STATUS@CUDF ® 0 
00187 THEN MOVE CR TO CRel CRe2 CR#3 
fel ry - =) 
cay 0c188 MOVE DLE TO DLE#2 DLE=3 DLE<4 
(186-203) eri 02189 MOVE STX TO STX=2 STx93 STX=4 
MESSAGES 02190 MOVE ONE TO xe2 
oo19) MOVE FORTY=ONE TO x=3 
0c192 MOVE FIFTEEN To x=4 
00193 MOVE SOE TO SOE-0UT 
oc194 MOVE CUSTOMER@LIT TO CUSTOMER 
00195 MOVE CUSTNO TO CUST@=)] CUST=z 
OD19%6 MOVE CORR MSG*LITS To O-me=a 
oc1g97 MOVE CORR MSTReREC To Oemeaa 
oc198 MOVE OUT=MSGeLEN TO TEXT*LENGTH IN OMA 
0f199 IF UPDATE @ tye 
00203 THEN MOVE YES TO UPD 
06201 ELSE MOVE KNO TO UPD 
O002C2 ELSE MOVE ERR-MSG (STATUS@CODE) To ERR=LINE 
002903 MOVE ERR=MSGeLEN TO TEXT=LENGTH IN OMA, 
ocf204 CALL "RETURNS, 
TERMINATE 
(204) PROGRAM 





NORMALLY 


Figure B-15. Sample COBOL Action Program DMDETL (Part 4 of 4) 
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LINE NO. SOURCE ENTRY 





OPGG1 IDENTIFICATION DIVISION. 
OCOU2 PROGRAM-1U. GMPYAT. 
OFGG3 AUTHOR « EeOceF oSef eo NYNA 7/76} 
(1-15) HOUSEKEEPING OCOLU4 DATE-WRITEEN. 7419/766 
C[0U5 ENVIRONMENT D)VIS] ON. 
[COG6 CONFIGURATION SECTION. 
TOUG7 SOURCE-COMPUTER. UNIV AC-0S3. 
ONDU8 OBJECT-COMPUTER. UNI¥ AC-0S3. 
19009 UATA DIVISION. 
3CG10 wWORKING-STORAGE SECTION. 
00611 77 GMOMSTR PIC xXt73 VALUE "DHOMSTR*, 
Oru12 77 DMOXAC PIC xt73 VALUE *DMOXACT*. 
Wn913 77 TeElve PIC 2 VALUE ="12°, 
C014 77 OUT-MSG-LiN PIC 9999 COMP-4 VALUE 78. 
[0015 77 ERR-MSG-LEN PIC 9999 COMP-4 VALUE 29. 
57516 Ul ERR-MSG-LITS. 
"017 a2 FILLER PIC X¢22) VALUE *##INVALID KEYee*, 
DESCRIBE 97618 O2 FILLER PIC x421) VALUE *a*END OF FILES**, 
(16-23) ERROR 30015 Oz FILLER PIC X¢222 VALUE "S#INVALID REQUEST#*", 
MESSAGE 20320 02 FILLER PIC x(21) VALUE *##1/0 ERROR&**, 
CONTENTS ne02z2 G2 FILLER P1C X€21}) VALUE *#*PAYMENT > BALANCES®#*, 
C0G22 OL ERR-MSG-ToL REDEFINES ERR-MSG-LITS« 
20323 U2 ERR-MSG PIC %¢22) OCCURS Se 
9924 O1 DICE-CODE. 
ieee ona25 O2 Dt PIC x VALUE =*20%, 
aceence Maze az STx PIC x VALUE ="92*, 
(24-28) COMFAGL G27 U2 TWENTY-FOUR PIC xX VALUE =°28%, 
Pa aA eter nraza Oz ONE PIC X VALUE =*O1", 
0roz9 Ol MSG-LIT. 
neg30 02 FILLER PIC X€20) VALUE * PAYMENT ACCEPTED FO*. 
2631 32 FILLER PIC X¢22)  WALUE °R CUSTOMER @*. 
"0032 02 FILLER PIC X¢24)  WALUE *NEW BALANCE: *, 
DEFINE 9°633 LINKAGE SECTION. 
OUTPUT 034 0) P-I-b. COPY PIBT4. 
(29-32) MESSAGE 70035 02 STATUS~COUE PIC 944) COMP-4, 
CONSTANTS 0703 6 G2 OETAIL ED~STATUS-CODE PIC 9¢4) COMP-4. 
3r037 O02 RECORD-TYPE REDEFINES DETAILED-STATUS-CODE. 
90938 G3 PREDICTED-RECORD-TYPE PIC Xe 
nng3$ U3 DEL IVERED-RECORD-TYPE PIC XxX. 
acD40 32 SuCCESSOR~ID PIC xtol. 
10341 02 TERMINATION-INDICATOR PIC xX, 
(33-69) 27042 O02 LOCK-ROLLSACK-INDICATOR PIC Xe 
7nG4 3 G2 TRANSACTION-IL « 
aroua G3 YEAR PIC 9143 COMP-4, 
AnO45 v3 TouAy PIC 914) COMP-4. 
35046 U3 HR~MIN- SEC PIC 919) COMP-4. 
30047 O02 DATA-O EF-R EC-N AME PIC X47). 
1CG48 G2. DEF INED-FILE-N AME PIC X(T1e 
o0u49 32 STANJARD-MSG-LINE=LENGTH PIC 944) COMP-4, 
"ros 0 OZ STANDARD-MSG-NUMBER-LINES PIC 914) COMP-4. 
97651 D2 wORK-AREA-LENG TH PIC 944) COMP-4. 
BUS 2 G2 CONTINUIT¥-DAT A-INPUT-LENGTH PIC 944) COMP-4. 
nos 3 G2 CONTINUITY-DATA-OUTPUT-LENGTH PIC 9¢4) COMP-4, 
otGS 4 02 wORK-AREA- INC PIC 9¢4) COMP-4, 
97g5 5 O2 CONTINUITY-DATA-AREA-INC PIC 9(4) COMP-4. 
2005 6 G2 SUCCESS-UNIT-10. 
tas 7 U3 TRANSACTION-DATE. 
nvas 8 C4 YEAR PIC 996 
97659 34 MONTH PIC 99, 
9ca60 a4 TODAY PIC 99, 
Occbel U3 TIME-OF -DAY. 
PC062 04 HOUR PIC 99. 
90063 o4 MINUTE PIC 99. 
oco64 a4 SECOND PIC 99, 
orde5 03 FILLER PIC XXX. 
N26 6 D2 SOURCE -TER MINAL-CH ARS » 
OC Oe7 u3 SOURCE-TERMINAL-TYPE PIC X. 
20968 03 SOURCE-TERM-MSG-LINE-LENGTH PIC 9¢4) COMP-4. 
9f06$ 33 SOURCE-TERM-MSG-NUMBER-LINES PIC 944} COMP-4, 


Figure B-16. Sample COBOL Action Program DMPYMT (Part 1 of 4) 
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SIMPLE TRANSACTION IN COBOL: DMPYMT PROGRAM 








I-“-A, COPY IMAT4, 
02 SOURCC- TERMINAL ~I1D 
O2 DATE-11ME-STAMP . 


COPY INPUT 
MESSAGE 
CONTROL 

HEADER 


(70-77) 


DESCRIBE 
(78-83) INPUT MESSAGE 
TEXT 


SET UP RECORD 
COUNTER, PAY 
ACCUMULATOR, 
AND TERMINAL-ID 
FOR DMTOTL 
PROGRAM 


(84-91) 


DEFINE 
(92-97) MASTER 
RECORD 


DEFINE OUTPUT 
MESSAGE HEADER 
FOR DMTOTL 
PROGRAM 


(98- 103} 


SET UP TERMINAL 
ACCUMULATORS 
FOR OMTOTL 
PROGRAM 


(104-108) 


o- 


C3. VEAR 
C3 TO,aY 
C3 HR-MIN-SEC 
TEX T"LENGTh 
AUN ILIARY-DEV-ID. 
C3 FILLER 
C3 AUX-DEWV-NO 
FILLER 
CusTlo 
FILLER 
MSO-PAY. 
U3 MSG-CHAR 
FILLER 
Ae 
REC-CTk 
PAY-ARE Ae 
U3 PAY-CHAR 
PAYMENT 
TRM. 
u3 FILLER 
o3) TRM-NUM 
PSTR-REC. 
u3 CusTNO 
u3 FILLER 
G3 PAY-AMT 
C3 BAL ANCE 
Gs FILLER 
YAC HU o 
u3 YAR 
u3 TO-DAY 
G3 PIR-FIR ST 
u3 PIR-NEXT 
u3 FILLER 
XAC-TRM. 
U3 TRM-ID 
U3 XAC-CIR 
O3 TRA-TOT AL 
O03 FILLER 
XAC-REC 
u3 TRA-XAC 
O3 KAC-TIME 
&3 CUSTOMER 
03 XAC~-AMT 
MA. 


COMP-4&, 
COMP—4. 
COMP-4. 
COmMP-4, 


x OCCURS 7 
he 


INDEXED BY I. 


P1C $412) COMP-4 6 


PIC x OCCURS 5 
REDEF INES PAY-AREA 


INDEXED BY Je 
PIC 99999. 


PIC XAXe 
PIC De 


PIC xt 6}, 
PIC x0 82). 
PIC 9SD9VS9. 
PIC 999994 
PIC Ae 


PIC 9999 COMP-4 . 
PIC 9599 COMP-4. 
P1C 9599 COMP-4. 
PIC 9999 COMP-4. 
PIC KC83. 


PIC GS. 

Plc 9999, 

PIC SUSIVO9. 

PIC XAXM. 
REDEFINES XAC-TRA. 
PIC 9. 

PIC 9491 COMP-4 6 
PIC X46]. 

P1C 99999. 

COPY OMAT4, 





OZ DESTINATION-TER MINAL~ID PIC xt4). 


DESCRIBE 
TRANSACTION 
RECORD FOR 
DMTOTL PROGRAM 


(109-113) 


COPY OUTPUT 
MESSAGE 
CONTROL 

HEADER 


(114-122) 


DESCRIBE 
(123-133) | OUTPUT MESSAGE 
DICE AND TEXT 





U2 SF S-OP TIONS 
c2 FILLER 


Q2 CONTINU OUS~ OUTP UT~C ODE 


O2 WerxT-LENGTH 
OZ AUXILIARY-GEVICE-I0. 
C3 AUX-FUNCTION 
C3 AyX-OEWICE-NO 
O2 DICE-OuT. 
03 FILLER 
03 DICE-¥ 
o3 FILLER 
QUT -MSGe 
us PayY-Oul 
C3 L1iy-OuT. 
G4 FILLER 
o4 CusST-ouT 
Dy FILLER 
u3 NEw -BAL 





PIC C42). 
PIC xt2). 
PIC xd 4de 
PIC 9¢42 COMP-4. 


PIC xX. 
PIC xX. 


XX 
Xe 
he 


$$$9.99.6 


xt32). 
x06). 
x16). 
$4399.99. 


Figure B-16. Sample COBOL Action Program DMPYMT (Part 2 of 4) 
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SIMPLE TRANSACTION IN COBOL: DMPYMT PROGRAM 





SET UP SCREEN 
CONTROL 
CHARACTER 
VALUES 


(136-139) 


MOVE CUST-ID 
TO MASTER 
RECORD AND READ 
MASTER 


(140-142) 


PREPARE TO 
UPDATE 
(143-155) MASTER RECORD 
OR BUILD ERROR 
MESSAGE 


WRITE 
UPDATED 
MASTER AND 
COUNT UPDATE 


(156-160) 


READ 
(161-162) TRANSACTION 
RECORD 


PREPARE TO 
UPDATE 
TRANSACTION 
RECORD OR 
BUILD ERROR 
MESSAGE 


(163-171) 


INSERT 
NEW 
TRANSACTION 
RECORD 


(172-173) 


READ UPDATED 
TRANSACTION 
RECORD OR BUILD 
ERROR MESSAGES 


(174-180) 


UPDATE 
TRANSACTION 
(181-193) | RECORD PAYMENT 
TOTAL AND 
INSERT HEADER 







90136 
W137 
oci3s 
90139 
90149 
acid. 
90142 
C143 
oti44 
or14s 
0146 
oci4a7 
20148 
arr4s 
3150 
ACisi 
3aas2 
70153 
904s a4 
oo1s5 
00156 
90157 
90158 
c1is9 
90160 
20161 
90162 
90163 
10164 
A165 
o7%166 
ACleT 
atlee 
329169 
TCi70 
09171 
oct172 
oc173 
oPl74 
ci7s 
10176 
C177 
901738 
9ni79 
of1gd 
162 
30162 
50183 
aries 
goes 
BOle6 
WwlE7 
00168 
N°16S 
20190 
30191 
ocls2 
6193 





PROCEDURE DIv1SION 
USING P-I-B I-M-A W-A O-H-Ae 
BEGIN-PROC. 
MOVE DICE-CODE TO DICE-OUT. 
IF STANDARO-MSG-NUMBER -LINES NOT > 12 
THEN MOVE TWELVE TO DICE-Y~ 
MOVE CUST1D TO CUSTNO.~ 
CALL *GETUP® 
USING DMOMSTR MSTR-REC CUSTNO. 
IF STATUS-CODE NOT = ZERO 
THEN GO TO ERK-OFF. 
MOVE ZERO TO PAYMENT. 
SET J TO 56 
SUBTRACT 17 FROM TEXT-LENGTH IN I-M-A. 
PERFORM Mv -NUM 
VARYING 1 FROM TEXT-LENGTH IN I-M-A BY 71 UNTIL 
IF PAYMENT NOT > ZERO. 
THEN MOVE PAY- AMT TO PAYMENT. 
IF PAYMENT > BALANCE 
THEN HOVE 5 TO STATUS~COOE 
60 TO ERR-OFF « 
SUBTRACT PAYMENT FROM BALANCE. 
CALL ‘Putt 
USING DMOMSTR MSTR-REC 
IF STATUS-CODE NOF = ZERO 
THEN GO TO ERR-OFF e 
MOVE 1 TO REC-CTRe 
CALL *GET® 
USING DMOXAC XAC-HDR REC-CTR. 
IF STATUS-CODE NOT = ZERO 
THEN GO 10 ERR-OFF » 
IF TODAY IN OATE-TIMc-STAMP NOT = TO-DAY IN XAC-HDR 
THEN PERFORM INIT-RING 
MOVE SOURCE-TERMINAL-1D TO IRM. 
MOVE TRM-NUM 30 IRM-xACe 
MOVE HR-MIN-SEC IN DATE-TIME-STAMP TO XAC-TIME. 
MOVE CUSINO TO CUSTOMER. 
MOVE PAYMENT TO XAC-AMT. 
CALL *INSERT* 
USING DMOXAC XAC-REC REC-CIR. 
IF STATUS-CODE NOT = ZERO 
THEN GO TO ERR-OFF « 
ADD 1 TRH-NUM GIVING REC-CTR.« 
CALL *GET® 
USING DMOXAC XAC-TRM REC-CTRe 
IF STATUS- COVE NOT = ZERO 
THEN GO TO ERR-OFF. 
MOVE TRM-NUM TO TRM-10. 
ADD 1 TO XAC-CTRe 
ADD PAYMENT 10 TRM-TOT AL. 
CALL *INSERT® 
USING DMOXAC XAC-TRM REC-CTRe 
IF STATUS-CODE NOT = ZERO 
THEN GO TO ERK-OFF » 
ADD 1 TO PTR-NEXTs 
MOVE 1 TO REC-CTR. 
CALL *INSeRT? 
USING DMOXAC XAC-HOR REC-CTRe 


Figure B-16. Sample COBOL Action Program ODMPYMT (Part 3 of 4) 
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SIMPLE TRANSACTION IN COBOL: DMPYMT PROGRAM 


BUILD OUTPUT 
MESSAGE TEXT 
FOR DMPYMT 
PROGRAM 


(194-198) 


TERMINATE 
(199) PROGRAM 
NORMALLY 


SET TABLE TO 
RECEIVE 
PAYMENT IN 
WORK AREA 


(200-205) 


READ 
TRANSACTION 
DATA ENTERED 

FROM TERMINAL 


(206-220) 


BUILD ERROR 
MESSAGE AND 
TERMINATE 
NORMALLY 


(221-224) 





IF STATUS-COOL NOT = ZERO 
THEN GO 30 ERR-OFF « 
MOVE MSG-LIT TO LIT-OUT. 
MOVE PAYMENT TO PAY-OLTe 
MOVE CUSINO TO CUST-OUT. 
MOVE BALANCE TO NE W-dAL. 
MOVE OUT-MSG-LEN TO TEXT-LENGTH IN O-M-A, 
CALL ‘RETURNS. 
MV-NUM. 
IF MSG-CHAR ¢1) 1S NUMERIC 
THEN MOVE MSG-CHAR (1) TO PAY-CHAR tu} 
SET J DOuN BY 1 
Fs ¢1 
THEN SET ITO 1. 
INIT-RIN. 
MOVE CORR DATE -TIME-STAMP TO XAC-HOR. 
MOVE PTR-F IRST TO PTR-NEXT. 
PERFORM TRM-INIT 
VARYING REC-CIR FROM 2 BY } UNTIL REC-CTR NOT < PIR-FIRST. 
TRM-INIT. 
CALL *GET* 
USING DMOXAC XAC-TRM REC-CTIR. 
IF STATUS-CODE NOTE = ZERO 
THEN 60 TO ERK -OFF . 
MOVE ZERUS TO XAC-CIR TRM-TOTAL. 
IF STATUS-COODE NOF = ZERO 
THEN GO TO ERR-OFF ¢ 
ERR-OFF. 
MOVE ERR-MSG (STAT US-CODE) TO OUT-MSG. 
MOVE ERR-MSG-LEN T0 TEXT-LENGTH IN O-H~A. 
CALL *RETURNS,. 


Figure B-16. Sample COBOL Action Program DMPYMT (Part 4 of 4) 
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OCOOL IDENTIFICATION DIvISJONe 
00002 PROGRAM*IDe ODMTOTLe 
OC003 AUTHOR. FeOeFeSefFe {NYNA 7/76} 
(1-14) HOUSEKEEPING OCO04 DATESWRITTEN® 9/13/7660 
OCC005 ENVIRONMENT DIVISION. 
00006 CONFIGURATION SECTIONe 
00007 SOURCECOMPUTERe UNIVAC#0S36 
00008 OBVJECT-COMPUTERs. UNIVAC-0536 
00009 OATA DIVISION. 
00010 WORKING=-STORAGE SECTIONe 
00011 77 OmOxac PIC X¢7) VALUE "OMOXACT’%.e 
O0012 77 MIN=-MSG-LEN PIC 9999 COMP=4 VALUE 126. 
00013 77 ERR=MSGeLEN PIC 9999 COMP=4 VALUE 296 
00014 77 MSGeLINE@LEN PIC 9999 COMP=4 VALUE 40. 
ODOIS O01 ERR=MSGeLITS. 
DESCRIBE 00016 02 FILLER PIC X¢21) VALUE "@OINVALID KEYV@e%e 
(15-21) ERROR 00017 Oz FILLER PIC X(21) > VALUE ‘END OF FILECe%s 
MESSAGE oo018 O2 FILLER PIC x(21) VALUE "**®INVALID REQUESTee'. 
CONTENTS 00019 O02 FILLER PIC X{21) VALUE *ee1/Q9 ERRORSS*, 
00020 ERRemSG*TBL REDEFINES ERR=MSGeHLITSe 
00021 02 ERRMSG Pie x¢2)) OCCURS 4e 
00022 DICESCODE. 
00023 O2 DLE VALUE #10". 
eee ine 00024 02 ETx VALUE #8°03% 
(22-26) CONTROL 00025 O2 THREE VALUE #°03%. 
CHARACTERS 00026 02 ONE VALUE =*01%. 
00027 MSGeHDRe 
00028 O2 FILLER xcb4) VALUE “TERMINAL '. 
00029 O2 FILLER x(1e) VALUE "NUMBER OF*, 
00030 O2 FILLER x5) VALUE "TOTAL%. 
00031 O2 FILLER PIC XxXXX VALUE * *, 
DESCRIBE 00032 O2 FILLER Prc X¢1lo0) VALUE "IDt. 
(27-39) MESSAGE 00033 02 FILLER PIC X¢18) VALUE *TRANSACTIONS'e 
HEADERS 00034 O2 FILLER PIC x(8) VALUE "PAYMENTS". 
0c035 02 CR PIC X VALUE * *%, 
00036 DASHwLINE. 
00037 O2 FILLER Prec X¢18) VALUE * woeent, 
00038 O2 FILLER PIC x¢(14) VALUE tenwnt, 
00039 O2 FILLER P1c xX(8) VALUE Sewennnnet, 
00040 LINKAGE SECTION. 
0co41 OL Pel=B. CoPY PIB74e 
00042 02 STATUS-CODE PIC 9(4) COMP=4. 
00043 O02 DETAILED<s§TATUS=CODE PIC 9(4) COmMP=4, 
(41-76) oo044 O2 RECORD-TYPE REDEFINES DETAILED=STATUS=CODEs 





ooo4s 
00046 
00047 
00048 
00049 
ooose 
ocosi 
oo0s2 
ocos3 
000s4 
oooss 
00056 
oo0s7 
oooss 
00059 
oco060 
00061 
oc0é2 
00063 
00064 
0006s 
00066 
00067 
00068 
00069 
00070 
ooo71 
00072 
00073 


03 PREDICTED@RECORD-TYPE 
03 DELIVERED-RECORD<TyPE 
O2 SuCCESSOR-ID 
OZ TERMINATION@INDICATOR 
O02 LOCK=ROLLBACK=INOICATOR 
O2 TRANSACTION@“[De 
03 YEAR 
03 TODAY 
O03 HReMIN-SEC 
DATA*DEF ©REC=NAME 
DEF INED“FILE#NAME 
STANDARD -MSGeLINE@LENGTH 
STANDARD-MSGeNUMBER@LINES 
WORK=AREALENGTH 


CONTINUITY=DATA*INPUT=LENGTH 
CONTINULTY=DATA=OUTPUT@LENGTH 


WORK=AREA@INC 
CONTINUITY*DATA@AREA=INC 
SUCCESS=UNIT#IDs 
03 TRANSACTION@DATEs 

O04 YEAR 

O4 MONTH 

O04 TODAY 

TIME-OF -DAYe 

04 HOUR 

O% MINUTE 

04 SECOND 
O03 FILLER 
SOURCE-TERMINAL=CHARS, 


PIC Xe 


PIC Xe 


PIC X16)0 
PIC Xe 
PIC Xe 


PIC 9(4) COMP=4, 

PIC 914) COMPe4e 

PIC 919) COMPe4, 

PIC X(7)de 

PIC X(7)e 

PIC 9(4) COMPH4e 

PIC 914) COMP=4. 

PIC 904) COMP=4. 

PIC 944) COMP<4, 
PIC 904) COMP=4e 
PIC 914%) COMP=4, 

PIC 914) COMP=4e 


PIC 99%. 
PIC 99%. 
PIC 996 


PIC 99% 
PIC P%e 
PIC 99. 
PEC XXx, 


oco74 
0007s 
00076 


03 SOURCETERMINAL“TYPE pIC xe 
O03 SOURCE-TERM=MSG=LINE=LENGTH 
G3 SOURCE+TERM=MSG=NUMBER-LINES 


PIC 914) COMP=4e 
PIC 944) COMP=4e 





Figure B-17. Sample COBOL Action Program DMTOTL (Part 1 of 3) 
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00077 01 Iemma, COPY IMA74e 
00078 O02 SOURCE-TERMINAL@10 PIC XC4)e6 
00079 O2 DATESTIMESSTAMPe 
02080 03 YEAR PIC 9(4) COMP=4, 
COPY ocosi 03 TODAY PIC 9(4) COMP=4, 
INPUT MESSAGE oco82 03 HR=MIN@SEC PIC 9(9) COMP=4, 
(77-86) CONTROL 00083 O02 TEXT-LENGTH PIC 9(4) COMP=4, 
HEADER a0084 O2 AUXILIARY*“DEV=1De 
00085 03 FILLER PIC xe 
0c086 03 AUX=DEV-NO PIC xe 
09087 O02 FILLER PIC X(b)6 
00088 O2 oFT PIC XXXKe 
DESCRIBE 00089 O2 FILLER PIC XXxXe 
(87-89) | INPUT MESSAGE 00090 O1 Wma, 
TEXT 00091 O2 XACTHUR. 
00092 03 FILLER P{C XXXXe 
0co93 03 XAC-FIRST PIC 9999 COMP a4. 
0co94 03 FILLER PIC X¢lOd, 
00095 O02 yeFILL=1 PIC X(256)6 
DESCRIBE 00096 O2 xXAC-TRM» 
TRANSACTION 00097 03 TRM-=10 PIC 9, 
91-101) | output HEADER 00098 03 XAC*CTR PIC 9999. 
AND TEXT 00099 03 TRM=TOTAL PIC F9(SIVOG. 
00100 03 FILLER PIC XXXKe 
oolol O2 yeFILL=2 PIC X(256)6 
00102 O2 TRHe 
00103 O03 TRM-LIT PIC XXX. 
DESCRIBE 00104 03 TRM-NUM PIC 9, 
(102-104) TERMINAL 00105 Oz PayeTOT PIC F(5)V99%8 
INPUT 00106 O2 xac-TOT PIC 9999. 
00107 O02 RECePTR PIC 9¢12) COMP-4e 
oo108 02 FILLER PIC Xe 
00109 0) O-Mea. COPY OMA74s 
oo1l0 O02 DESTINATION=TERMINAL=1D PIC Xt4)e 
oo11! 02 SFS-OPTIONS PIC Xt2)6 
DESCRIBE ooli2 O2 FILLER PIC XU2Z)e 
(205-108) CO MULATORS. 00113 02 CONTINUOUS-OUTPUT=CODE PIC K(4).6 
00114 O02 TEXT=LENGTH PIC 964) COMPe4e 
oolls OZ AUXILIARY-DEVICE-1De 
00116 03 AUX=FUNCTION PIC X. 
00117 03 AUX=DEVICE=NO PIC X. 
00118 02 DICE=OuT PIC XXXKe 
COPY oo119 O02 HDR-OUT PIC X(78), 
(109-117) | OUTPUT MESSAGE 00120 O02 TOT-LINE occurs 7 INDEXED BY Ie 
CONTROL 00121 03 CR-OuT PIC XxX 
HEADER 00122 03 TRH-OUT Pic X(15), 
00123 03 CTR-O0UT PIC Z7Z96 
00124 03 FILLER PIC XI%)e 
00125 03 TOT-oUT PIC $(519,99% 
00126 PROCEDURE DIVISION 
DESCRIBE 00127 USING Pel]-B lem-A WeA O-MaAe 
(118-125) OUTPUT 00128 BEGIN=PROCe 
MESSAGE 00129 IF opt = "ALLS 
TEXT 00130 THEN PERFORM RTN@ALL 
00131 ELSE PERFORM RTN-ONEs 
00132 MOVE DICE=CODE To DICE=0UT. 
00133 MOVE MSG"HDR TO HOR=OUTe 
00134 CALL *RETURN®, 
BUILD “TOTAL” 00135 RTN-ONE, 
(128-147) | OUTPUT MESSAGE 00136 MOVE SOURCE*TERMINAL=10 TO TRMe 
TEXT 00137 MOVE TRM“NUM TO REC=PTRe 
00138 ADD } TO REC=PTRe 
00139 CALL *GET? 
00140 USING DMOXAC XAC@=TRM RECH@PTRe 
00141 IF STATUS=CODE NOT ® ZERO 
00142 THEN GO TO ERR@OFFe 
TERMINATE 00143 MOVE CR TO CR-OUT CI)e 
(134) PROGRAM 00144 MOVE TRM TO TRM=OUT (1). 
NORMALLY 00145 MOVE XAC=CTR TO CTR-OUT b1)6 
00146 MOVE TRM=TOTAL TO TOT-OUT (1), 
00147 MOVE MIN@MSGeLEN TO TEXT@*LENGTH IN O-Mewe 





Figure B-17. Sample COBOL Action Program DMTOTE (Part 2 of 3) 
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(148-179) 


(150-154) 


(155-166) 


(167-171) 


(172-176) 


{177-179} 


(180-182) 


183 


BUILD 
“TOTAL ALL” 
MESSAGE 
TEXT 


READ 
TRANSACTION 


HEADER RECORD 


AND CLEAR 


ACCUMULATORS 


BUILD 
TERMINAL 
OUTPUT 
MESSAGE TEXT 


READ 
TRANSACTION 
RECORD 


BUILD TOTAL 
TERMINAL 
OUTPUT 
MESSAGE TEXT 


ACCUMULATE 

TRANSACTION 

AND PAYMENT 
TOTALS 


BUILD 
ERROR 
MESSAGE 


TERMINATE 
PROGRAM 
NORMALLY 





001468 
00149 
oo150 
00151 
00152 
00153 
00154 
oo1ss 
00156 
00157 
00158 
60159 
00160 
00161 
oole2 
00163 
00164 
00165 
00166 
00167 
00168 
oc169 
09170 
001t7)1 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
001890 
00181 
00182 
00183 
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RTN-ALL. 
MOVE | TO REC]PTRe 
CALL 'GET® ; 
USING DMOXAC XAC=HDR REC@PTRe 
IF STATUS@CODE NoT = ZERO 
THEN GO TO ERR-OFFe 
MOVE ZEROS TO XAC<TOT PAYeTOT. 
MOVE *TRM® TO TRMA@LITe. 
ADD 1 TO REC=PTRe 
PERFORM SUM-TRM 
VARYING 1 FROM 1 BY 1! UNTIL RECHPTR NOT < XACHF IK eTe 
MOVE DASH=LINE TO TOTaLINE (Ide 
SET 1 UP BY 1. 
MOVE CR TO CROUT (1). 
MOVE *TOTAL® TO TRM*OUT (J )o 
MOVE XAC*TOT TO CTR=OUT (I1)e 
MOVE PAY=TOT TO TOT*OUT (J )e 
COMPUTE TEXT*LENGTH IW OfM*A = MIN@HSGTLEN + 
MSG@LINE“LEN © REC@PTR: 
SUM=TRM. 
CaLuL *GET? 
USING DMOXAC XAC@TRM RECHpTRe 
IF STATUS=CODE NOT = ZERO 
THEN GO TO ERR@OFFe 
MOVE CR TO CReOUT tI). 
MOVE TRM“ID TO TRM@NUMe 
MOVE TRM TO TRM-OUT {Ie 
MOVE XAC@CTR TO CTReOUT (I). 
MOVE TRM*TOTAL To TOT-OuT (1), 
ADD xaC-CTR To XaC~TOTe 
ADD TRM=TOTAL TO PAY=TOTe 
ADD 1 TO REC=-PTR. 
ERR-OFF, 
MOVE ERR@MSG {STATUS=CODE) TO HDR=OUT, 
MOVE ERR@MSG@LEN TO TEXT@LENGTH IN OnnrAe 
CaLL *RETURN', 


Figure B~17. Sample COBOL Action Program DMTOTL (Part 3 of 3) 
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SIMPLE TRANSACTION IN COBOL: ANALYSIS 


CSCAN series analysis 


You may have noticed that in this series of action programs 
consisting of five separate transactions, each transaction 
contained only one action program. !n other words, one action 
program received one input message and issued one output 
message for each transaction. 


These action programs were chained together by placing the 
succeeding action program's transaction code itself into the 
output message issued by the current action program. In this 
way, control passed from one action program to another, 
establishing a sense of succession between the programs 
without actually moving values into the SUCCESSOR-ID and 
TERMINATION-INDICATOR fields of the PIB. This technique is 
effective for processing simple transactions in a series. However, 
there are situations that require more than one program to 
process a transaction. We call these dialog transactions. 
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DIALOG TRANSACTION IN COBOL: DESCRIPTION 











B.3. SAMPLE COBOL ACTION PROGRAMS PERFORMING A DIALOG 
TRANSACTION WITH EXTERNAL SUCCESSION (ACT 1 AND ACT 2) 


ACT1/ACT2 description The two action programs, ACT1 and ACT2, perform a dialog 
transaction. This transaction references two indexed files named 
STATE and CITY. The STATE file contains a record for each 
state. Each state record consists of a state name, state 
population, and capital city name. The CITY file contains a record 
for each city. In each city record is the city name, population, 
and state name. Assume for the purposes of this example that 
all city names in the CITY file are unique. 


The purpose of this transaction is to provide information about a 

Processing ACT1 state. Each time you enter the transaction code S, IMS 
associates it with the action program ACT1. In addition to the 
transaction code, you include a state name (Figure B-18, line O). 
ACT1 uses the state name you give to obtain a record from the 
STATE file. 



































® S ALASKA 

1 STATE STATE -POP CAPITAL 
2 

3 ALASKA 226,900 JUNEAU 
4 





CAPITAL-POP?[>>NO YES 





7, 0000 





The cursor (¥4) may appear at only one location on the screen at any one time. In this 
example, it also would have appeared after ALASKA when the operator entered the 
initial input message (line 0) and after NO upon transmission of the first output 
response built by ACT 1 (line 5). The start-of-entry character (>) may appear at 
multiple locations. 


Figure B-18. Sample Dialog Transaction with YES Option Taken 
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DIALOG TRANSACTION IN COBOL: DESCRIPTION 


Resulting output 


External succession 


‘rocessing ACT2 


Choosing NO option 


If the record exists, ACT1 responds by sending an output 
message to the terminal. The output message contains headers, 
the state name, population, and capital name plus a question 


asking if you want the capital’s population (Figure B-18, lines 


1-5). ACT1 moves output message headings (Figure B-21, lines 
16 and 17) and control characters (lines 12-15) from the 
working-storage section to the output message area. 


You can request capital city population or terminate the 
transaction. Start-of-entry ( [> ) and cursor (@) characters are 
positioned in the output message area so that: 


1. If you want to terminate the transaction without seeing 
capital population, press TRANSMIT. 


2. \f you want to see capital population, press TAB followed by 
TRANSMIT. 


Before succeeding externally to ACT2, ACT1 saves the capital 
city name in the continuity data area (lines 108 and 109). When 
ACT1 succeeds to ACT2, IMS passes the contents of this area 
to ACT2 (lines 124 and 125). To succeed to ACT2, ACT1 
moves a termination code of E for external succession to the 
TERMINATION-INDICATOR field (line 127). It also moves the 
name, ACT2, to the SUCCESSOR-ID field (line 128). 


When you choose the YES option, ACT2 obtains the CITY 
record for capital city named in the continuity data area (Figure 
B-22, line 92), builds an output message containing the capital 
population (Figure B-18, line 7 and Figure B-22, lines 97-99), 
and terminates normally with the CALL RETURN function. 


When you choose the NO option, ACT2 moves zero to the 
TEXT-LENGTH field in the output message area control header 
before terminating normally (Figure B-22, lines 93 and 94). 
Because ACT2 doesn’t provide an output message, IMS returns 
the standard transaction termination message to the source 
terminal as shown in Figure B-19, line 6. 
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DIALOG TRANSACTION IN COBOL: DESCRIPTION 












































S ALASKA 
STATE STATE -POP CAPITAL 
ALASKA 266, 000 JUNEAU 


CAPITAL-POP?[>>NO YES 
TRANSACTION COMPLETE 


Oouwrk WD = & 





Figure B—19. Sample Dialog Transaction with NO Option Taken 


Error handling Suppose you enter a state name that cannot be found in the 
STATE file. ACT1 builds an error message in the OMA (Figure 
B-21, lines 28 and 29) and moves the length of this error 
message to the TEXT-LENGTH field of the output message area 
control header to override the previous text length value (lines 
115, 130-133). The transaction terminates normally with a CALL 
RETURN function and IMS sends the error output message to the 
terminal as shown in Figure B-20, line 1. 





S ALASKA 
ERROR -STATE NAME INVALID 





Figure B-20. Sample Transaction with Error Message 


Compilations and General flowcharts for the coding in ACT1 and ACT2 action 

Howichans programs (Figures B-21 and B-22) appear to the left of the 
program code in these figures. Program line numbers in 
parentheses to the side of the flowchart boxes represent the 
lines of coding that implement the process described. 
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DIALOG TRANSACTION IN COBOL: ACT 1 PROGRAM 











LINE NO. SOURCE ENTRY 


OOGOl IDENTIFICATION OIVISION. 

OOUN2 PROGRAM-ID. ACTle 

GOUUS ENVIRONMENT DIVISION. 

OO00% CONFIGURATION SECTION. 

OOUGS SOURCE-COMPUTERe UNIVAC-0S3. 

QOO0U6 OBVECT-COMPUTER. UNIVAC-0S3. 

OO0G7 DATA DIVISION. 

UD008 WORKING-STORAGE SECTION. 

UOUU9 77 STATE PIC At7) VALUE *STATE*. 

OOOLO 77 ERROR-TEXT-LENGTH PIC 9(4) COMP-4 VALUE 34. 
00011 Ul LINE-O. 

00012 O02 OLE Pic VALUE ="10%e 
u0013 G2 PCAC Pic VALUE =°0S*. 


(1-10) HOUSEKEEPING 


DEFINE 
MESSAGE 
(11-15) LINE 
CONTROL 
CHARACTERS 


00014 O02 ROwW-o PIC VALUE =*"U0° 

oo015 O02 COLUMN-O PIC VALUE =*°0O0* 

00016 LINE-1-MSG~1A Pic VALUE "STATE STATE -POP 
00017 . CAPITAL*. 

o00u18 LINE-S-MSG-lA.} 

uoo19 E-1 PIC VALUE *CAPITAL-POP? °. 
00020 SOE Pic VALUE ="lE%e 

ooo021 E-2 PIC VALUE *NO YES*. 
oo022 ESc-1 P1C VALUE =*°27°. 

o0u23 HT Pic VALUE =°0S°*%. 

uous OLE Pic VALUE =°10°%. 

uoo2zs Fc Pac VALUE ="U2%.s 

o0026 ROw-5S PIC VALUE =*10°. 

00027 COLUMN~16 Pic VALUE ="O5%. 

00028 Q1 LINE-1-MSG-1B. 

uoo29 G2 €-1 PIC X26) VALUE *°ERROR - STATE NAME INVALID®. 
OOU30 LINKAGE SECTION. 

OOO3l Gl PROGRAM-INFORMATION-BLOCKe COPY PIBT4. 

00032 O02 STATUS-CODE PIC 9(4) COMP-4. 
00033 O2 DETAILEO-STATUS-CODE PIC 9(4) COMP-4, 
00034 O2 RECORD-TYPE REDEFINES DETAILED~STATUS-CODE. 
u0035 O03 PREDICTED-RECORD-TYPE PIC Xe 

0036 O3 DELIVCRED-RECURD-TYPE PIC Xe 

00037 O02 SUCCESSOR-ID PIC Xo). 

00038 O02 TERMINATION-INDICATOR PIC Xe 

uodgs9 O02 LOCK-ROLLBACK-INDICATOR PIC Xe 

o0080 O02 TRANSACTION-ID. 

o0vu41 O3 YEAR PIC 914) COMP-4. 
UbO42 u3 TODAY PIC 9(4) COMP-4,. 
00043 O3 HR-MIN-SEC PIC 99) COMP-4. 
oo044 DATA-DEF-REC-NAML PIC X(7)de 

0004s DEFINE D-FILE-NAME PIC X(T). 

udo4e STANDARD-MSG-LINE-LENGTH PIC 944) COMP-4. 
uous? STANDARD =MSG-NUMBER@-LINEDS PIC 914) COMP-4. 
coos WORK-AREALENGTH PIC 964) COMP-4. 
00049 CONTINUITY-DATA-INPUT~LENGTH PIC 914) COMP-4. 
00050 CONTINULTY-OATA~OUTPUT-LENGTH PIC 914) COMP-4. 
00051 WORK=AREA-INC PIC 9(4) COMP-~4. 
o0us2 CONTINUITY-DATA-AREA-INC PIC 914) COMP-4. 
u00S3 U2 SUCCESS-UNIT-ID. 

Uu00S4 O3 TRANSACTIUN-DATE, 

udUS5 O04 YEAR PIC 

UDUS6 O04 MONTH PIC 

00057 G4& TODAY PIC 

uoo5ss8 TIME-OF “DAY. 

oo0s9 O04 HOUR PIC 

uogue0 O04 MINUTE PIC 

udUel O04 SECOND PIC 

uou62 G3 UNI QUE~SUFFIX PIC 999. 

oooes SOURCE ~TERMINAL-CHARS. 

ooue4 U3 SOURCE-TERMINAL“-TYPE PIC Xe 

uooes O3 SOURCE-TERM-MSG-LINE-LENGTH PIc 944) 
G0U66 O3 SOURCE -TERM-MSG-NUMBER-LINES PIC 914) 
o0067 INPUT-MESSAGE-AREA. COPY IMAT4. 

ao068 G2 SOURCE-TERMINAL-Iv PIC X(4). 

uou69 B2 OATE-TIME-STAMP. 

00070 O03 YEAR PIC 9t4) COMP-4, 
uoo7. 03 TODAY PIC 9(4) COMP-4, 
uou7r2 US HR-MIN“SEC PIC 949) COMP-4. 
u0073 TEXT-LENGTH PIC 904) COMP-4. 
oouT4s AUXILIARY-Oev-Ip. 

uo07s US FILLER PIC Xe 

udU?6 OS AUX-DLEV-NO PIC x. 


DESCRIBE 
ERROR MESSAGE 
(16-29) AND OUTPUT 
MESSAGE 
CONSTANTS 


(30-66) 





COPY INPUT 
MESSAGE 
CONTROL 
HEADER 


(67-76) 





Figure B—21. Sample COBOL Action Program ACT1 (Part 1 of 2) 
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O2 TRANSACTION-CODE PIC X. 
O2 FILLER PIC Xe 
O2 STATE-NAME-IN PIC AC14). 
WORK“AREA. 
O2 STATE-NAME PIC A(14). 
O2 STATE-POP PIC 943). 
O02 CAPITAL PIC Aled). 
OUTPUT—MESSAGE-AREA. COPY OMA74. 
O2 DESTINATION-TERMINAL-ID PIC xX(4). 
O2 SFS-OPTIONS PIC x(2). 
O2 FILLER PIC xXt2). 
U2 CONTINUOUS-UUTPUT-CODE PIC xX(4). 
O02 TEXT-LENGTH PIC 944) COMP-4, 
O2 AUXILIARY~DEVICE-10. 
U3 AUX-FUNCTION PIC Xe 
O03 AUX~DEVICE~NO PIC Xe 
O2 LINE-U-OUT PIC Xt4). 
O2 LINE~-1-0uT. 
03 E1-OuT PIC x(39). 
G3 CONTROL-1} PIC Xt4)e 
O03 CONTROL-2 PIC x4). 
O2 LINE-3-0UT. 
O3 FILLER PIC XXe 
O3 STATE -NAME PIC AGl4). 
O3 FILLER PIC X(4)e 
O03 STATE-POP PIC 99,999 .99G96 
O3 FILLER PIC xX(4). 
O3 CAPITAL PIC AlZ5). 
03 CONTROL-3 PIC X(4). 
O3 CONTROL-4 PIC X(4). 
O2 LINE-S-OUT PIC Xte7). 
O1 CONTINUITY-DATA-AREA. 
O2 CAPITAL PIC AI25}~6 
PROCEDURE DIVISION USING PROGRAM~INFORMATION-BLOCK 
INPUT=MESSAGE~AREA WORK-AREA OUTPUT-MESSAGE~AREA 
CONTINUITY -DATA-AREAs 
GET-STATE-RECORD. 
CALL *GET*® USING STATE WORK=-AREA STATE-NAME-IN.} 
IF STATUS-CODE EQUAL 1 GO TO PROCESS-ERROR. 
BULILD~OUTPUT-MESSAGE. 
MOVE LINE-O TO LINE-U-OUT. 
MOVE LINE-1-MSG-1A TO £1-OUT. 
MOVE LINE-O TO CONTROL=-1 CONTROL-2. 
MOVE SPACES TO LINE-3-O0UT. 
MOVE CORRESPONDING WORK-AREA TO LINE~3-O0UT. 
MOVE LINE-G TO CONTRUL-3 CONTROL-4e 
MOVE LINE-S-MSG-1A TU LINE=S-OUT. 
SAVE-CONTINUITY-~DATA. 
MOVE CAPITAL OF WORK-AREA TO CAPITAL OF CONTINUITY-DATA-AREA. 
TERM“WITHEX TERNAL “SUCCESSOR. 
MOVE °E* TO TERMINATLON“INDICATOR. 
MOVE *ACT2U0* TO SUCCESSOR-IDe 
CALL "RETURN®. 
PROCESS-ERROR. 
MOVE LINE-0O TO LINE-U-O0UT. 
MOVE LINE-1-MS6-1B TO LINE-1-0OUT. 
MOVE ERROR=-TEXT-LENGTH TO TEXT-LENGTH OF QUTPUT~MESSAGE-AREAe 
TERMINATE -NORMALLY 
CALL *RETURN*. 


DESCRIBE 
INPUT 
MESSAGE 
TEXT 


(77-79) 


REQUIRED 
VALUES 
SAVE 
AREA 


(80-83) 


COPY OUTPUT 
MESSAGE 
CONTROL 
HEADER 


(84-92) 


DESCRIBE 
OUTPUT 
MESSAGE 
TEXT 


(93-107) 


DESCRIBE 
(108-109) DATA NEEDED 


BY “ACT2" 


(114-115) 


BUILD OUTPUT 
MESSAGE OR 
ERROR 
MESSAGE 


(116-125) 


TERMINATE 
PROGRAM 
(126-129) SUCCEEDING 
EXTERNALLY 
TO “ACT2” Figure B-21. Sample COBOL Action Program ACT1 (Part 2 of 2) 





BUILD 
(130-133) ERROR 
MESSAGE 


TERMINATE 
(134-135) PROGRAM 
NORMALLY 
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LINE NO. SOURCE ENTRY 


GQOCOi IOtNTIFICATION DIVISION. 

GOUD2 PRUGRAM-ID. ACT2. 

GO003 ENVIRONMENT OIVISION. 

OO0O# CONFIGURATION SECTION. 

UOGUS SOURCE-COMPUTER. UNIVAC-0S3. 
BOU06 OBJECT-COMPUTER. UNIVAC-U0S3. 
UOUO7T DATA DIVISION. 

UOUU8 WORKING-STORAGE SECTION. 

uoouU9 77 CITY PIC ACt7) VALUE ‘CITY. 
GOU1l1O O1 LINE=-1. 


(1-9) HOUSEKEEPING 





uooll 62 DLE-2 PLC X VALUE =°10° 
DEFINE 00u12 02 PCAC-2 Pic Xx VALUE =*05° 
(10-19) | MESSAGE LINE u0013 ROW-O-1 PIC x VALUE =*OO° 
CONTROL uouls COLUMN-0-1 PIC X VALUE =*00° 
CHARACTERS oou1s DLE~2 PIC X VALUE =*10° 
u0016 PCAC-2 Pic x VALUE =°05° 
0007 ROw-0-2 PIC x VALUE =*oO* 
00018 COLUMN-0-2 PIC x VALUE 2°00". 
00019 FILLER PAC Xx VALUE SPACES. 
UOUZO LINKAGE SECTION. 
UOUZ1 O1 PROGRAM-INFORMATION-BLOCKs COPY PIB74. 
uo022 02 STATUS-CODE PIC 944) COMP-4. 
(20-56) vous O02 DETAILED-STATUS-CODE PIC 9¢4) COMP=4. 
uoo24 02 RECORD-TYPE REDEFINES DETAILED-STATUS~CODE 
vou2s O03 PREDICTED-RECURD-TYPE PIC Xe 
uo026 O03 DELIVERED-RECORD-TYPE PIC Xe 
00027 02 SUCCESSOR~-10 PIC Xt6)0 
uooze U2 TERMINATLON-INDICATOR PIC Xe 
vou? O02 LOCK-ROLLBACK-INDICATOR PIC Xe 
o0usL 02 TRANSACTLON-ID. 
oo0s1 U3 YLAR PIC 9(4) COMP=4. 
uous U3 TODAY PIC 914) COMP-4. 
u0053 03 HR-MIN-SEC PIC 919) COMP-4. 
00034 DATA-DEF=REC-NAME PIC X(T). 
o0u35 DEF INEO-FILE-NAME PIC XtTd. 
0056 STANDARD-MSG-LINE-LENGTH PIC 9(4) COMP=4. 
u0037 STANDARD=MSG-NUMBER-LINES PIC 914) COMP-4. 
00038 WORK=AREA=LENGTH PIC 9(4) COMP-4. 
u0u39 CONTINULTY-DATA=iNPUT=LENGIH PIC 9(4) COMP-4, 
ugo4o CONTINULTY-DATA-OUTPUT-LENGTH PIC 9(4) COMP=4, 
uou4) WORK-AREA-INC PIC 9(4) COMP-4. 
uous2 CONTINULTY-ULATA-AREA-INC PIC 914) COMP-4. 
uo043 U2 SUCCESS-UNIT-ID. 
UduUs4s U3 TRANSACTION-DATE. 
o0u4s 04 YEAR PIC 
voo4e 04 MONTH PIC 
00047 04 TODAY PIC 
00048 TIME-OF -DAY« 
00049 Q4 HOUR PIC 
o0us0 O4 MINUTE PIC 
uous U4 SECOND PIC 
uous2 03 UNI QuE~SUFFIX PIC 999, 
u0053 SOURCE -TERMINAL~CHARS. 
00054 03 SOURCE-TERMINAL-TYPE PIC Xe 
COPY INPUT udusS U3 SOURCE-TERM-MSG=LINE-LENGTH PIC 944) COMP-4, 
MESSAGE 00056 U3 SOURCE-TERM-MSG-NUMBER-LINES PIC 9(4) COMP-4. 
(57-66) CONTROL ubUsT INPUT-MESSAGE-AREAs COPY IMAT4. 
HEADER 00058 G2 SOURCE-TERMINAL-Iv PIC Xt(4). 
yo0s9 02 DATE-TIME-STAMP. 
uoueo U3 YEAR PIC 944) COMP=4. 
aouel U3 TODAY PIC 9(4) COMP=4. 
0062 US HR-MIN-SEC PIC 9(9) COMP-4, 
DESCRIBE 00063 TEXT-LENGTH PIC 944) COMP-4. 
(67-70) INPUT u0064 AUXILIARY-DEV-ID. 
MESSAGE uoues O3 FILLER PIC Xe. 
TEXT UOL66 O3 AUX-UEV-NO PIC Xe 
u0067 FILLER 
ud068 NO-POP 
00069 FILLER 
REQUIRED uouTo YES 
ee Vatles oo071 WORK-AREAs 


aou72 O02 CITIES 
oou7s O2 CITY-POP 
ooo74 O2 STATE 


SAVE 


AREA 





Figure B-22. Sample COBOL Action Program ACT2 (Part 1 of 2) 
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DIALOG TRANSACTION IN COBOL 


COPY 
OUTPUT 
MESSAGE 
CONTROL HEADER 


(75-83) 


DESCRIBE 
OUTPUT 
MESSAGE 
TEXT 


(84-85) 


DESCRIBE 
DATA PASSED 
FROM 
“ACTI" 


(86-87) 


(91-92, READ “CITY” 
95-96) RECORD 


CLEAR 
“TEXT-LENGTH” 
(93-94) FIELD AND 
TERMINATE 
NORMALLY 


BUILD 
(97-99) OUTPUT 
MESSAGE 


TERMINATE 
(100-101) PROGRAM 
NORMALLY 





OUTPUT-MESSAGE-AREA. 
O2 DESTINATION-TERMINAL-10 
O2 SFS-OPTIONS 
O2 FILLER 
G2 CONTINUOUS-OUTPUT-CODE PIC xt4). 
O2 TEXT-LENGTH PIC 94) COMP-4, 
O2 AUXILIARY-DEVICE-1D. 
US AUA-FUNCTION PIC Xe 
U3 AUX-DEVICE-NO PIC Xe 
o2 t~1 PIC X¢10). 
O2 CAPITAL -PUP PIC 9,999s999e 
Ol CONTINUITY-DATA-AREA. 
O2 CAPITAL PIC Al25).6 
PROCEDURE DIVISION USING PROGRAM~INFORMATION-BLOCK 
INPUT~MESSAGE-AREA WORK*AREA OUTPUT-MESSAGE-AREA 
CONTINUITY~-DATA~AREA. 
CHECK~RESPONSEe 
IF YES EQUAL "YES* GO TO GET-CITY-RECORD. 
MOVE ZERO TO TEXT“LENGTH OF OUTPUT-MESSAGE-AREA. 
GO TO TERMINATE “NORMALLY. 
GET-CITY-RECORD. 
CALL *GET* USING CITY WORK~AREA CAPITAL. 
BUILD-OUTPUT-MESSAGE. 
MOVE LINE~-1 TO E-l. 
MOVE CITY-POP TO CAPITAL-POP. 
TERMINATE -NOKMALLY,. 
CALL "RETURN*. 


COPY OMA7T4. 
PIC Xt4). 





PIC XC2Z).6 
PIC XC2)6 


: ACT 2 PROGRAM 


Figure B-22. Sample COBOL Action Program ACT2 (Part 2 of 2) 
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SCREEN FORMAT SERVICES IN COBOL: DESCRIPTION 


B.4. SAMPLE COBOL ACTION PROGRAM USING SCREEN FORMAT 
SERVICES (JAMENU) 


JAMENU description 


JAMENU analysis 


Compilation and 
flowchart 





The JAMENU action program is the first of a series of programs 
that make up an entitlement accounting system. JAMENU 
processes a password entered as input from the terminal. If the 
password is valid, JAMENU displays a menu screen using screen 
format services. 


The operator then chooses the menu number of the action 
program he needs to perform the next operation on his file. If the 
password he enters is invalid, JAMENU displays an error screen 
and terminates. 


Figure B-23 is a compiler listing of the JAMENU action program. 
Because this program is one in a series of interrelated action 
programs, note that a_ special function call section (lines 
269-363) includes many more calls than JAMENU uses. Including 
a repertoire of these calls in each action program makes them 
available for any logic used in each procedure division of 
programs in the series. 


Also, in the working-storage section, all screen formats and 
successor-ids are identified enabling the program to reference 
any one of them, though it does not use all of them. This 
programming technique saves time particularly when a series of 
action programs can succeed differently to each other. 


A flowchart corresponding to the JAMENU action program 
appears to the left of the coding in Figure B-23. Program line 
numbers in parentheses near the flowchart boxes represent the 
lines of coding that implement the process described. 
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LINE NO. SOURCE ENTRY 


QCGCO1 IDENTIFICATION DIVISION, 
qnono2 
CNUCG3 PROGRAM-ID. JAMENU. 
OPONOG #REMARKSs PROCESS SIGNON + MENUs 
onotoss 
ooGCG6s THIS PROG2AM PROCESSES THE SIGNON AND SYSTEM/80 MENU 
vooro7s SCREEN FOR THE ENTITLEMENT ACCOUNTING SYSTEMs 
oocoo8s IF THE SIGNON IS FOUND TO BE VALID, THE MENU WILL BF 
Ono009* DISPLAYED. OTHERWISE, THE ERROR OVERLAY SCREEN WILL BF 
onceice DISPLAYED AND THE TRANSACTION TERMINATED. 
oocniie 
000012 
GCO013 ENVIRONMENT DIVISION, 
coonl4 
D00015 CONFIGURATION SECTION, 
OMGC16 SOURCE-COMPUTEP. UNIVAC-0S3. 
O00017 OBJECT-COMPUTER. UNTVAC-0583, 
oogonia 
GCOO19 DATA DIVISION. 
anco20 
Of0021 WORKING-STORAGE SECTION. 
o00022 77 CUST-FILENAME VALUF "CUSTMST". 
000023 77 SCTL-FILENAME VALUF *SYSCTL%, 
onco24 
Ono0z§ O1 SCREEN-FORMAT-IdS. 
ecol26 95 SF-MENU VALUE *JASHFNU 
000027 C5 SF-AD01 VALUE *JASADD! 
anoc2s CS SF-ADD2 VALUE *JAEADD?2 
ango29 05 SF-anp3 VALUE ‘JASADD? 
o00030 05 SF-CHG1 VALUE *JASCHGI 
000031 05 SF-CHG? VALUE *JASCHG? 
onon32 OS SF-CHG3 VALUE *JASCHG? 
ocoe33 OS SF-DELI VALUE *JAEDFL} 
of0034 MS SF-pI$! VALUE "JASDTS! 
o00035 m5 SF-LST1 VALUE "JASLST! 
c90036 M5 SF-WARI VALUE *JASWARI 
070037 05 SF~ERR1 VALUE *JAEPR 
onon3e O05 SF-TERM VALUE *JASTERM 
orol39 
GOGO4O VALIC-SUCCESSOP-IDS. 
cnooa. 5 MENU VALUF *JAMFNU® 
COpe42 CUST-ADD VALUF *JAADDI® 
ancoa3 CUST-CHG-1 VALUE *JACHG}? 
o0orgs CUST-CHG-2 VALUE *JACHG?* 
ocoo4s CUST-CHG-3 VALUF *JACHG?* 
GOOC46 15 CUST-DEL VALUE °JADFLI* 
oo0c47 CUST-DISPLAY VALUF "JADTSI® 
on0048 "5 CUST-LIST VALUE *JALST}® 
o50C49 *5  WS-ACTIVITY VALUE *JAWARI® 
onoose 
000051 WS-TABLES, 
co0es2 [5 MENU-TABLE« 
LAGoS2 16 «FILLER PIC X(9) VALUE *C1JAADCII's 
o7GN54 le FILLER PIC xt9) VALUE *C2UACHGII'. 
arGNss 1S FILLER PIC Xt9) VALUE *C3JACHG2I". 
o0056 1G FILLER PTC X(9) VALUE *C4JSACHG3T's 
oo0G57 15 FILLER PIC X(9) VALUE ""5JADELII’. 
uNGhSé 1D) FILLER PIC X(9) VALUE *96JADISII". 

e 

° 

e 

° 


(1-24) HOUSEKEEPING 


SCREEN 
(25-29) FORMAT 
LUST 


SUCCESSOR-ID 
LIST 


(40-50) 


{5 1-69) 


sCarse le FILLER FIC X¢9) VALUE *77UALSTII? 

vhGO6C tu) FILLER FIC X€9) VALUE *COjAWAPITI® 

u"GC61 lo FILLER PIC X€9) VALUE *S9OJAMENUN® 

O9U96e Yu FILLER PIC Xt9) VALUE *1UJAMENUT® 

ccore? 

coG764 MENU-TEL RFOCFINES MENU-TAPLE (CCURS if TIMES 

Jseuces TNDEXED SY MENU-TNOXs 

oronesb To MENU-SEL FIC 9(2)6 

JPST67 Yu MENU-NAME PIC X(6). 

Ltaoes lu MENU-ING PIC Xe 

GCcre? 

CCID TC eee ORR EE EER RHEE TERETE ES EERE REESE SERRE EES AERA AEERARAH 
OCCAh71« THIS IS THF FRR PROCESSING TABLE FOR RETRIEVING CPP 

Orgo7T2* MESSASES FEOM THE SYSTEM CONTROL FILE FOR DISPLAY 

CVs WITH THO OVEPL AY. 

CUCCTEOe setae SSRSHRKSTEKSE ETAT AT RE EH EES HSE SHAKES REET Ee eK EERE KEK 





Figure B—23. Sample Action Program JAMENU Using Screen Formats (Part 1 of 6) 
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uPCLTE ERO-STATUS-TASLE « 

vCO576 lo) FILLER PIC X¢4u) 

c5U077 VALUF  #TLSHOZSLEDILITU UWS ISSOLEVTITOSTLO INAV 
UcGC7TR 

SeCCrs : ERG-TASLE 
GAGG6C 

C7L°61 3 
orucs2 1a 
a GlB? ro NG 
yer 2A 

LCOPBS LINKSSE SECTION. 

CACORE WL PRASEAY-INFOCMATION-OLOCK. COPY PI5, 


DESCRIBE 
ERROR 
STATUS CODES 
AND TABLE 


PENEFINES ERO-STETUS-TABLE OCCURS 1G TIMES 

INDEYCD RY ERR-INDX 

aoee P-CQbE PIC G6 
R-KEY PIC XX. 

-t PIC 99 VALUE 2% 6 


Gru3a7 
SOGI6B TL INFUT-YESSEGE-ARERS 
(86) utU78S “5 IMB-PASS~1e 
urenge LL IMA-DICE 
e70n91 10) TMA-SIGNON 
stutg2 LS IMa-PASSuRP 
376792 TYA-SCPETNAQEC REDFFINES IMA-PASS-1e 
uteng4 }L &R-CUST-YEP DIC 
COPY ZPUPge 1, SR-MENU PIC 
INPUT LtUl96 LL SR-TPSMIT PIC 
(88) MESSAGE STLE97 to FILLET PIC 
HEADER DPSCGR T1 WGPA-APEA, 
argn99 7S IMS-PARAMETES-LIST. 
utGicr lL IMS-FILENAME Xt). 
s7C1ol lL IMS-FELOPD-ACER X(256 de 
Stulu2 lu THS-KEY KO1G) 6 
DESCRIBE ure1o3 lo IMS-FILE-POSITION Xe 
(89-97) INPUT 370138 12 IMS-ALSN COMP-4 SYNC, 
MESSAGE mgioF 1c IMS-SCREEN-ID PIC Xt), 
TEXT o7G106 15. SCPREFN-STZE PIC 9(4) COMP SYNCe 
otci07 ‘5 WA-CONTROL-KEYe 
aeoiga 15. CNTL1 PIC ¥(>). 
396139 1S CNTL2-3 PIC X4)e 
ne¢0110 12 CNTL23 REDEFINES CNTLZ-3. 
SPACE FOR uel 15 CNTL2 PIC 942d 
(98-106) FUNCTION CALL Sro112 15 CNTLZ PIC KXI2). 


PARAMETERS 070113 3 ERR-STATUS PIC 99% 


ono114 REFOPMAT-DATE, 

orcalisr 1. P-MONTH PIC oO9e 

uOOl1E 1G. P-DAY PIC 99, 

OCG117 1G P-yEAR PIC 994 

J0G118 ERF-FLAG PIC Xe 

0119 2e ERR VALUE *1° *%2* 
occi2c ®E SEL-ERO VALUE %7% 
cooi2i 8B EBLN-ERF VALUE "3%, 
U2CG122 86 PASSWRE-FROE VALUE °4%, 
oC6123 ’ SCPEFN-RECORDS 

orc124 1G SR-DaTE PIC 916). 
606125 1G. SR-TIMF PIC 9l6)e 
SP0l26 f SR-ERPR-TEXT PIC KIS 3). 
v0G127 o SG-STAT PIC K¢(5Sde 
ong12e PASSWRO-FEC. 

ufol2? 10 FILLER PIC X€2)- 
56013¢ 10) ~PASSWRD PIC X(4). 
670131 1G. PASSWRO~SEL PIC X€25). 
670132 10) PASSWRO-MENU-SEL RESEFINES PASSWRO-SEL 
636133 PIc X OCCUFS 25 TIMES INDEXED BY PASSWPD-INOY, 
o70134 lu FILLER PIC KCB). 
uMO13E/ 

O70136 f5 CUST-RFECORD, COPY CUSTMST.s 
620137 

970138 CS) SCTL-RFCORD. COFY SYSCTLe 

u90139 

etu14e 

oaeoi4)1 Ci CUTPUT-MESSAGE-AFTA, CGPY OMA. 


SPACE FOR 
RECORD CONTROL 
KEYS AND 
ERROR STATUS 


(107-113) 


SPACE FOR 
(114-122) | DATE AND ERROR 
FLAG VALUES 


SPACE FOR 
SCREEN RECORD AND 
ERROR TEXT, 
PASSWORD, 
CUSTOMER AND 
CONTROL RECORDS 


(123-140) 


COPY 
OUTPUT 
MESSAGE 
CONTROL HEADER 





(141) 


Figure B—23. Sample Action Program JAMENU Using Screen Formats (Part 2 of 6) 




















UP-9207 





SPERRY UNIVAC OS/3 B-39 
IMS ACTION PROGRAMMING IN COBOL AND BAL 





SCREEN FORMAT SERVICES IN COBOL: JAMENU PROGRAM 





DESCRIBE 
(142) INPUT MESSAGE 
TEXT 


DESCRIBE DATA 
PASSED FROM 
PROGRAM TO 

PROGRAM 


(144-160) 


INITIATE PROGRAM 
BUILD MENU OR 
ERROR SCREEN, 

SUCCEED TO 
JAMENU 


(176-233) 





uco142 cs 
utol4? 
Ofolya ¢ CONTINUITY-DATB-ARAe 
ato14s [5 CDA-PASSWRD Plo X(4). 
onaren °S CDOA-MENU-SEL PIC X25). 
SM Gl4a7 75 COA-PASSWRO-MENU-SEL = RENEFINES CDA-MENU-SFL 
CCO14E PIC yxy OCCURS 25 TIMES, 
60149 COA-CUST-“KEY. 
cso1sr 1G COA-CUST-NOR 
voO1s. COA-ACCT-CODE PIC X€4). 
620182 PASS-FLAS PIC X, 
ofo152 €8 PASS-THRU VALUE *1°"2°*39*HttE, 
GC6154 26 PASS1 VALUE 
gro1se PE PRSS2 VALUE 
orolse 65 PASS? VALUE 
oOC157 8&3 PASSH VALUE 
urg1ss8 PE PASSS VALUE $ 
urois9 5 COA-ETATUS-8YTE PIC Xe 
eto1et 5 COA-PPOCCRAM-NAME PIC X¢6)e 
oNG161/ 
§7O162 PROCEDURE DIVISION USING PROGRAM~INFOPMATTON-PLOCK 
wP1e? INFUT-MESSAGF-ARFA 
C7U164 WORK-ARE?P 
LO_lLe* OUT PUT-ME SSATE“APEA 
ofS166 CONTINUITY=DATA-BRE Re 
GOG167 MAIN-LOO° SECTION. 
CIG LOL SHH HE FFAS HEHEHE HH HHH HHH HHH HEH HHH HE DHEH HHH HEFE SHE HEHE HHH HHH H eset 
ot0169*" THE PASS FLAG IN THIS SETTICN TELLS THE PRAGPAM AT WHICH 
O3CI7o# POINT IMS HAS PETURNEE CONTROL OF THE OROCESSING TO THE 
COG1I71* PROGFAM A PASS 7 FLAG MEANS THE PROGRAM HAS ALREADY PUT 
OCTC172% OUT THE SCOEEN AND IS NOW FEAGY TO ACCEPT THF MATA FEOM 
UCPOL7TT* THAT SCREEN TO PPO0CESSe OTHERWISE THE OCROGRAM WANTS TO 
OFL1I74* OF THE INITIAL P®OCESSINC TC FUT OUT A SCREEN. 
DOG LTS AH Hee e He He HHH HHH HHH HHH HEHEHE HEHEHE HEHEHE HEHEHE HH HE HHH HEHE HHH t et 
ulOl76 WCO-PEGIN. 
whol? Te NOT PASS? 
UACITE CETFORM LOC-INITIALIZE 
uruLTS IF NG? FRE 
o7G18% PESFORM DiM=-SUTLO-SCRQEEN 
vFilel FUSE 
stu1es 
27G182 LSE 
Soc1ées CECFORM 25r-PEAG-SCREEN, 
aries PLOF GRAM EL T-QETURNS 
OTLIEF 
LOE LE TAH ete Hate Ht Hae eH HHH HHH HHH HHH HEHE HHH IEF HE HEHEHE HHH HFEF EHH He sot 
LOULSE® INITIALIZATION OF FITLOS AND FLAGS IS DONE HERE, 
MOL1ae* ALSO SMECKINS TS DONF TC SEE IF THE PROGPAM ENTETED 
LTC19T* FLOM A SIGN CNM CR wAS CALLED FROM ANOTHER PROGRAM 
LTGUSla ONLY IF FNTE® FROM A SIGN ON COES THE PROGRAM FETRIEVE 
S7C192*® JHE PASSWORD PECOIDe CTHES WISE IT IS CARRIED TO CHECK 
SNGL97%e VALICITY GF MENU STLECTIONG 
UID G UHHH He SHH HEHE HF aH HEHEHE HH HHH HHH HHH HH HHH HHH HET HH HHS et ass ses 
eOG19S YOM-INITIALIVE, 
GCOLSE MOVE SPACE TO IMS-KEY 
IMS-FILENAME 
SP-ERE-TEXT, 
#8 EdRSEERES: 
MOVE CORP P-TRANSACTION-DATE TO REFORMAT-DATE® 
TF COL-CROGPAM-NAME "QUAL LOW-VALUES 
MOVE IMA-PASS «PEC To CNTLc-3 
“GOVE ‘Fat To CNTLI 
MOVE SPACE TO IMS-RECORC-AREA 
MOVE SCTL-FILENAME TO IMS-FILENAME 
MOVE WwA-CONTROL-KEY TO IMS-KEY 
PERFOR™ SO2-GET 
ubo02c9 IF EFR 
eto2in MOVE *4° 
gno2ll ELSE 
0no212 MOVE IMS-RECORD-AREA 
605213 MOVE PASSWRD-SEL 
oro2r4 MOVE PASSWRD 
Vislths a3 MOVE MFNU 
GlO21E 


CMA~TEXT PIC X(™ErFG)., 


PIC 91E De 


PESFORM GFUP-TRP-MESSACE 


“ b! te-g o.2 
“Gye 338 


ERR-FLAG 


PASSWRO-REC 
CDA-MENU-SEL 
CDA-PASSWFDe 
CDA-PROGRAM-NAMF «© 


Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 3 of 6) 
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READ AND 
VALIDATE 
MENU 
SCREEN 


(237-244) 


VALID SELECTION 
SUCCEED TO 
CHOSEN ACTION 
PROGRAM OR 
LOGOFF 


(248-254) 


LOGOFF, 
BUILD 
TERMINATION 
SCREEN 


(259-267) 


FUNCTION 
CALL 
REPERTOIRE 


(269-337) 





DODZL Tw e eee ese Hee HHH HE HH HEHE FH HEH SEF HEHE HEHE EE HES HEED EHH HEHEHE HEH EH HS 
Of0218s THE MAIN PROCESSING AND SUILDING OF THE SCREEN OATS YS DONE 
OnG219# IN HERE. 

COD ZZOR FAH HE HOHE HHH HEHEHE HHH EHH EH EHH HHH HE HEH HEF EHH HEHE EHH ESOS HHH et 
GCO221 2uUC-EVILN-SCPEENe 

ocg222 MOVE IMA-SOURCE-TEOMINAL-ID 
onog223 MOVE SF-MENU 

ora224 MOVE ALL °o° 

oco22s MOVE REFORMAT-DATE 

690226 MOVE P-TYME-CF-DAY 

G00227 MOVE 12 

ono228 PERFORM £G5-8UILD, 

anG229 IF ERR 

070230 PERFORM 9NG-ERR-MESSASE« 
000231 MCVE MENU 

U00232 “Oye *°E* 

000233 

COO Z FU HHe HHH HHH HH HHH EEE EH HEHE HEHE EE ESE EH ES HHE HEE EES HEHE SESE HHH HEH HEHE 
OCO23S5* THE MENU SFLECTION VALIOITY IS CHECKED HERE 

DID 2 SERFS TH FHA SEH HEHEHE HEHEHE SE EH HEE AE HEE HEFT AD HAE AEE HHH EHH EHHEHESE FE HEY 
000237 255-READ-SCREEN. 

410238 IF COA-PASSWRD-MENU-SEL ¢(SR-"ENU) NOT EQUAL TO "I? 

006239 MOVE "2° TO ERR-FLAG, 

acu24er £RR 
3Py24) 

on0242 

OCG243 

c90244 

COL ZANS Mee ee Fete HHH HHH HEHEHE FE FEF HEHEHE DEES HEHE HEE HEE EEE EEE HEHEHE ES ESE SES 
CCC2]4ee IF MENU SELECTION IS VALI CONTPOL IS SET FOR NEXT STAGFe 
COU ZY THE HHH eee HEH HEH te aes a tH HEHE FH HEHEHE H HHH HEHEHE HH HEEFT EH Fete 
UTG242 2ET-SET=MENUe 

Gna249 MOVE MENU-NAME (SR-MENU) 
urazse MOVE MENU-IND (SP-“ENU) 
oCC?51 MOVE SR-CUST-NER 

onG252 MOVE °ce 

voc253 IF SR-MENU = 9 

cro2s4 PFRFOPM 270-LOGCFFE. 
aro25s* 

DOL 25 E WHE He HEHEHE HHH HHH EEE EHH ESE SED ED HEHE EHE EEE HEH HEHE ESE E HSE HOSS 
GOFG257# RusILO TLSMINATTON SC&FZEN 

TNT PSE MESH EHH HHH HEE HSE HEE SHE LEE FEF EF EEE FED ESE HEF E EE SHES ES ES EH ESE HESS 


3°C259 27°-LOGGOFF. 


OMA-DESTINATION-TERM-TD 6 
IMS-SCREEN-TDe 
SCREEN-RECOODs 

SR-DATEs 

SR-TIMEe 

SCREEN-SIZEe 


YO PIB-SUCCESSOR-Ing 
TO PI3B-TERMINATION-INDS 


PERFORM SUC-FRR-MESSAGE 


PERFORM 26°-SET-MENU, 


TO PIB-SUCCESSOR-ID 6 

TO PIB-TERMINATION-INDe 
TO CDA-CUST-NbP.o 

TO PASS-FLAG. 








o1G26C 
0cC0261 
3fC262 
C°0267 
O°G264 
cnGg268 
GCO266 
GCC267 


Of026eo/ 


UTC269 
C-G270 
S7G2T71 
utb272 
C9273 
OAD? 7T4 
20275 
uGG276 
c2G277 
USG27E 
ocuc7s 
Ldu28n 
oCG281 
GOC282 
U7C283 
GoG2e4 
eTG285 
GPG2BE 
6%C287 
aca2e8 
cnorse 
orc2goc 


MOVE IMA-SCURCE-TESMTNAL-I0 
MOVE SF-TEPM 

MOVE Jat. -*"* 

MOVE COR P-TRANSACTION-"aTe 
MOVE REFORMAT-OATE 

MGyE P-TIMF-OF-OAY 

MOVE 12 

PEPFCRM SuS-8UIL De 


IMS-CALLS SECTION. 


BOM SETL« 
CALL *SETL* 


EULDHOXT Te 
EXIT. 


FCI-CSETLe 
CALL ‘ESETL* 
IF PT8-STATYUS-C9O" TS SFEST 
MOVE *1* TS FRO-FLAG 
EGIL-EXIT. 
EXIT. 


PIR-STATUS-CCGE TS GREAT 
MOVE *1° Te ER®-FLAG 





TO GMA-DESTINATION-TFRYA-TH, 
TO IMS-SCRFEN-T0, 

TO SCRTEEN-RETOOD, 

TO REFORMAT-CATEe 

TO SR-DATE. 

TO S2-TIME, 

TQ SCREEN-SIZEe 


IMS-FILENAME 
IMS-FILE-POSITION, 


USING IMS-FILENAME, 
ER THAN © 


USTNE IMS-FILENAME 
IMS-RECQPD-AQES 
IMS-KE Ye 

FR THAN ° 





Figure B—23. Sample Action Program JAMENU Using Screen Formats (Part 4 of 6) 
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JUTGAGI) OXITe 
BlC292 
LPE2oT EC VHCETUP 
Stu294 CALL *TETUP® USING IMS-FILENAME 
ela ie Bal IMS-PECOPD-ATEA 
IMS -KiVe 
TF FIE-STATUS-CODT IS SPEATCR THan © 
“OVE *1* TO ERO-FLAG. 
CUrATKITe 
EXIT. 
FL uU-PUT, 
CALL °PUT® USTNG IM§-FILONAME 
IMS -RECORD-AREA, 
IF PIF-STATUS-COCE TS GREATER THAN © 
MOVE "2° TC ERR-FLAG, 
EU4-EXIT s. 
ExITe 


DAO SILOM He HH HHH EHH HHH HHH HHH EHH HH EHH HHH DESH HEHEHE ESE SESE EH HEE ESE HEH Se 
GOO311e CALL FOR MAIN SCREEN FOR PROGRAM 

ORG TL ZMH Hee HOHE H HHH ae ae HHH HHH HHH HHH EFEF EHH EH EES EFES ESE HEHE EEE HES HHS Se 
000323 £U5-RUILDs 

006714 CALL *BUILD® USING OUTPUT-MFSSAGE-ACESR 
CCG315 IMS-SCREEN-10 
090316 SCREEN-RE CORD 
0no317 SCREEN-SIZE 

utp31e8 SG-STAT, 

000319 IF PIB-STATUS-CODE IS GREATER THAN iu 

oro32c MOVE °3° TO EPR-FLAG. 

OCG321 SGS-EXIT. 

000322 EXTTe 

uCO3223 

COD SZ Ree et te PH HGH HH HHH HEH HEHE EHH SEE SESE SEF EH EES HEHEHE HEE ESE HHH E SESS 
OTCG32E* CALL FOR ERR OVERLAY SCREEN 

UNG S2O MHF ee Hee HH EHH HHH HH HEHEHE SHH HEHEHE HFEF HEE HEE HEE EHH HEHE HEHE SE 
000327 SGS-BUILD-ERR,. 

unc32e CALL *SuILt® USING CUTPUT-MESSASE-ADEA 
GCO329 IMS-SCREEN-ID 
cno330 SR-ERR-TEXT 

090231 SCREEN-STZE 

uCQ332 SGO-STATe 

000333 IF PIE-STATUS-CODE IS GREATER THAN oO 

ono334 MOVE *3° TO ERR-FLAG, 

090335 SUS-GLO-ERA-EXITe 

000336 EXIT. 

00337 

ONG33e SC6-REEUILD. 

006339 CALL *REBUILC® USING IMS-SCREEN-ID 
ooc34c IMS-RECORD-AREA, 
COO341 SUB-EXITe 

gn0342 EXIT. 

GOG343 

GCG344 SUT-RPETUPNe 

c70345 CALL *PETURN',. 

OFOT46 SLCT-EXIT. 

G3G347 EXIT. 

ocosz4e 

COG349 SCe-INSEPT. 

onG350 CALL SINSEPT® USING IMS-FILENAME 

uno351 IME-RECORD-APER 
G00352 IMS-KEYe 

000353 IF PIB-STATUS-CODS ITS GREATER THAN 7 

c30354 MOVE *1° TO ERR-FLAGe 

O9G3S& SCB-EXITe 

I90756 ExTTe 

uNGI57 

COO258 S99-SNAP.» 


FUNCTION 
(338-362) CALL 
REPERTOIRE 





Figure B—-23. Sample Action Program JAMENU Using Screen Formats (Part 5 of 6) 
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3PuUI59 MOVE *S* TO PIP -=TESMINATION-IND, 
g0u7%6et CALL *°SNAP® USING PROGRAM-INFORMATION-BLOCK COA-STATUS-8YTF, 
G2G361 S99-EXTT. 
UlL362 FXITe 
uUNGR63/ 
CPO364 EREORP-FROCESSING SECTION. 
CusesSe 
TUL FOGHF HEHEHE HH HEHEHE HHH HEHEHE EH EHH EHH EEE EE EHH EES ESE EEF HEHE SESE SED 
GCOI67* FRR PROCESSING 1S DONE HFRF. THE TYCE OF ERP IS 
O°C368* OLTEFMINED AND A SFASCH OF THE ERR TABLE IS MADE 
COC369* THE APPROPRIATE ERP MESSAGE IS RETRIEVED FFOM THE 
GOG37¢* «SYSTEM CCNTROL FILE AND DISPLAY TT ON THE OVERLAY 
CAC3T1*® FRR 8 TS ILLEGAL P4SS WORD ERR 9 IS TLLESAL MENU 
GIG372# SELECTION FOR PASSWORD OTHER FRAS CONFORM TO IMS 
GOG373* STATUS CRRORS, 
DID ZIG HHH HH HHH HEH HEHEHE HH HH HEHEHE HHH HFEF ESE HEE SHEESH SEES EEE ESE HE SE 
GCC37§ 9ON-ERR-MESSAGE, 





BUILD ERROR OCG3T6 MOVE SPACE TO IMS-RECORD-AREA 
SCREEN AND uOL777 IMS-FILENAME 
(375-401) OUTPUT ERROR ofu378 IMS-KEVe 
MESSAGE 5CG379 MOVE SCTL-FILENAME IMS-FTLENAMF, 
62U789 IF PASSWROH-ERR 
orose. MOVE 5S? PASS-FLAG 
o0c3682 MOVE @ ERR-STATUS 
GOU783 FLEE 
cCO784 IF SEL-FRPR 
TPL3BS “OVE 9 ERR-STATUS 
39366 FLSE 
o70787 MCVE PIB-STATUS~COLE EOR-STATUS 
oco7es MOVE "EM? TO CNTLLe 
320369 MOVE SPACE TO CNTL3s 
ocGien SiT ERR-INOX TO le 
SEL791 SEARCH ECR-TABLE 
GRGI92 AT END 
27G293 MOVE NC-FRS TS CNTL2 
aCG394 WHEN EPR-CODE (EPR-INOM) IS FQUAL TO EPR-STATUS 
uTU295 MOVE ESR-KTY CE RE-INOX) TO CNTIL2. 
CCO396 “OVE WA-CONTROL-KEY TI IMS-KFYe 
uPO397 PEPFORMY SU7-FET, 
uco7se MOVE IMS-RECORID-ARFA TS SCTL-RECORDe 
cCL399° MOVE ALL #€* TO SR-ESR~TEXT, 
c7O48Gn MOVE SCERR-TUOXT TO SR-ERQ-TEXT,. 
Gruen MOVE SF-ERO1 TO IMS-SCREEN-'De 
UCG4e? “OVE 5c TO SCPEENWSTIES 
Goose? MOVE SMA-SCUTCF-TESMINAL-I9 TD OMA-DESTINATION-TEPw-TD, 
C7u4s04 PEEFORM FCC-SUILN-FRE, 
crcags IF PASSS 
(405-411, TERMINATE b7GH CE MOVE MENU TO PIS-SUCCESSOR-IN 
185) PROGRAM OPG4u7 MOVE ‘NP TO PIB-TERMINATION=-IND 


uCGScr PLoS: 

aoo4ug9 MCVE MENU TO PIB-SUCCESSOR-ID 
ulGale MOVE °F® TO PIB-TERMINATION-IND 
ceo4l. MOVE #7 TO PASS-FLAGe 





Figure B-23. Sample Action Program JAMENU Using Screen Formats (Part 6 of 6) 
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JAMENU discussion The following discussion of the JAMENU action program 
assumes that you have already created a menu screen format 
called JA$MENU and filed it in the screen format file. Any line 
numbers referenced in this discussion refer to the code in the 
JAMENU action program, Figure B-23. Also, expansions of the 
program information block, input message area, and output 
message area cannot be seen in this listing; however, their fields 
may be referenced in the code (e.g., lines 406 and 407) and are 
available to JAMENU. 


Files used JAMENU uses two files (lines 22 and 23): 
1. CUSTMST file 
2. SYSCTL file 


Record types in The CUSTMST file contains customer information. The SYSCTL 
CUSTMST file file contains four types of records: 


1. Account access records (AA) 
2. Branch records (BR) 
@ 3. Error message text records (EM) 
4. Password records (PW) 
Each type record is identified by a 2-byte control key field. (See 
lines 108-112 and 129.) JAMENU accesses the SYSCTL file to 
validate passwords and retrieve error messages for display in the 


error message screen format. 


JAMEWU routines JAMENU performs five types of routines. It: 


-_ 


validates passwords; 
builds menu screen; 
validates menu selections; 


builds error screen; and 


ao -F © PM 


builds termination screen 
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The following general flowchart shows these main routines in the 
JAMENU program. 











VALIDATE 
PASSWORD 






VALIDATE 
MENU 
SELECTIONS 


VALID 
PASSWORD 









BUILD 
ERROR 
SCREEN 


RETURN TO MENU 









BUILD 
ERROR 
SCREEN 


SELECTIONS 
VALID 
? 

























SCREEN 


RETURN TO MENU 


PASS TO 
SUCCESSOR 









BUILD 
TERMINAL 
SCREEN 
















MENU SELECTION 
LOGOFF 
? 





TERMINATE 
PROGRAM 








BUILD 
TERMINATION 
SCREEN 


TERMINATE 
PROGRAM 


JAMENU GENERAL FLOWCHART 


Processing JAMENU Begin executing the JAMENU program by entering the transaction 
code, MENU, followed by the password. This is considered the 
sign-on or first pass through JAMENU. 






































MENU CP50 
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Processing password On the first pass, JAMENU accesses the SYSCTL file to validate 
the password entered at the terminal. If the password is valid, 
JAMENU saves all data pertinent to that password in the 
continuity data area (line 211-216), builds the menu screen (lines 
221-232), and terminates in external succession to _ itself 
(JAMENU). Menu screen JA$SMENU follows. 





















































FIRST PASS 








Menu screen 
06/23/81 06:49:28 JAMENU 02/09/81 


ENTITLEMENT ACCOUNTING SYSTEM 
SELECT ONE (1) OF THE FOLLOWING OPTIONS: 


1. ADD A NEW CUSTOMER RECORD. 
*2. UPDATE CUSTOMER NAME/ADDRESS INFORMATION. 
*3. UPDATE BRANCH CUSTOMER INFORMATION. 
*4,. UPDATE CUSTOMER ENTITLEMENTS. 
*5. DELETE A CUSTOMER RECORD. 
*6. DISPLAY CUSTOMER INFORMATION. 
7. LIST ALL ACCOUNTS (ON THE WORKSTATION). 
8. ENTER WORKSTATION ACTIVITY RECORDS. 
9. LOGOFF SYSTEM. 
*ENTER CUSTOMER NUMBER ----~- 
MENU SELECTION: -- 
PLACE CURSOR HERE TO TRANSMIT [-] 






































Building menu screen In the menu screen build routine (lines 221-232), the BUILD 
function call that actually calls the menu screen identifies the 
buffer address where IMS receives the screen format as the 
output message area (line 314); the format name as 
IMS-SCREEN-ID (line 315, defined on line 105); the variable data 
as SCREEN-RECORD (line 316, defined on lines 123-125); the 
data size as SCREEN-SIZE (line 317, defined on line 106); and, 
the output status as SG-STAT (line 318, defined on line 127). 


Notice, all the parameters you specify on the BUILD function 
must be defined in the work area. 


Unsuccessful BUILD if the BUILD function is unsuccessful (lines 319 and 320), 
JAMENU moves an error code of 3 to the ERR-FLAG lines 118 
and 121) indicating a build error. 
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Invalid password 


Password error screen 


Menu selection validation 


Succession and termination 
from table 


If the password is invalid on the first pass, JAMENU accesses 
the SYSCTL file via the EM record key for the error message 
record (lines 380-388), searches an error table to find the 
appropriate error message (lines 390-395), retrieves that error 
message (lines 396-398), builds the error message screen (lines 
399-404), and terminates in external succession to itself (lines 
408-411). The password error screen follows: 


























PASSWORD IS INVALID. ENTER AGAIN. 





On the second pass through JAMENU, the program tests the 
menu selection made, to see if it is accessible to the password 
specified in the first pass. If the menu selection is valid for that 
password, JAMENU performs 260-SET-MENU (lines 248-255). 
This moves the correct program name to process the menu 
selection to the successor-id and an | to the termination 
indicator. 


Notice here that the programmer has set up a menu table (lines 
52-62) containing not only the menu selection numbers and their 
corresponding action programs but also the termination indicators 
used to end each action program. The menu is redefined with 
selection numbers (MENU-SEL) in the first two bytes of each 
table field, the action program names are in the next 6 bytes 
(MENU-NAME), and, finally, the termination indicators are in the 
last byte of each field (MENU-IND). 


When the program moves the successor-id and termination 
indicator to the program information block (lines 248-250), it 
moves the menu name indexed by the menu number entered at 
the terminal. JAMENU picks up the correct program name for the 
successor-id by using this index value to reference the first two 
bytes of the menu table entry. Likewise, JAMENU moves the 
termination indicator value to the program information block by 
using the index value to reference the last byte of the menu table 
entry chosen. 


Redefining the menu table (lines 52-68) saves coding by making 
three types of data accessible in one table: the menu selection 
numbers, action program mnames_ for successor-ids, and 
termination indicators. 
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Process invalid menu If the menu selection is invalid, JAMENU moves code 2 indicating 

selection selection error to ERR-FLAG (lines 237-241), builds the menu 
selection error message screen (lines 375-411), and succeeds 
externally to itself. 


Several tests occur in the beginning error message building 
routine. The first separates password errors from menu selection 
errors and function call errors (lines 380-387). 


Password error For a password error, JAMENU places code 5 in the pass flag to 
force the normal termination of the transaction and moves 8 to 
the work area location, ERR-STATUS (lines 380-382). 


Menu selection error For a menu selection error, JAMENU moves a 9 to ERR-STATUS 
in the work area (lines 113, 384, and 385). This code 
corresponds to one of the values 01 through 10 contained in the 
first two bytes of each table entry in the ERR-TABLE. These 
leading two bytes in each table entry also correspond to the 
index value being used to search ERR-TABLE (lines 75-83). Thus, 
when the value in ERR-STATUS equals the value in the first two 

Obtaining error message bytes of an ERR-TABLE entry, JAMENU moves the contents of 

record ERR-KEY (the last two bytes in the corresponding ERR-TABLE 
entry) to the record key area used to retrieve that error message 
record from the SYSCLT file (lines 394 and 395). 


The following diagram illustrates the ERR-TABLE, its index 
(ERR-INDX), and the way JAMENU uses the value in 
ERR-STATUS to find the ERR-KEY value in the table by searching 
ERR-TABLE for the error code (ERR-CODE) that matches the value 
in ERR-STATUS. 


ERR-STATUS ERR-TABLE (ERR-INDX) 





ERR-CODE ERR-KEY 
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Example of ERR-TABLE 
search 


Process valid menu 
selection 





JAMENU clears the work-area locations (lines 376-378). It 
moves the SYSCTL file name to the work area file name to 
prepare for retrieval of the SYSCTL record. This record contains 
the ‘EM’ prefix, the error message number to be sent to the 
screen, and the error message text (line 379). 


To find the appropriate error message corresponding to the 
password error menu selection error, or other function call error, 
JAMENU searches the table, ERR-TABLE (lines 390-395). If it 
finds no corresponding error code, it moves a message number 
of 25 (line 83) to the key field (CNTL-2, line 395) used to call the 
corresponding record from the SYSCTL error message file (lines 
396 and 397 and 284-289). 


If, for example, JAMENU finds an O9 error code (lines 394 and 
395), JAMENU uses error message number O2 from the 
ERR-TABLE (see ERR-TABLE diagram and coding line 77) as a 
key to locate the corresponding error message text in the 
SYSCTL file (lines 102, 107-112, and 396 and 397). 


When JAMENU retrieves the SYSCTL error message (EM) record, 
it uses this message number to locate the error message text 
immediately following the O2 error number on the SYSCTL 
record. JAMENU then uses this message text in building the error 
message screen. 


Notice in lines 398-404, including lines 327-334, that JAMENU 
clears the screen error text area to receive the error message 
text from the SYSCTL file; identifies the terminal to receive the 
error message; transmits the message; and terminates in external 
succession to itself. If a build error occurs, JAMENU sets the 
error flag to 3 and succeeds externally to itself. 


If the menu selection including customer number is_ valid, 
JAMENU executes another short routine (260-SET-MENU, lines 
248-254) that passes control to the appropriate action program 
to process the menu selection. This routine also checks for a 
logoff menu selection (9) that builds the termination screen 
similarly to the way JAMENU built the error message screen 
(lines 259-267). Successor programs selected from the menu 
perform file operations required. When processing is complete, 
control returns to the JAMENU program via immediate internal 
succession and the terminal operator again receives the menu 
screen to enter another selection. 




















UP-9207 SPERRY UNIVAC OS/3 B-49 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


OUTPUT-FOR-INPUT QUEUEING IN COBOL: DESCRIPTION 


B.5. SAMPLE COBOL ACTION PROGRAM PERFORMING OUTPUT-FOR-INPUT 
QUEUEING (BEGIN1) 


BEGIN1 menu selection The BEGIN1 action program (Figure B-24) initiates a continuous 
Output print transaction at a terminal other than the source 
terminal. (See Figure B-25 for an action program performing 
continuous output.) To do this, BEGIN1 uses output-for-input 
queueing. By placing the output-for-input queueing function code 
into the AUX-FUNCTION field of the output message area header, 
BEGIN1 queues its output message as input to a different 
terminal. 


The program also issues messages to the source terminal 
operator telling him whether the output message was 
successfully or unsuccessfully delivered to the destination 
terminal. 


Processing BEGIN1 When activated at the source terminal, BEGIN1 expects an input 
message in the following format (lines 61-65): 


BEGIN dest-terminal text 


@ where: 


BEGIN 
Is the 5-character transaction code the terminal operator 
enters to activate BEGIN1. (BEGIN should also appear in 
the configurator TRANSACT section). 


dest-terminal 
Is the 4-character terminal-id of the destination terminal 
where the continuous output print transaction is 
initiated. (Assign this same terminal-id in the ICAM 
network definition.) 


text 
Is the alphanumeric text entered by the source terminal 
Operator. This text is the input message expected by 
the print transaction that performs continuous output at 
the destination terminal. It must begin with the 
transaction code that causes scheduling to initiate the 
transaction. 


Compilation and flowchart A flowchart describing the corresponding lines of BEGIN1 code is 
to the left of Figure B-24. 
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LINE NO» SOURCE ENTRY 


M0001 IDENTIFICATION DIVISION. 
UDLUZ PROUGRAM-I10. BEGINI. 

UGO03 ENVIRONMENT OIVISION. 

U9U04 CONFIGURATION SECTION. 

UOOOS SOURCE-COMPUTER. UNIVAC-0S3. 
UDU06 OBJECT-COMPUTER. UNIVAC-0S3. 
.UOO007 DATA OIVISION. 

UOUUB WORKING-STORAGE SECTION. 
B0c09 C1 DICE-SEQ. 


(1-7) HOUSEKEEPING 





Scaue 00010 02 DICE-CODE PIC VALUE 
es RIED BECE uool1 02 FUNC-CODE Pit VALUE 
Snice onoi2 02 Y-cooRD PIC VALUE 
00013 D2 x-COORD PIC VALUE 
G0014 LINKAGE SECTION. 
U0015 01 PROGRAM-INFORMATION-SLOCK. CuPY PIBT4. 
00016 02 STATUS-CODE PIC 914) COMP=4. 
oou17? 02 DETAILED-STATUS-CODE PIC 914) COMP-4. 
00018 02 RECORD-TYPE REDEFINES DETAILED-STATUS-CODE. 
(14-50) aoyi9 03 PREDICTED-RECURD-TYPE PIC 
vooz0 03 DELIVEREO-RECORD-TYPE PIC 
uoo21 SUCCES SOR-1D PIC 
youz2 TERMINATION-INDICATOR PIC 
oouzs LOCK-ROLEBACK-INDICATOR PIC 
uous TRANSACTION-ID. 
voozs U3 YEAR PIC 9¢4) COMP-4. 
uouz6 a3 TODAY PIC 9(4) COMP=4. 
00027 03 HR-MIN-SEC PIC 919) COMP-4. 
vo0z8 DATA-DEF-REC-NAME PIC X(T). 
00029 DEF INE O-FILE-NAME PIC X(T De 
uousU STANDARU-MSG-LINE-LENGTH P1C 914) COMP-4. 
u0u3 STANUARD-MSG-NUMBER-LINES PIC 9(4) COMP=4. 
uous2 WORK -AREA-LENGTH PIC 944) COMP=4. 
uouss CONTINULTY-DATA-INPUT-LENGTH PIC 9(4) COMP<4, 
00034 CONTINULTY-DATA-OUTPUT-LENGTH PIC 9(4) COMP-4. 
uo035 WORK-AREA-1NC PIC 94) COMP=4. 
uou3s6 CONTINUITY-VATA-AREA=INC PIC 9(4) COMP-4. 
00037 U2 SUCCESS-UNIT-1D. 
u0u38 03 TRANSACTION-DATE. 
uou39 U4 YEAR PIC 996 
uous ‘04 MONTH PIC 996 
gous) us TODAY PIC 99. 
00042 TIME-OF -DAY. 
U00483 U4 HOUR PIC 99, 
vous 04 MINUTE PIC 99. 
o0045 U4 SECOND PIC 99. 
UOU4s6 U3 UNIQUE-SUFFIX PIC 999-6 
uous? SOURCE -TERMINAL-LHARS« 
uause 03 SOURCE-TERMINAL-TYPE PIC Xe 
uous U3 SOURCE-TERM-MSG-LINE-LENGTH PIC 9(4) COMP-4. 
uouso 03 SOURCE-TERM-MSO-NUMBER-LINES PIC 944) COMP-4. 
uo05) INPUT-MESSAGE-AREA. COPY 1MAT4,. 
uous2 02 SOURCE-TERMINAL-ID PIC XU). 
CORY ANP 00053 G2 DATE-TIME-STAMP. : 
(51-60) DES 2nCe uous4 U3 YEAR PIC 914) COMP=4, 
CONTROL uouss U3 TOUAY PIC 914) COMP=4. 
HEADER o0US6 . U3 HR=-MIN-SEC PIC 919) COMP-4,. 
u00s7 02 TEXT-LENGTH PIC 9(4) COMP-4. 
uguss O2 AUXILIARY-DEV-ID. 
uous9 us FILLER PIC Xe 
voose U3 AUX-DEV-NO PIC Xx. 
uouel 02 TRANS-COVE PIC X5)6 
vo062 D2 FILLER PIC Xe 
ei uoue3 02 DEST-TERM PIC X(4). 
(61-65) ess be uo064 02 FILLER PIC Xe 
uogues O2 TEXT-AREA PIC xt(29}). 
TEXT onu6ee WORK-AREA. 
b0067 G2 DUMMY PIC Xe 
O0uU6s OUTPUT-MESSAGE-AREA. COPY OMAT4. 
oo0e9 02 DESTINATION-TERMINAL~I1D PIC X14). 
COPY OUTPUT vouro Q2 SFS-OPTIONS PIC X(Z). 
(68-76) MESSAGE uoo7l O2 FILLER PIC Xt2)e 


uoo72 O2 CONTINUOUS-OUTPUT-CODE PIC Xt4}e 


CONTROL 
HEADER 





Figure B-24. Sample Action Program BEGIN1 Using Output-for-Input Queueing 
(Part 1 of 2) 
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TEXT-LENGTH PIC 914)  COMP<4. 
AUXILIARY-DEVICE-iD. 
U3 AUX-FUNCTION PIC Xe 
U3 AUX=DEVICE-NO PIC X. 
DESCRIBE SEND-MSG. 
OUTPUT O03 OUTPUT-TEXT PIC X(291. 
(77-79) ReSSURE u3 FILLER PIC X(14)6 
TEXT BEGIN-MSG REOEFINES SEND-MS6. 
U3 CURSOR-1 PIC Xt4De 
03 MSG-1 PIC X(30). 
U3 TERM=NAME PIC X(4).6 
03 FILLER PIC X45). 
DESCRIBE ERROR-MSG REOEFINES SEND-MSG. 
QUTPUT-FOR- CURSOR=2 PIC XU). 
(80-84) INPUT MSG-2 PIC X(35)6 
TEXT ERROR-COVE PIC Z2Z2.6 
PROCEDURE DIVISION USING PROGRAM-INFORMATION-BLOCK 
INPUT-MESSAGE-AREA 
WORK-AREA 
OUTPUT=MESSAGE-AREA. 
oe MOVE-MESSAGE. 
(85-88) aecence MOVE DEST-TERM TO DESTINATION-TERMJNAL-ID. 
ra SUBTRACT 11 FROM TEXT-LENGTH IN INPUT-MESSAGE-ARLA 
GIVING TEXT-LENGTH IN OUTPUT—MESSAGE~AREA 
MOVE *1* TO AUX-FUNCTION. 
MOVE TEXT-AREA TO OQUIPUT-TEXT. 
ae CALL "SEND® USING OUTPUT-MESSAGE-AREA. 
Boren IF STATUS-CODE NOT EXUAL TO 0 GO TO ERRUR=PROC. 
espa MESEARE FOR MOVE DICE-SEQ TO CURSOR~1. 
NPE MOVE *TRANSACTION BEGUN AT TERMINAL ° TO MSG-2 
QUEUEING MOVE DEST~TERM TO TERM~NAME> 
MOVE 42 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA® 
TERMINATE -ROUTINE« 
MOVE LOW-VALUES TO DESTINATION-TERMINAL“ID. 
MOVE LOW-VALUE TO AUX-FUNCTION, 
me MESSAGE MOVE °N* TO TERMINATLON-INDICATOR« 
(105-107) © SOURCE CALL *RETURN's 
TERMINAL ERROR-PROC. 
SCREEN MOVE DICE~SEQ TO CURSOR-2- 
MOVE *TRANSACTION NOT BEGUN UUt TO ERROR * TO MSG-2. 
MOVE DETAILEU-STATUS=CODE TO ERROR=CODE. 
MOVE 47 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
(108-109) pede GO 10 TERMINATE-ROUTINE. 
Figure B-24. Sample Action Program BEGIN1 Using Output-for-Input Queueing 
(Part 2 of 2) 
BUILD 
(110-115) ERROR 


MESSAGE 
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Setting output-for-input 
queueing 


Successful SEND 


Queueing error 


Successful SEND message 


When BEGIN1 is activated, the MOVE-MESSAGE routine forms 
an output message that is queued as input for the destination 
terminal. Line 94 places the destintation-terminal named in the 
input message into the output message header. Lines 95 and 96 
specify the length of the output message, including four bytes for 
the TEXT-LENGTH field. Line 97 sets the AUXILIARY-FUNCTION 
field of the output message area header to the value (X‘C9’ or 
C'l') that directs IMS to queue the output message as input for 
the destination terminal. In line 99, the SEND function transmits 
the output message to the destination terminal. 


If IMS encounters no errors in executing the SEND function, the 
operator of the originating terminal receives a message indicating 
that the print transaction was successfully queued at the destination 
terminal. Lines 101 and 102 provide the screen positioning and text 
of the message sent to the operator of the originating terminal. Line 
106 sets the DESTINATION- TERMINAL-ID field of the output 
message area header to binary O and thus ensures that this message 
is sent to the source terminal. Line 107 ensures that this message 
is sent to the UNISCOPE screen instead of to the communications 
output printer (COP). 


BEGIN1 terminates normally without succession (lines 108 and 
109) and the source terminal is freed for other interactive use. 


On the other hand, if IMS encounters an error in queueing the 
message output by BEGIN1 as input to the destination terminal, 
the ERROR-PROC routine (line 100 and 110-115) formats an 
error message for output to the originating operator, and BEGIN1 
terminates normally (lines 108 and 109). The output message is 
dequeued. The operator, depending on the nature of the error, 
may reenter the original input message. 


Although the text of the message sent to the source terminal on 
successful return from the SEND function (line 102) states 
“TRANSACTION BEGUN AT TERMINAL’, this may not be true. All 
that actually occurred was that the output message was 
successfully queued as input from the destination terminal. If the 
transaction code it contains is invalid, however, or some other 
error intervenes, the print transaction does not begin. IMS does 
not report such occurrences to the originating action program, 
but to the destination terminal. 
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BEGIN1 analysis Remember, the purpose of BEGIN1 is to initiate a transaction at 
another terminal by sending a transaction code in the output 
message it queues as input to the destination terminal. Suppose 
the terminal operator enters this input: 


BEGIN TRM5 PRINT ORDFILE 5732468 TRM1 COP 


Initiating transaction The MOVE statement on line 98 places this input into the output 

at another terminal text area. The message entered by the terminal operator contains 
the transaction code needed to start the transaction at the 
destination terminal. 


BEGIN1 redefines the output message text area to handle both a 
successful and an unsuccessful SEND operation. 


Unsuccessful SEND if the SEND function is unsuccessful, BEGIN1 positions the cursor 

function and moves the unsuccessful SEND message text to the output 
text. In this case, the source terminal operator receives the 
message, 


TRANSACTION NOT BEGUN DUE TO ERROR 0604 


By examining the status and detailed status codes in Table D-4, 
you discover the reason for the error: the destination terminal or 
auxiliary device was invalid. 


Successful SEND If the SEND function is successful, BEGIN1 positions the cursor 
function and moves the successful SEND message text to the output text. 
The source terminal operator then receives the message, 


TRANSACTION BEGUN AT TERMINAL TRM5 


at his terminal (lines 101-104) and BEGIN1 terminates normally. 


When the TRM1 operator receives the successful SEND 
message, the program, PRINT, begins processing the ORDFILE 
order number 5732468 at TRMS5 and sends continuous output 
from the PRINT program to a communications output printer 
attached to TRM5. 


Initiating continuous Most output-for-input queueing applications initiate a continuous 

output output transaction at another terminal, to free the source terminal 
for further interactive processing. The continouous' output 
program initiated by the source terminal operator in the message 
entered on the BEGIN transaction was PRINT. 


The PRINT action program showing how continuous output is 
handled follows in B.6. 
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B.6. SAMPLE COBOL ACTION PROGRAM PERFORMING CONTINUOUS 
OUTPUT WITH. DELIVERY NOTICE SCHEDULING (PRINT) 


PRINT description Figure B-25 illustrates a compiler listing of a sample COBOL 
action program, PRINT with corresponding flowchart. The PRINT 
program: 


m Prepares three types of output messages by processing 
customer order information entered at the terminal against 
an indexed file. 


m Lists these messages as continuous output at the originating 
terminal. (If the parameter, COP, is included in the initial input 
message, the output from PRINT is sent to a communications 
Output printer.) 
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LINE NO} SOURCE ENTRY 


UOUOL IDENTIFICATION OIVISION. 

UOO0D2 PROGRAM-I0. PRINT. 

UODUO0S ENVIRONMENT OIVISION, 

UDUO04 CONFIGURATION SECTION. 

QOU0S SOURCE~COMPUTER. UNIVAC-0S3. 

UDLO6 OBYECT-COMPUTER. UNIVAC-US3. 

UuOCO? DATA DIVISION. 

UBU0B WORKING-STORAGE SECTION.» 

udUU9 77 POS-GE VALUE "G*. 

uOUl0 77 SUCCESSFUL -UEL-NOTICE VALUE ="Cl*. 

YUOOll UL TOTAL-POSe 

uoul2 O2 VICE-TP VALUE =*°10°. 

uouis O2 FUNC~TP VALUE =°O4", 

ogol4 O2 Y-TP VALUE =*0O0°. 

uouls O02 x-TP VALUE =*33°. 

UUU1L6 HEADER-LINES. 

utol7 G2 ORDER-LINE. 

uo018 O3 HOME ~POS-CLEAR. 

uouly OS OICE-HPC PIC VALUE = 

udgu2z0 OS FUNC-HPC PIc VALUE = 

ududl OS Y¥-HPC PIC VALUE = 

udu22 OS X-HPC PLC VALUE 

O0u235 MIDOLE-COL-POS. 

oo024 OS OICE-mcP PIC VALUE = 

u0u2s O5 FUNC-mCP PIC VALUE 

u0u26 O05 Y~mMCP PIC VALUE 

ulud? OS x-mcP PIC xX VALUE = 

oou2s8 P-ORDER-HEAD PIC x¢10) VALUE 

gooey P-ORDER-NO PIC 

000308 NEWLINE~3. 

uQus2 0S DICE-N3 PIC 

UuduUSsS2 OS FUNC-N3 Pic 

oous3 OS Y¥rn3 Pic 

oous4 OS X-N3 PIc 

uouss MAIL-LINES. 

u0us6 U3 P-NAME ~ PIC 

u0u37 U3 NEWLINE-A. 

o0u36 US OICE-NIA PIC 

udus9 OS FUNC=N1A PIC 

u0u40 O5 Y-NLA PIc 

oou4l OS X-N1LA PIC 

Oou4s2 PrAUVDR PIC 

oo043 NEWLINE 8. 

udus4 US DICE-N18 PIc 

UOU4S US FUNC-N18 PIc 

UdU46 O5 Y-N1B8 PIC 

oouUs7 OS X-N18 PIC 

Oou4ss P-CITY Pic 

ooo49 P-2IP PIC 

uausd NEWLINE-2e 

uo0>i OS DICE-N2 PIC VALUE =°10%. 

un0s2 OS FUNC-N2 PIC VALUE =*O4*. 

uouss OS Y-N2 Pic VALUE =*O1*. 

unUS4 O5 X-N2 PIC VaLUE ="00°. 

uQuss HEADING-LINE. 

vouS6 U3 PRODUCT-HEADING PIC 

uousT VALUE ° PRODUCT 

o0058 U3 UNIT-COST-HEADING PIC x11) 

ugUS9 VALUE °UNIT-COST *%e 

UudU6D 03 AMOUNT-HEADING PIC x¢8) 

u0061 VALUE "AMOUNT °*%. 

UQUb62 O03 SUBTOTAL ~HEADING PIC x10) 

Uu0UoS VALUE *SUBTOTAL °. 

UOU64 US SPACING PIC x(3) VALUE * *e 

udubS U3 TOTAL=HEAOING PIC x(8) VALUE * TOTAL 

00066 Q3 NEWLINE-Co 

uoue7 US DICE-wic PIC VALUE =*1U0°. 

Goues US FUNC-NIC PIC VALUE =*O4*, 

OOUb9 U5 Y-NIC PIC VALUE ="O0°. 

uoU7U O05 X=-NIC PLC VALUE =*OU*. 

UOO7T1 Ul ERROR-POSITION. 

uud72 OICE-EP PIc VALUE =*lU*. 

uou7TS FUNC-EP PIC VALUE ="°Ol*. 
° 


(1-10) HOUSEKEEPING 


DESCRIBE OUTPUT 
MESSAGE HEADERS 
(11-75) AND 
DICE CONTROL 
CHARACTERS 





OoOU7T4 Y-EP PIc VALUE 
oours x-EP Pic VALUE =°0OO0* 





Compilation and flowchart Figure B-25. Sample Action Program PRINT Performing Continuous Output 
(Part 1 of 6) 


UP-9207 SPERRY UNIVAC OS/3 B-56 


IMS ACTION PROGRAMMING IN COBOL AND BAL 
CONTINUOUS OUTPUT IN COBOL: PRINT PROGRAM 











UOUTS& LINKAGE SECTION. 





UOU77T Ul PROGRAM-INFORMATION-sLOCKe COPY P1B74. 
uo078 02 STATUS-CODE PIC 9(4) COMP-4. 
uo079 G2 DETAILED-STATUS-CODE P1C 9(4) COMP-4. 
vous U2 RECORD-TYPE REDEFINES DETALLED-STATUS-CODE. 
(76-112) COPY uous) O3 PREOICTED-RECORD-TYPE PIC 
PIB uDUus2 D3 DELIVERED-RECURD-TYPE PIC 
u0083 SUCCES SOR-ID PIC 
uous TERMINATION-INUICATOR PIC 
uouss LOCK-ROLLBACK-INVICATOR PIC 
uous TRANSACTION-ID- 
u0087 U3 YEAR PIC 9(4) COMP-4. 
UBUB8 u3 TOUAY PIC 9(4) COMP-4,. 
vouB9 U3 HR-MIN-SEC PIC 9(9) COMP-4. 
uouyo DATA-DEF-REC-NAME PIC X(T). 
uou91 DEFINE D-FILE-NAME PIC X(T). 
uvov2 STANDARD-MSG-LINE-LENGTH PIC 9(4) COMP-4. 
uous 3 STANDARD-MSG-NUMBER-LINES PLC 914) COMP-—4. 
uouy4 WORK-AREA-LENGTH PIC 9(4) COMP-4. 
uoo¥s CONTINULTY-DATA-ANPUT-LENGTH PIC 9t4) COMP-4. 
UOUY6 CONTINUI FY“VATA-OUTPUT-LENGTIH PIC 9(4) COMP-4, 
vou97 wORK-AREA-INC PIC 9(4) COMP-4. 
ugu98 CONTINUITY-DATA-AREA-INC PIC 9(4) COMP=4. 
you99 “gz SUCCESS-UNIT-ID. 
ud100 03 TRANSACTIUN-DATE. 
uol01 O04 YEAR PIC 
ud1U2 04 MONTH PIC 
oolus 04 TODAY PIc 
uolu4 TIME-OF-DAY. 
u01U5 04 HOUR PIC 
u01LU6 04 MINUTE PIC 
yo1u7 04 SECOND PIC 
00108 O3 UNI QUE-SUFFIX PIC 9996 
v01u9 SOURCE ~TERMINAL-CHARS» 
voliu D3 SOURCE-TERMINAL-TYPE PIC Xe 
uO) 03 SOURCE~TERM-MSG-LINE-LENGTH PIC 9144) CONP<4. 
u0112 U3 SOURCE-TERM-MSG-NUMBER-LINES PIC 914) COMP-4. 
00113 INPUT-MESSAGE-AREAs COPY IMAT4. 
00114 02 SOURCE-TERMINAL-ID PIC X(4). 
Eee. u0115 U2 DATE-TIME-STAMP. 
(113-122) Line 00216 U3 YEAR PIC 914) COMP—4. 
ae u0117 u3 TODAY PIC 9(4) COMP-4, 
a uor1e 03 HR-MIN-SEC PIC 9(9) COMP=4. 
u0119 TEXT-LENGTH PIC 9(4) COMP-4- 
u0220 AUXILIARY~OEV-ID~ 
u0121 us FILLER PIC Xe 
u0l22 US AUX-DEV-NO PIC Xe. 
uoi23 TRANS-TEXT« 
uo124 05 TRANS-COVE PIC X(5).6 
DESCRIBE volzs US FILLER PIC Xe 
(123-140) ee u01z26 OS T~FILE-NAME PIC XU7). 
MESSAGE 00127 T-ORDER-NO PIC GIT). 
TEXT u01z8 FILLER PIC XL). 
u0129 INIT-TERMINAL PIC X(4). 
u0130 FILLER PIC Xt1). 
uors AT-c oP PIC X(3)6 
00152 ACTION-TEXT REDEFINES TRANS-TEXT. 
u01s3 US COMMAND-CODE PIC X(5).6 
00134 US FILLER PIC Xt2). 
00235 US A-OROER-NO PIC FUT). 
00156 OS FILLER PIC Xt15)~6 
00337 DEL-NOTICE-TEXT REUEFINES TRANS-TEXT. 
00238 OS DEL-NOTICE-CODE PIC XtW). 
u02s9 US DEL-NOTICE-STATUS PIC Xe 
vo240 uS FILLER PIC X(24). 
oor4l WORK-AREA. 
u0r42 U3 RECORD-AREA. 
pede 00143 US RECORD-KtY. 
(141-147) vols 07 K-ORDER-NO S947) COMP-3. 


SAVE 


00145 
u0146 
00147 


O7 K~ORDER-ENTRY $999 
OS FILLER XC74). 
O03 ERROR-IND Xe 


COMP-3. 


AREA 





Figure B-25. Sample Action Program PRINT Performing Continuous Output 
(Part 2 of 6) : : : 
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COPY 
OUTPUT 
MESSAGE 
CONTROL 
HEADER 


(148-156) j 


DESCRIBE 
OUTPUT 
MESSAGE 
TEXTS 


(187-211) 


uo148 QO1 
ud1l49 
u0ls0 
u0151 
UO152 
00153 
00154 
uo15s 
Uu0156 
u0l57 
u0158 
uo1s9 
O0l6u 
U0lbl 
0162 
00163 
u01l64 
00165 
00166 
UU1L67 
0168 
u0169 
u0170 
ud17l 
udi72 
uo1l73 
vol74 
u017$ 
GO176 
00177 
00178 
uO179 
UO1s80 
uOlsi 
u0182 
udls3 
u0184 
Uo185 
00186 
00187 
00188 
00189 
u0190 
udly) 
U0192 
u0l93 
ud1l94 
oolgss 
UDLYS& 
u0197 
u0198 
vu0199 
ud2v0 
o02u1 
ud2u2 
u0203 
u0204 
u0205 
UOd2U6 
00207 
u0208 
GO209 
O0210 
00211 


Figure B-25. Sample Action Program PRINT Performing Continuous Output 
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OUTPUT-MES SAGE-AREA. 


O2 DESTINATION-TERMINAL-ID 
U2 SFS-OPTIONS 


02 
02 
G2 


a3 


OZ FILLER 


CONTINUOUS-OUTPUT-CODE 


TEXT-LENGTH 
AUXILIARY-DEVICE-1D. 
Q3 AUX-FUNCTION 
US AUX-DEVICE-NO 
MESSAGE -1, 
FILLER 
M-ORVER 
FILLER 
M-NAME 
FILLER 
M-ADOR 
FILLER 
M-CITY 
M-ZIP 
FILLER 
MESSAGE -2 REVDEFINES 
P-BRAND 
cost 
FILLER 
NUM 
FILLER 
P-SUBTOTAL 
NEXTLINE-2 
FILLER 
MESSAGE-3 REDEFINES 
US CURSOR-POS 
US M-TOTAL 
QS VALIDITY~-CHAR 
OS FILLER 
MESSAGE -4 REDEFINES 
US POSITION-4 
US HEADER=4 
US ORDER-4 
US FILLER 
MESSAGE ~5 REDEFINES 
OS POSITIONS 
OS HEADER-S 
OS TERM-NAME 
OS FILLER 
MESSAGE -6 REDEF INES 
US POSITION~6 
US BREAK-OUTPUT 
US FILLER 
MESSAGE -7 REOEFINGS 
US POSITION-7 


US RESUME-ERROR-OUTPUT 


US FILLER 

MESSAGE -8 REDEFINES 
OS POSITION-8 

US END-OuTPUT 

OS FILLER 

MESSAGE -9 REDEFINES 
OS POSITION-9 


US INPUT-ERROR-OUTPUT 


US FILLER 

MESSAGE “10 REDEFINES 
OS POSITION-i0 

US FILE -ERROR-OUTPUT 
OS FILLtr 


(Part 3 of 6) 


COPY OMA7T4. 
PIC x4). 


PIC X(2}. 
PIC Xt2). 


PIC X(4de 
PIC 944) COMP <q, 


PIC Xe 
PIC Xe 


PIC xXt18). 
PIC 917). 
PIC xX¢4). 
PIC X20). 
PIC X(4). 
PIC X¢15S)6 
PIC Xt4). 
PIC X15). 
PIC Xt5). 
PIC X(114). 
MESSAGE-1l. 
Pke X17). 
PiC S$$,SS$S5.99% 
PIC X(2). 
PIC £22. 
PIC x2). 
PIC $$,5S%,S55.99. 
PIC x4). 
PIC X(156). 
MESSAGEW1. 
PIL XH). 
PIC $$,8$8,S5$5.99-6 
PIC Xe 
PIC X(1868). 
MESSAGEW1. 
PIC X4). 
PIC Xt42)~_ 
PIC 9(7). 
PLC x¢153), 
MESSAGE-1. 
PIC X(4)e 
PIC xXtl9). 
PIC Xt4d. 
PIC xtl79). 
MESSAGE}. 
PIC X(4)e 
PIC xX(53). 
PIC X(149). 
MESSAGE-). 
PIC X(4), 
PIC x24). 
PiC X¢178) 
MESSAGE-1. 
PIC x(4). 
PIC Xt23). 
PIC XC179). 
MESSAGE=1. 
PIC K(4). 
PIC X(32). 
PIC X(170}. 
MESSAGEW1. 
PIC Xt&). 
PIC X¢h2). 
PIC X¢160). 
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00212 O}2 CONTINUITY-DATA-AREA. 
00213 03 CUSTOMER-RECORD. 
u0214 US C-KEY PIC XO). 
0215 0S C-10 PIC Xt5S)e 
DATA u0216 US C-NAME PIC X(20). 
REQUIRED FOR 00217 05 C-ADDR PIC X(15). 
(212-242) CONTINUOUS 00218 OS C-CITY PIC X15). 
OUTPUT u0219 OS C-ZIP PIC Xt5S). 
MESSAGES 00220 0S C-TOTAL PIC S9(7)¥99  COMP-3. 
00221 US FILLER PIC X14). 
0222 03 PRODUCT-RECORD. 
00223 OS P-KEY PIC X60 
ooz24 US PRODUCT PIC XC17). 
u0z25 0S UNIT-COST PIC S9E35)V99 COMP—3. 
UnzZ26 US AMOUNT PIC $999 COMP-3. 
00227 US SUBTOTAL PIC S9C7TIV99  COMP=3. 
00228 us FILLER PIC X47). 
00229 03 CURRENT-ORDER-NO PIC S947) COMP-3. 
00250 03 CURRENT-CONT-COOE REDEFINES CURRENT-ORDER-NO PIC X(4). 
uoz31 D3 CURRENT -ENTRY-NO PIC S999  COMP-3. 
vd2s2 U3 CURRENT-TOTAL PIC S9C7TIV99 COMP-3. 
0233 03 INIT-TERM PIC Xt4). 
00234 03 DEST-TERM PIC XC4). 
up235 03 COP-OUTPUT PIC X(3).6 
u0z236 O03 FILE-KEY. 
00237 US FILE-KEY-1 PIC S9(7) COMP-3. 
00238 US FILE-KEY-2 PAC S93) COMP-S. 
00239 G3 FILE-NAME PIC X¢7)de 
00240 D3 INPUT-TOTAL PIC S9(TIV99 COMP-3. 
00242 D3 BREAK-MODE PIC Xe 
uo242 03 PRINT-DEST PIC X(4). 
U0Z43 PROCEDURE DIVISION USING PROGRAM~INFORMATION-BLOCK 
vo244 INPUT-MESSAGE-AREA 
uo2z45 WORK-AREA 
00246 OUTPUT-MESSAGE-AREA 
uo247 CONTINULTY-DATATAREA. 
00248 EXAMINE-INPUT. 
TEST INPUT u0249 IF TRANS-CODE EQUAL TO *PRINT* GO TO BEGIN-TRANS» 
AND BRANCH TO 00250 IF COMMAND-CODE EQUAL TO "END * GO TO END-TRANS. 
(248-258) APPROPRIATE 00251 IF COMMAND-CODE EQUAL TO *BREAK® GO TO BREAK-TRANS. 
ROUTINE u0zZ52 IF COMMANU-CODE EQUAL TO "RESUM* GO TO RESUME-TRANS. 
00253 IF DEL-NOTICE-CODE EQUAL TO "END * GO TO END-OF-FILE~ 
uo2o4 IF DEL-NOTICE-CODE EQUAL TO CURRENT-CONT-CODE 
00295 GO TO UEL-NOTICE. 
00256 MOVE "INVALIU DELIVERY NOTICE CODE ‘ 
00257 TO INPUT-ERROR-OUTPUT. 
u0258 GO TO DEL-NOTICE-ERROR. 
U0259 BEGIN-TRANS. 
u0260 MOVE O TO CURRENT-ORUER-NO 
coh ata u026) MOVE O TO CURRENT-ENTRY-NO 
(259-273) BUILD ERROR Ud262 MOVE O TO FILE-KEY~-2 FILE-KEY-2. 
MESSAGE 0263 MOVE O TO CURRENT-TOTAL 
00264 MOVE O TO BREAK-MODE 
u0265 MOVE SPACES TO INIT-TERM 
UD266 MOVE SPACES TO DEST-TERM 
u0267 MOVE AT~COP TO COP-OUTPUT. 
u0268 IF T-FILE-NAME NOT EQUAL TO *ORORFIL*® GO TO INPUT-ERROR. 
u0269 MOVE INIT-TERMINAL Tu INIT~TERM. 
uo2z70 MOVE SOURCE-TERMINAL-ID TO PRINT-DEST. 
oOZ?1 IF T-ORDER-NO NOT EQUAL TO LOW-VALUES AND SPACES 
ooz72 MOVE T-ORDER-NO TO FILE-KEY-1. 
u02z73 MOVE T-FILE-NAME TO FILE-NAME. 
uOz274 POSITIUN-FILt. 
00275 CALL "SETL® USING FILE-NAME POS-GE FILE-KEY. 
POSITION AND u0276 IF STATUS-CODE EQUAL TO 0 GO TO READ-RECORD. 
(274-286) | READ “ORDRFIL” u0277 MOVE "END * TO CURRENT-CONT-COUE. 
FILE u0278 GO FO TOTAL-PROC. 
U0Z79 READ-RECURD. 
ue28u CALL *GET* USING FILE-NAME RECORD-AREA. 
udz81 1F STATUS-CODE EQUAL TO 1 GO TO FILE~ERROR. 
poz82 IF STATUS-CODE GREATER THAN 2 GO TO FILE-EKROR. 
uozes IF STATUS-COVE EQUAL TO 2 GO TO END-OF-FILE. 
oo284 IF K-ORDER-ENTRY NOT EQUAL TO U GO TO PRODUCT-PROCe 
uddss MOVt RECORD-ARLA TO CUSTOMER-RECORD. 
u0286 1F CURRENT-TOTAL NOT EQUAL TO U GO TO TOTAL-PRUC. 


Figure B-25. Sample Action Program PRINT Performing Continuous Output 
(Part 4 of 6) 
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BUILD 


{287-300} MESSAGE-1 


SET UP 
AUX-FUNCTION 
FIELDS FOR 
CONTINUOUS 
OUTPUT 


(30 1-306) 


TERMINATE 
PROGRAM 
EXTERNALLY 


(307-310) 


BUILD 


(311-324) MESSAGE-2 


BUILD 


(325-334) MESSAGE-3 


TEST 
DELIVERY 
NOTICE 
CODE 


(335-337) 


BUILD 
ERROR 
MESSAGE 


(338-343) 


TEST 
TERMINATION 
ROUTE 


(344-350) 


ABNORMAL 
TERMINATION 
WITH SNAP 
DUMP 


(351-353) 


CHANGE 
DESTINATION 
OF MESSAGE 


(354-357) 





OO2s7 
Uu0288 
U0289 
u0290 
uuedy) 
00292 
002935 
UD294 
ud295 
UO2Z96 
UO297 
GO298 
o0299 
U050U0 
00301 
uosu2 
udSsuUs 
00504 
U0305 
UO3uU6 
u0SuU7 
00308 
00309 
uoslu 
uO311 
00312 
ug513 
u0314 
udsi5S 
U0316 
u0317 
u0318 
uo3519 
u0320 
u0321 
00322 
u0323 
00324 
00325 
00326 
003527 
00528 
00329 
00550 
u0531 
u053$2 
00333 
00534 
UOSS5 
003356 
u03$7 
u0358 
00359 
00340 
u034) 
U0342 
00343 
00344 
00345 
U0346 
O0S47 
v0S48 
u03s49 
00350 
u0351 
a03552 
U0353 
00354 
00355 
00556 
U0357 
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CUSTOMER-PROC. 
MOVE C-TOTAL TO INPUT-TOTAL. 
MOVE K-ORDER-NU TO CURRENT-ORDER-NOe 
MOVE K-ORVER-NO TO FILE-KEY-le 
MOVE K-ORDER-ENTRY TU CURRENT-ENTRY-NO.] 
MOVE K-ORDER-ENTRY TU FILE-KEY-2. 
ADD 1 TO FILE-KEY-2. 
MOVE HEADER-LINES TO MESSAGE~1. 
MOVE CURRENT-ORDER-NU TO M-ORDERe 
MOVE C—NAME TO M-NAMto 
MOVE C-ADUR TO M-ADDR. 
MOVE C-CITY TO M-CITY. 
MOVE C-ZIP TO M-ZIP. 
MOVE 163 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
CREATE-CONTINUOUS-OUTPUT, 
IF COP-OUTPUT NOT EQUAL TO *CuP* 
MUVE °C* TO AUX=FUNCTION 
ELSE MOVE *7* TO AUX-FUNCTION 
MOVE 1 TO AUX-UEVICE-NO. 
MOVE CURRENT-CONT-COVE TO CONTINUOUS-OUTPUT-CODE. 
EXTERNAL=TCRMINATIONS 
MOVE *E* TO TERMINATLON-INDICATOR. 
MOVE *°PRINTU* TO SUCCESSOR-ID. 
CALL *RETURN®. 
PRODUCT-PROC. 
MOVE K-ORDER-ENTRY TU CURRENT~-ENIRY-NOe 
MOVE K-ORDER“ENTRY TO FILE-KEY-2e 
ADD 1 TO FILE-KEY-2. 
MOVE RECORD-AREA TO PRODUCT~RECORD. 
ADD SUBTOTAL TO CURRENT-TOTAL. 
MOVE PRODUCT TO P-BRAND. 
MOVE UNIT-COST TO COST. 
MOVE AMOUNT TO NUMe 
MOVE SUBTOTAL TO P-SUBTOTALe 
MOVE NEWLINE-A TO NEXTLINE-2. 
MOVE CURRENT-CONT-COVE TO CONTINUOUS-OUTPUT-CODE. 
MOVE S& TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
60 TO CREATE-CONTINUOUS-OUTPUT. 
TOTAL-PROC. 
1F ENPUT-TOTAL EQUAL TO 0 MOVE CURRENT-TOTAL TO iNPUT- TOTAL. 
MOVE SPACE TO VALIDITY-CHAR. 
MOVE INPUT-TOTAL TO M-TOTALe 
IF INPUT-TOTAL NOT EQUAL TO CURRENT-TOTAL 
MOVE *&* TO VALIDITY-CHAR. 
MOVE TOTAL~POS TO CURSOR-POS. 
MOVE 22 TO TEXT=LENGTN IN OUTPUT-MESSAGE-AREAs 
MOVE O TO CURRENT-TOTAL. 
GO TO CRLEATE-CONTINUOUS-OUTPUT. 
DEL-NOTICE. 
IF OEL-NOTICE-STATUS 
GO TO PUSITION-FILE. 
OUTPUT-ERROR.» 
MOVE ERROR=POSITION TO POSITION-4. 
MOVE "OUTPUT ERROR WHILE TRYING TO PRINT ORDERS ° TO 
HEADER<4. 


EQUAL TO SUCCESSFUL~OEL-NOTICE 


MOVE CURRENT-ORDER-NO TO ORDER-4e 
MOVE 57 TO TEXT-LENGTH IN OUTPUT~MESSAGE~AREAs 
DESTINATION-DE TERMINATION. 
IF INIT-TERM NOT EQUAL TO LOW-VALUES AND SPACES ANO 
SOURCE TERMINAL ~-1U : 


GO TO SWITCH-ERROR-MSG. 
MOVE 1 TO BREAK~MODE. 
IF ERROR-IND EQUAL TU LOW-VALUE GO TO EXTERNAL-TERMINATION. 


IF ERROR-IND EQUAL TO 1 GO TO NORMAL~-TERMINATION. 
ABNORMAL~TERMINATIONS 

MOVE *°S* TO TERMINATION~INDICATOR. 

CALL °RETURN®. 
SWLTCH-ERROR~M SG. 

MOVE INIT-TERM TO DESTINATION-TERMINAL-ID. 

CALL "SEND® USING OUTPUT-MESSAGE-AREAs 

IF STATUS-CODE NOT EQUAL TO U GO TO ABNORMAL-TERMINATION. 





Figure B-25. Sample Action Program PRINT Performing Continuous Output 
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BUILD 


(358-361) MESSAGE-4 


TERMINATE 
(362-364) PROGRAM 
NORMALLY 


BUILD 
MESSAGE-5 


(365-37 1) 


ISSUE 
(372-377) BREAK MODE 
MESSAGE-6 


ISSUE 
RESUME 
MODE 
MESSAGE 


(378-386) 


BUILD 


(687-321) MESSAGE-7 


BUILD 


(392-396) MESSAGE-8 


(397-399) | meSSAGE-9 


ISSUE 


aie MESSAGE-9 


BUILD AND 
(405-411) ISSUE 
MESSAGE- 10 





CREATE -NULL-MSG, 
MOVE LOW-VALUES TO DESTINATION-TERMINAL—~IDe 
MOVE NEWLINE-A TO POSITION-4. 
MOVE 8 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
NORMAL<TERMINATION. 
MOVE *N® TO TERMINATLON-INDICATOR. 
CALL "RETURN*. 
ENU-OF-FILE« 
MOVE 1 TO ERROR-IND.} 
MOVE ERROR-POSITION TO POSITLON-5Se 
MOVE “PRINT COMPLETED AT * TO HEADER-5S. 
MOVE PRINT-DEST TO TERM=NAME. 
MOVE 31 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREAe 
GO TO DESTINATION-DETERMINATION. 
BREAK-TRANS.» 
MOVE 1 TO BREAK-MOUE. 
MOVE "BREAK ENFORCED - RESUME REQUIRED TO CONTINUE PRINTING® 
TO BREAK-OUTPUT. 
MOVE 61 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
GO TO EXTERNAL-TERMINATION. 
RESUME-TRANS. 
IF BREAK-MODE EQUAL TO O GO TU RESUME-ERROR- 
MOVt O TO BREAK-MODE. 
IF A-ORDER-NO EQUAL TO LOW-VALUES OR SPACES 
60 TO POSITION-FiLE. 
MOVE A-URDER-NO TO FILE-KEY-i. 
MOVE O TO FILE-KEY-2. 
MOVE O TO CURRENT-TOTAL. 
GO TO POSITION-FILE. 
RESUME-ERROR. 
MOVE ERROR-POSITION 10 POSITION-7. 
MOVE *RESUME INVALIO = IGNORLD® TO RESUME-ERROR-OUTPUT. 
MOVE $2 TO TEXT-LENGTH IN UUTPUIT-MESSAGE-AREAS 
GO TO NORMAL-TERMINATION. 
END-TRANS.e 
MOVE ERROR-POSITION TO POSITLON-8. 
MOVE *PRINT TRANSACTION ENDED* TO END-OUTPUT. 
MOVE 31 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
GO TO NORMAL-TERMINATLON. 
INPUT-ERROR. 
MOVE *INPUT IN ERROR - PRINT NOT BEGUN* 
TO INPUT-ERROR-OUTPUT. 
DEL-NOTICE-ERROR, 
MOVE 2 TO ERROR-IND. 
MOVE ERROR-POSITION TO POSITION-9. 
MOVE 4D TO TEXT-LENGTH IN OUTPUT-MESSAGE~AREA. 
GO TO DESTINATLON~DETERMINATION. 
FILE-ERROR. 
MOVE 2 TO ERROR-IND. 
MOVE ERROR-POSITION TO POSITION-10. 
MOVE *FILE ACCESS ERROR - TRANSACTION TERMINATED® 
TO FILE~ERROR-OUTPUT. 
MOVE 50 TO TEXT-LENGTH IN OUTPUT-MESSAGE-AREA. 
GO TO DESTINATION-DETERMINATION. 





Figure B—25. Sample Action Program PRINT Performing Continuous Output 
(Part 6 of 6) 
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Delivery notice scheduling After delivery notice of each message is received from IMS, 
PRINT uses delivery notice scheduling to determine whether 
output should continue or error processing should occur. If output 
continues successfully, PRINT terminates in external succession, 
naming itself as successor to create the next output message to 
be printed. When _ end-of-file is reached, PRINT terminates 
normally, with an output message to the operator that printing is 
completed. 


Unsuccessful delivery notice |f the PRINT program receives an unsuccessful delivery notice, it 
does not terminate immediately but first reports an output error 
to the terminal operator and allows him to control further output, 
terminating in external succession to await his response. He may 
respond by breaking off, resuming, or terminating the transaction 
normally. 
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PRINT input message When it is first activated by action scheduling, PRINT expects to 
process an input message in the following form: 


PRINT filename order-number init-terminal [COP] 


where: 


PRINT 
Is the transaction code that schedules the PRINT action 
program. 


filename 
Is the name of the data file to be accessed. In this 
example, the file is an indexed file; PRINT expects to 
process a file named ORDRFIL and validates the filename 
keyed in (line 268, Figure B-25). 


order -number 
Is an order number used as a key search argument in 
positioning the file for retrieval (lines 271 and 272). 


init-terminal 
Is the terminal-id of the originating terminal, used in the 
switching of output error messages to the operator (line 
355). 





cop 
Is the 3-character code entered by the terminal operator 
to designate that output should be printed on the COP. 
Notice its use in line 302. 


The input message received by the PRINT program in this 
example was sent from another terminal via the BEGIN1 action 
program as _ output-for-input queueing. The input message 
received by PRINT from TRM1 contains the transaction code that 
initiates the PRINT transaction at TRM5. 


If the terminal operator at TRM1 entered the sample message 
shown in B.5, the message received by the PRINT action 
program is: 


PRINT ORDFILE 5732468 TRM1 COP 
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Processing PRINT On initial activation, PRINT passes control to the BEGIN-TRANS 
routine, which initializes certain fields of the continuity data area 
and work area and validates the name of the file to be processed 
(lines 259-268). BEGIN-TRANS positions the file for sequential 
processing and, retrieving a record (lines 269-275), processes it 
and the input message (lines 279-286). It forms a customer 
record, (lines 287-300), a product record, (lines 311-324) or a 
total record (lines 325-334), in the output message area; control 
then passes to the CREATE-CONTINUOUS-OUTPUT routine (lines 
30 1-306). 


Input message without Here, if the terminal operator did not key in COP to direct the 

CoP output message to a communications output printer, the routine 
moves the hexadecimal value C3 to the AUX-FUNCTION byte of 
the AUXILIARY-DEVICE-ID field in the OMA header (line 303). 
This causes the output message to be written as continuous 
output on the screen of the originating terminal. Otherwise, line 
304 moves the hexadecimal value F7 to this byte, to cause 
print-transparent continuous output on a communications output 
printer, and line 305 moves a 1 to the AUX-DEVICE-NO byte of 
the AUXILIARY-DEVICE-ID to specify the COP relative number as 
defined in the ICAM generation. 


@ Receiving CONTINUOUS- _—_Line 306 moves into the CONTINUOUS-OUTPUT-CODE field of 
OUTPUT-CODE the OMA header a 4-character value (represented by the current 
order number). After an attempt is made to deliver the message 
as specified, this 4-character value identifies this output message 
when received in the 5-byte input message that IMS creates for 
the next activation of PRINT. 


After specifying external succession (line 308) and moving its 
own program name into the SUCCESSOR-ID field of the program 
information block (line 309), PRINT terminates to await 
reactivation by action scheduling. 


Verifying DELIVERY-NOTICE- On receiving the 5-byte input message from IMS, the PRINT 
CODE and STATUS program is reactivated. PRINT examines the input message, 
DEL-NOTICE-CODE, (first four bytes) to ensure that it is 
processing the expected input (line 348) and then proceeds to 
verify that the delivery attempt was successful. It does this at 
line 336 by comparing the fifth byte of the input message 
(DEL-NOTICE-STATUS) against the value ‘A’. This value, which it 
has established for the constant SUCCESSFUL-DEL-NOTICE in a 
77-level entry in the working-storage section (line 10), is the 


Successful delivery translated value for a successful delivery notice status 
(hexadecimal 81) reported to IMS by ICAM. On_ successful 
@ Unsuccessful delivery delivery, it resumes processing. If delivery was unsuccessful, 


PRINT does not attempt to determine the reason but sends an 
error message to the terminal operator. If an initiating terminal is 
specifed in the input message, PRINT sends error messages to 
that terminal. 


UP-9207 





SPERRY ‘UNIVAC OS/3 B-64 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


CONTINUOUS OUTPUT IN COBOL: DESCRIPTION 


RESUM/END commands 


Abnormal PRINT 
termination 





PRINT terminates in external succession after it sends an output 
message to the operator informing him of unsuccessful delivery 
of the last continuous output message (line 349). It expects him 
to enter either the command RESUM (line 252) or the command 
END (line 250) and is prepared to process one of these as its 
next reactivation. If he enters the command END (line 396), the 
program terminates with normal termination. If he enters the 
command RESUM, the program allows him to continue printing 
from where he left off, or from an earlier order number specified 
as an optional parameter of the RESUM command (line 135). 


PRINT voluntarily terminates abnormally, with a SNAP dump, 
when: 


m it receives an unexpected input message on activation (line 
258); 


= the terminal operator attempts to access some file other 
than ORDRFIL (line 268); 


= = =©an unsuccessful return was made to the STATUS-CODE field 
of the program information block after issuing the GET 
function to ORDRFIL (lines 280-283); 


m™ any of its error or warning messages switched to the 
terminal operator were not successfully sent (line 357). 


PRINT sends a message to the terminal operator before 
terminating when the operator enters the wrong file name (line 
397) or there is an error on the GET function (line 405). 
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Appendix C. Basic Assembly Language (BAL) 
Action Programming Examples 


C.1. DESCRIPTION 


Appendix C contains compiler listings of three action programs. 
These examples illustrate complete action program coding for 
simple and dialog transactions including the use of delayed 
internal succession. In addition, an IMS configuration supplies the 
parameters needed to run these action programs. 


ACT3 action program The ACT3 action program processes a simple inquiry transaction 
to retrieve the capital city name of the state entered at a 

r terminal. The program terminates normally by default. 
SUPPLY action program The SUPPLY action program, a more complex application, can 


terminate normally by default or abnormally by moving an ‘S’ to 
the TERMINATION-INDICATOR after determining that an S was 
entered as input. SUPPLY processes two successive simple 
transactions. 


APCHKS action program The APCHKS action program inserts or changes records entered 
at the terminal and uses delayed internal succession to call the 
APITMS action program. The APITMS action program uses 
delayed internal succession for error processing to return to the 
APCHKS action program for changes or corrections to records. 


C.2. SAMPLE BAL ACTION PROGRAM PERFORMING A SIMPLE 
TRANSACTION (ACT3) 


Processing a simple Action program, ACT3 (Figure C-2), processes a_ simple 

transaction transaction. After receiving a transaction code of ‘C’ and the 
state name in its input message area (see Figure C-1, line 1), 
ACT3 issues the ZG#CALL GET macroinstruction to retrieve the 
capital name from the STATE file (Figure C—2, line 31). 
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Line 1 
Line 2 


C ALASKA 
CAPITAL: JUNEAU 





Figure C-1. Terminal Entry and Output Message for ACT3 Simple Inquiry 
Transaction 


Terminal entry used Here, ACT3 uses the state name entered at the terminal as a key 
as record key to retrieve that state record from the STATE file. 
Successful status code If IMS returns a successful status code of 0, ACT3 then builds 


the output message (Figure C-2, lines 32 and 36-44) by setting 
the 4-byte DICE sequence (line 36) and moving the MSGCON1 
constant (line 40) and state capital name (line 76) into the output 
message area (line 43). Finally, after terminating normally by 
default (line 58), ACT3 sends the message to the terminal. See 
Figure C-1, line 2. 


Unsuccessful status code ‘lf there is an 1/O error (a status code other than O or 1 in this 
action program) after ACT3 issues the ZG#CALL GET 
macroinstruction, ACT3 moves MSGCON3 to the output area 
(line 55), and sends the message,‘l/O ERROR’, to the terminal on 
normal termination (line 63). 





Invalid record key If IMS returns a status code of 1 (line 50), ACT3 moves 
MSGCON2 to the output message area and terminates normally, 
sending the error message ‘INVALID STATE NAME’ to the 
terminal (line 52). 


Default for termination Notice that because N is the default value for the TERMINATION- 

indicator INDICATOR field (ZA#PSIND) in the program information block, it is 
unnecessary to move the value ‘N’ to ZA#PSIND to terminate this 
transaction normally. 


Default for destination Because a specific value is not moved to the DESTINATION- 

terminal identification TERMINAL-ID field (ZA#ODTID) of the output message area, the 
output message is sent to the source terminal. Also, because ACT3 
doesn’t move a specific length to the text-length field (ZA#OTL) in 
the output message area, the text length of the output message is 
taken from the value configured on the OUTSIZE parameter for this 
action. 
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LINC SOURCE STATEMENT OS/3 ASM 
1 PRINT NOGEN 
START ACT3 2 ACT3 START O ACTION PROGRAM CATRY POINT 
PROGRAM AND 3. ® ALLOCATE REGISTERS TO COVER: 
(1-3) SUPPRESS 4 USING #,2 THIS ACTION PROGRAM 
MACRO 5 USING ZA#DPIB,3 THE PROGRAM INFORMATION BLOCK 
EXPANSION 6 USING 2A#IMh,4 THE INPUT MESSAGE AREA 
7 USING WORK »$ THE WORK AREA 
8 USING ZAHOMHsS6 THE OUTPUT MESSAGE AREA 
* INITIALIZE 
ALLOCATE STM =. 14422412013) SAVE ACTION SCHEDULING PEGISTERS 
REGISTERS ROS CONTAINS SAYE AREA ADDRESS WHEN 
FEO) eer Rea ce CONTROL 7S RPECETVED BY 
AREAS ACTION PROGRAM. 
ESTABLISH ADDPESSABILI1Y FOR ACTION 
PROGRAM. RFS CONTAINS EMERY POINT 
ACCRESS UHEN CONTROL TE RECELYED 
BY ACTION PROGRAM. 
INITIALIZE 356,001) ESTABLISH ADDPESSABILITY FOR 
REGISTERS ACTIVATION PECOPD. RIS CONTAINS 
(11-30) cok heats PARAMETER LIST ADDRESS WHEN CONTROL 
PROGRAM IS RECCIVED BY 
CTION PROGRAM. 
LA 1D »SAVEAREA GET ADDPESS OF ACT3 SAVE AREA 
ST 10 58,13? SET FORWARD POINTER FROM ACTION 
SCHEDULING SAVE RREA 
ST 134,10) SET BACKWARD POZNTEP TO ACTION 
READ RECORD SCHEDULING SAVE AREA 
(31-32) | FROM “STATE” LR 13,10 MAME ACT3 SAVE AREA THE CURRENT 
FILE : SAYE AREA 
SET STATE RECORD FROM FILE USING STATE MAME KEY IN INPLY MESSASE 
2G HCALL GET (STATE s RECORD, SAKEY 3 ISSUE CALL T¢ IMS 
CLI -ZA@PSC*1,9 TEST STATUS CODE RETURNED IN PROGRAM 
Bids INFORMATION BLOCK BY 7MS 
Rieeeece 8NE ERROR NON-ZERO MEANS ERPOP 
(34, * BUILD OUTPUT MESSAGE 
36-43) | MESSAGE AND MYC  OUTTEXTC4),NE@LINE PUT DEVICE INDEPENDENT CONTROL 
BRANCH TO CHARACTERS INTO MESSAGE TO CLEAR 
ERRORS TO ENO OF LINE AND POSITION TO 
BEGINNING OF NEYY LINE 
MVC = OUTTE XT#G 4L*MSGCONI),H#SSCOMZ PUY TEXT CONSTANT INTO 
an TERMINATE _ MESS AGE 
NORMALLY PuT CAPITAL NAME INTQ MESSAGE 
AVC OUTTE AT+4 +L MH SGCONIEL "SCAPITAL hgSTAPZTAL 
8 TERM 
* PROCESS ERROR 
ERROR MVC 9 - OUTTE XT649,NE @LINE CLEAR 19 ENC OF LINE AND 
POSITION TO BEGINNING 
OF MEXT LINE 
CLI -2A#PSC41,2 TEST STATLS CODE 
BUILD BNE IGERRCR 
(46-57) ERROR ONE MEANS INWALID KEY 
MESSAGES MVC OUTTE XT#SCL*MSGCON2),HSGCON2 PUT*INVALIC STATE NAME® 
INTO MESSAGE 
: TERM 
IOERROR MVC OUTTE AT#4(L *MSSCON3),MSGCOM3 PUT *LO ERROR® INTO 
* MESSAGE 
co TERMINATE * TERMINATE EXECUTION OF ACTION PROGRAM BY PETUPN CALL TO IMS. 
NORMALLY TERM 264CALL RETURN 
* CONSTANTS 
STATE oc CLT*SIATE® ISAM FILE NANCE 
MSGCONL OC C°CAPITAL® 
MSGCONZ DC C*INVALID STATE NAME® 
MSGCON3 DC C*I70 ERROR® 
NEwLINE 20#POSC 0,0 ICAM PROCEDURE YO GENERATE DICE SEQUENCE 
* FOR NEW LINE CONT9OL UTTH CLEAR 
DEFINE * ACTIVATION RECORD LEFINITICN 
(59-64) CONTENTS OF TMSCPiS 
MESSAGES ZMHUINH 
ICoDE DS x TRANSACTION COOC 
DS x SPACE 
SNAEY DS XL4 STATE NAME KEY 
DEFINE wORK OSECT WORK AREA 
ACTIVATION RECORD £QU * 
(66-81) RECORD AND SNAML os XL14 STATC NAME 


INPUT AND OUTPUT 
MESSAGE TEXT 
LAYOUT 





SPP OS XLS 

sCAPITAL OS XL25 

SAVEAREA OS 168A 

PLIST OS 4A 
ZHEDOMH OMA 

OUTTEXT OS XL492 
END 


STATE POPULATION 

STATE CAPITAL 

REGISTER SAVE ARTA 

PARAMETER LIST REFERENCE BY 2GHCALL MACRO 


CONTROL FEADECR 
OUTP LT MESSAGE TEXT AREA 





Figure C-2. Sample BAL Action Program ACT3 Processing a Simple Transaction 
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C.3. SAMPLE BAL ACTION PROGRAM PROCESSING SUCCESSIVE 
TRANSACTIONS (SUPPLY) 


Simple transaction with 
screen format 


Processing SUPPLY 
action program 


The SUPPLY action program (Figure C-7) processes successive 
simple transactions that display a screen format for the terminal 
operator to enter supply charges, verify the data entered, create 
or change a record, and display results. 


When the terminal operator enters the transaction code, SUPLY 
(Figure C-3), the SUPPLY action program returns the screen 
format (Figure C-4). The operator enters a TYPE code of | or G 
indicating the type of changes made, a branch number for the 
branch company being charged, and the amount (SUPPLIES) 
charged for supplies (Figure C-5). 












































SUPLY 





Figure C-3. Initiating the SUPLY Transaction 





EE rrrOOEOETEPEPEPRE»L»E~€~™~™~ELA9™?39B99A99»DDDDDDDDZ=SSOO = 


SUPLY TYPE[ ]} 


BRANCH SUPPLIES COPY PAPER 
[ ] [ ] [ ]< > 





Figure C-4. SUPPLY Action Program Screen Format Return 



































SUPLY TYPE[1] 


BRANCH SUPPLIES COPY PAPER 
[915] [1250 ] [ }< > 





Figure C-5. Reinitiating the SUPLY Transaction with Input Data 
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Verifying data and 
creating a record 


Next, he places the cursor and presses the TRANSMIT key. This 
reinitiates the SUPLY transaction, and the SUPPLY action 
program is scheduled again to verify the data and create the 
record. When the record is successfully changed or created, 
SUPPLY returns the name of the branch company and the type 
charges made to it (Figure C-6). 





























SUPLY TYPE[I] 

BRANCH SUPPLIES COPY PAPER 
[ ] [ ] [ }< > 
ANNISTON 





Figure C-6. Output From Second SUPLY Transaction 
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LINE SOURCE STATEMENT OS/3 ASM 


SUPPLY START Q 
FROKTEH gS FHT E TECH OHSS SESS OFTd PORES SHES ESE OSHS OTE EHSEDS TEESE EE EDD OEREE 
s 


START "'SUPPLY” 
PROGRAM AND 
ALLOW MACRO 

EXPANSION 


(2-13) AUTHOR 


* 2 PAM BUTE 
* CATE 2 BS/05/7& 
* SITE : 

* FUNCTION ¢ 

= 
* 
* 


GAY & TAYLOR, INC 

THIS PROGRAM WILL RE USED TO ENTER SUPPLY 

CHARGES AND VERIFY THE INFORMATION. 

eeete CHANGE L0G eee, 
PHOT ESEOS EEE EEE HOEY OES S HEE SOHOSSEESHS OSES ESET HEEL OD EEESEE OOS EEOEE 

PRINT GEN 

* ESTABLISH REGISTER EQUATES 

RO £Qu rf) 

R} Eau 
EQu 
EQu 
EQu 
EQu 
EQu 
£Qu 


oe @eaee 


ALLOCATE 
REGISTERS 
FOR INTERFACE 
AREAS 


(14-30) PROGRAM CUVER #1 


PROGRAM CCVER #2 


INTERNAL SURROUTINE LINKAGE 
1/0 NORMAL RETURN 
1/0 ERROR RETURN 

EQu CLA COVER COPTIONAL? 

Fou P1B COVER 

£Qu 10 IMA COVER 

EQu M1 WORK COVELK 

EQu 12 GMA COVER 

Eou 13 

Fou 14 

EQu 15 

PROGKAM COVERING 

USING *,R2,R3 PROGRAM CODE 

USING 2ARKDPIB,RO P1B 

USING ZARTMH,RID IMA 

USING wWORK,R11 WORK 

USING ZA#OMH,R1I2 OMA 

1MS INTERFACE 

STM RIG RI2,124R1 3} STORE REG IN CALLS* SAVE AREA 

tR R2eR15 THIS PROGRAM ADDRESS 

fa) £9,R12,00R}} COVER IMS AREAS 

tR R3 RZ PROGRAM SECCNL COVER 

LA R3,1CR3) 

tA k3,4095¢,RID AUD 4996 

LA R7,SAVE THIS PROGRAM SAVE AREA 

ST h7,48¢5R13) PUT ADDR THIS SAVE IN CALLS* SAVE 

ST R13,490,K7) PuT CALLS* SAVE AODR IN THIS SAVE 

LR R1L3—RT SET REG 13 FOR THIS SAVE AREA 
SE STEETES SPHERES OSHS SKESE TERT HSEHS SERS SHSESHS SESKKEESEKEES SETSESOSSSESESSE SERSE 
* CHECK SECURITY FOR OPEN * 
BOSSSEH SERS T EET ES HE EE HT HEED OE EHO ES OH ESET ESSE LEST SHEE ES OHETSEHHEDE SESRE 

MYC TABKEY (8), BLANK 

MVC TABKEYE3),=C*°T80" 

MVC TABKEY03t2),-=C°SC* 

LA R7,OPNC20 

BAL Ro, TABGET 

CLI TABSTS,C* * 

BNE oPNOzO 

MvI WORK) ,X*OO* 

MVC WORMIO} (70 ,WORKI 

MVC wORKIOBRI2),ZAMISTICC2 

PACK WORK106(2),WORK1*6¢2) 

CvB R6,WORK} TERMINAL # TO BINARY 

LA RIZFERMTAB-4 InTT TERMINAL FIELOS ADDRESS 
OPNULO LA R7,49(0,R7) NEXT TERMINAL FIELOS 

BCT Ro ,OPNOLL NOT TERMINAL FIELO-GET NEXT 

cLe Gt3ek7),=-C* 

BE oPNO20 

MVC wWHOU3) ,O8RT) SAVE USER INITIALS 

cLc 3C1,R7),01MIT OVER LIMIT? 

BNH STARTOOO 
OP NO20 M¥C MSGOUTELMSG2)4MSG2 “APPLICATION NOT OPEN™ 

M¥C ZAMOTL (20g =VCOOLMSC2°4) 

8 TERM 


Pnowrfwne © 


A] 


INITIALIZE 
REGISTERS FOR 
“SUPPLY” 
PROGRAM 


(31-47) 





VALIDATES 
CONDITIONS 
FOR OPEN 
ROUTINE 


(52-64) 


OPEN 


(eeo44l ROUTINES 





Figure C~7. Sample BAL Action Program SUPPLY Processing 
Successive Transactions (Part 1 of 9) 
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BUILD SCREEN 
FORMAT AND 
OF TEST SIZE 
OUTPUT MESSAGE 


(79-85} 


VERIFY 
(89) INPUT 
FIELDS 


VERIFY TYPE 
CHANGES TO 
BE MADE 


(93-100) 


VERIFY 
BRANCH 
ACTIVE OR 
NOT 


(104-106) 


SUPPLY 


(118126) CHARGES 
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POSTERS EOSHS EAE SSSR AT HESECET HEED RES HOSTS OSCE SESS SSE RS HHS SEH SSHE SSS 


= 


WIFKHSSHSRREG HK HORE ST SEHHSE CHAT AKKE RH HS EK ASEH AST SEEK SAK SA KK KE SSHEYSEKSESESE ETE 


STARTCOG €QU 
BAL 
CLC 
BNH 
CLC 
BNL 
8 

* 

SXRKSK HS KOH TH 

* 

VERIFYOO EQu 

* 

SIIKHHK HAO KSE DS 

* 
MVC 
CLI 
BE 
cil 
BE 
Mvi1 
MVI 
MVI 

* 

PEE TELE L ESE EE SF 

= 

VERIFYOS EQuU 
MYC 
MvC 
LA 
BAL 
MVC 
Cul 
BNE 
is} 

NOGUT MVI 
MVI 
MvI 

SESS SERED ES 

s 

VERIFYIG Eau 
MVC 
LA 
tH 
BAL 
BZ 
MVI 
MVI 
B 


Figure C-7. Sample BAL Action Program SUPPLY Processing 
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DETERMINE ACTION 


* 
R6,SCREENO 


PROCESS MESSAGE 


MOVE SCREEN FORMAT TO OMA 


ZAMTTIL O23 ,7YCTRANLEN-MSGIN*4 44) 


TERM 
ZARITL EZ), -VOTLEN WM 
VERIFYCG 

TOOSHORT 


VERIFY INPUT FIELDS 


* 
VERIFY TYPE 


CTYPE sI TYPE 
TTYPE,C*'G® 
VERIFYCS 
JTYPE,C*1* 
VERIFYO5 
LBOQLI42,x*1C° 
RBOIZ*1,xX* 1D" 
ERRST,C*y¥" 


VERIFY BRANCH 


x 

CBRC(3),1 ARC 
BRKEY(3),1PRC 
R7,NCGOT 

k6 sBRCGET 
OBRNAME HB RNAME 
BRGL,C* * 

NOGOT 

VERIFYIG 
DICEGHI14z,x*1C" 
CICEGH241,x*10° 
ERRSIT,C*Y? 

ARE SUPPLY CHARGES 


cf 
OSUPPLY,ISUPPLY 
R1,ISUPPLY 
ROs=H*10° 

£5 ROO 
VEpIFY25 
CICEGH3+2,x*1C* 
CICEC4441 4x10" 
TERM 


SGIN*4 48) 


TS BRANCH ACTIVE? 


SHOW ERROR 
NUMERIC? 





Successive Transactions (Part 2 of 9) 
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Ps 
eeeeetesgegvese 15S FILM NUMERIC? 
* 
VERIFY2S EQu * 
MVC OocP,ICP 
LA R1,ICcP 
tH RO,=H*I0° 
BAL R5,RI0C 
82 VERIFY30 
MvI DICE08Se2,x°1C*® 
mvi DICEO46+) ,x*1D* 
B TERS 


COPY PAPER 
AND “‘SUPPLY”’ 
CHARGE 
TESTS 


(127-159) 


+ 
SOE H ESE FRSe ARE SUPPLY CHARGES ZERO? 
* 
VERIFY30 EQu * 
MMVI TEST,x*OG* 
cic ISUPPLY¥4}(9),=C *GO000000G" 
BNE VERIFY35 
ol TEST,xX*8U* SET BIT FOR SUPPLY=G 
* 
OF SCS SL Meee he 1S COPY PAPLR ZERO? 
* 
VERIFY3S EQU » 
cic 1CP+*1¢9),=C*c000C000E* 
BNE ENOVERDO 
ol TEST, xe4u? 
* 
Seooesesegegte TEST CONDITIONS FOR LRROR 
* 
EnOVEROG EQu * 
cul TEST,X*CL® ARE BOTH ZERO? 
BNE NEXTESTO NO-SEE JF NEITHER ARE ZERO 
MVC MSGOUTELMSG6) »MS66 BOTR ZERO 
MYC ZAMOTLO622,-YID*LMSGO*4) 
8 TERM 
NEXTESTO EQu * 
cul TEST,x°Go* 
BNE INSERTSC 
MVC MSGOUTCLKSG7) »MSG7 
MVC ZAMOTLO2),=YCO*LMSC704) 
B TERM 
INSERTSC EQuU * 
cul ERRST,C*Y® 
BE TERM 
M¥C wTYPE ,FTYPE 
MVI wSTATUS,C® ° 
MvI WRECID,C°B® 
MVC wBRC,IBRC 
PACK wWSUPPLY(S) yISUPPLY*#1(93 
PACK WCP(S),ICP#1(9) 
BAL R6,DAYTIME 
MYC WIRTIME ,HHMM 
MYC WITRDATE ,YYMMUD 
LA R7,ABTERM 
BAL R6,DTFINSRI 
MVC OBRCE3) gBLANK 
MVC OSUPPLY(10),8LANK 
MYC OCP(10),bLANK 


BUILD OUTPUT 
MESSAGE-6 


(160-162) 





BUILD OUTPUT 


per) MESSAGE-7 


BUILD 
(169-186) OUTPUT 
SCREEN 


8 TERM 
SEPSEKSESEHEEIES SHH KESEHEEEEEKSERE 
* MESSAGE 100 SHORT 
TOUSHORT MVC MSGOUTELMSG3) MSG3 CURSGR REPCSITIONED 
MVC ZAHOTLEZ) ,=YUO*LMSG3 04) 
TEST FOR 191 8 TERM 
(189-191) MESSAGE 192 * 


193 * 

194 Seecreeetgtete TERMINATE PROGRAM 

195 * 

196 TERM cul ISNAP,C®S* ASK FOR SNAP? 

197 BNE GSOBACK NO 

198 ARTERSM M¥I ZANPSIND,C°S® TERMINATE WITH SNAP 
199 GOBACK Z2GRCALL RETURN 

200*GOBACK os CH 

201¢ t PSe=VEIRETURND 

202¢ BALR 24,15 


TOO SHORT 


TERMINATE 
WITH 


eise-202) SNAP DUMP 





Figure C-7. Sample BAL Action Program SUPPLY Processing 
Successive Transactions (Part 3 of 9) 
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SCREEN OUTPUT, 

DATE/TIME, AND 

RIGHT -JUSTIFY 
ROUTINES 


(202-255) 


READ “TABREC”’ 
FROM 
(262-277) “TABLEMT” 
FILE AND PLACE 
ON “‘IOFILE”’ 





SPEETESSRESE SESE OHSS OSE ES IE HEEESSEE AEE TE SCENES HOE EO ETEK EET HEEEESE TE 


INTERNAL ROUTINES 


SFOVARHSSEH RSS SS HHS ASHE ASETHESEKSER SELES FFETHES SERS SEOCSE SE SSET ER RAE HRERO READ 


s 

S4ORSE TE REED OF 

e 

SCREENO EQU 
st 
MYC 
mvc 
M¥C 
MYC 
MVC 
MYC 
MYC 
MVC 
L 
BR 

* 

SOHTARH ES EOD SES 

* 

DAVIIME £Qu 
Ss! 


MOVE SCREEN TO OMA 


* 

RO, ROSAVEL 
MSGOUTCLHEADER) SCREEN 
OLINE R(LLINEL),LINEL 
OLINEZCLLINEZD LINE? 
OLINE 3(LLINE3) SLINES 
OLINES {LL INES) LINES 
OLINESELL INES) LINES 
OLINEGILL INEG) »LINEO 
ZAHOTLO4),=YCENDSCR-SCREENG4} 
R6»ROSAVE] 

R6 RETURN 


DATESTIME STAMP SOOee Ree eee EET ESE HE THE ED ETER ACHES ER ERE 


* 
RO ~ROSAVE2 


GETIME S 


OS 
SR 
SVC 
ST 
UNPK 


ORG 
LA 

oc 
EXTRN 
L 


GH 

1,1 

7 

RO,WORK1 DATE-OCYYMMDDs 
WORK1 0407), WORKICM) 

YYMMDD(6) gWORK1I¢S 

YYMMDD*5,X*FO? 

R1,WwORKI TIME -CHHMMSS + 
WORK144(07) pWORKIEG}) 
HHMM C4? »WORKI 4S 

HHMM*3,X"FO® FIX ZONE 
R6,ROSAVE? 

R6 

RIGHT JUSTIFY 959608 0945 4s 69669506 OTE HG DK EE ER ETERS EEE 


REGISTER O FIELD LENGTH ¢€ LA RO g=HYXXXX* } 

REGISTER 1 ADDRESS OF FIELD 

REGISTER LE RETURN STATUS CODE ¢ ZEROES IF NO ERROR } 
s 

R13,SAVE LOAD ALDRESS OF PROGRAM SAVE AREA 

aoyv«@o) 

MODRYJ} 

R15,=AtMOORJ1? 


BALR RI4,RIS BRANCH TO KJ 


LER 
BR 
* 
HSELK AH E SESE RE 


TaBCET MVC 
MvI 


RiS,R15 SET CONDITION CODE FOR ERRORS 
RS 


FILE 170 8868 SSeS 2858 OF SEEE OER HEHE REESE SE OTHE TERA EREDE 


TABLE MASTER 170 


TOKE V(5),TAGKEY 
1OKEY+8,C °C® 


ZGHCALL GET, CTABLEMT,TABREC,TABKE VD 





ou 
15, TABLEMT 

IS oPLISTs4e01-1) 
15,TABREC 

AS PLIST. 4¢(¢2-1) 
15,TABKEY 
USsPLISTs44¢5-1) 
PLIST#4#(3-13,x°80° 
1 sPLIST 

1S,=¥tGET) 

14,15 
LOFILE(7)yTABLEMI 
IOSTATUS 


Figure C-7. Sample BAL Action Program SUPPLY Processing 


Successive Transactions (Part 4 of 9) 
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278 * 
279 se eeegegegenee DAILY TRANSACTION FILE 
280 * 
281 OTFINSRE “VI IOKEY*15,C°L® 
282 2GRCALL INSERT, CTRANACT »DIFRECD 
283¢ DS Qu 
INSERT NEW Paue ta 15,TRANACT 
(281-293) RECORD ON 285 ST 1S ePLISTege¢i-1) 
lOFILE 286¢ ua 15 ,DIFREC 
2874 st 1S,PLIST#4e(2-1) 
288¢ Ol PLIST+#4H¢(2-1),x%b0° 
2894 La 1,PLIST 
290+ L 15,2VCINSERT) 
291¢ BALR 14,915 
292 MVC IOFILE (7), 7RANACT 
293 8 1OSTATUS 
294 * 
295 ee e4en eg eeen es BRANCH MASTER 
296 * 
297 BRCLET “WC LOKEY(3),9RKLY 
298 “v1 1OKEY*3,C°C* 
READ BRANCH 299 GETbRC ZGACALL GET, (BR ANCHM,BRREC yRRKEY)D 
(297-312) RECORD AND 300*GE TERC pos GH f 
MOVE TO 30)°¢ 15 e6RANCHM 
“MOFILE”’ 302 ISsPLIST294¢ti-1) 
3036 15 ,BRREC 
304 IS pPLISTe4e(Z-1) 
3o5¢ 1S ,BRKEY 
306 15 PLISTs4e¢3-2) 
307+ PLIST #49t 3-1) ,x"80" 
308¢ 1ePLISI 
309¢ 15,=V(GET) 
310° 14,18 
311 1OFILE (7) ,BRANCHM 
312 1OSTATUS 
313 
319 eeeceseseegese 1/0 STATUS 
315 * 
316 TOSTATUS EQU- * 
TEST STATUS 317 CLI = ZA#PSC#1,0 SUCCESSFUL? 
CODE AND RETURN 318 BER 6 YES 
(316-326) TO OPEN OR 319 cul ZAMPSCol, 1 NO-INVALID KEY? 
GO TO ERROR 320 BER RT YES 
ROUTINE 321 cul ZAWPOSC*1,5 FILE NOT DEFINED? 
322 BNE 101 NO 
323 7 CLI = TOERROR,CeR® RE TURN? 
324 BNE 10A NC 
325 SR R10,R16 CLEAR RC 
326 BR RT 
327 MVC = MSGOUTECLMSG1),MSG1 
auien 328 MVC «=- MSGOUT*¢OMIFILE(7) 5 10F TLE 
MESSAGE-1 329 MVC «=—s- ZAMOTLE2)D,=VADOLHSGL O48) 
(327-330) 330 8 TERM 
ERROR 331 cul ZAWPDSC 1,6 FILE CLOSEO? 
MESSAGE 332 BNE 102 
333 MVC = MSGOUT¢OM1THOWEIO) MLAVAL 
334 B 100 
335 STSIRN OC C°0123456 789ABCDEFX® STATUS CODE TRANSLATE TABLE 
TEST 336 102 M¥c ss LOSTS (4), 2AMPSC 
DETAILED 337 TR I1OSTS,STSTEN 
(331-334) STATUS CODE 338 B ABTERS 


AND BUILD 
ERROR MESSAGE 


JOO SH STEAEE SHOT ES EE HEE EE SS VERT ETT EVES OS SETE OO SERESEH ESE SE OEEERHTEEREEEDE 
341 * PROGRAM CONSTANTS * 
392 AHSCOK SHEE EERERENEE EES EELES SERTEAHEEEETHESEETEHES SHOE ES HE OEEESCESEOEEE 





Figure C-7. Sample BAL Action Program SUPPLY Processing 


336-338 
; ) Successive Transactions (Part 5 of 9) 
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MESSAGE AND 
(343-382) OTHER 
CONSTANTS AND 
DICE VALUES 


DESCRIBE 
(387-410) SCREEN 
FORMATS 
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TABLEMT 
TRANACT 
BRANCHM 
BLANK 
S61 
OMIFILE 


OF 1 HOW 


DM3DICE 
LMSL3 
MSG4 
MUTER™ 
MSG5 
MSG6 
OM6LICE 
LMSU6 
MSG7 


OMTUICE 


LMSO7 
» 


SSESSVHSSERVEAE 


* 
SCREEN 
OOICED 


LHEADER 
LIne] 


OLBUI1 
DOTYyPE 
DRbU12 
CLINE} 
LINE2 


LLINE2 
LINL3 


oc 
oc 
oc 


oc 
oc 
oc 
EQu 
oc 
£QU 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
EQu 
oc 
EQu 
oc 
oc 
oc 
EQU 
oc 
£Qu 


EQu 


SUCCESSIVE TRANSACTIONS IN BAL: SUPPLY PROGRAM 


C*TABLEME® 

C*TRANACT® 

C *BRANCHM® 

cLo4s* * 

x*100238C11C489°* 

¥-MSG61 

cL7* * 

C*°-FILE NOT * 

3-MS61 

C °CEFINED 

c*t0 IMS * 

x*10* 

=-MS61 

C*AVATL ABLE * 
¥*1002138G11Cy40° 
C*°APPLICATION NOT OPEN® 
x*1b° 

*-MSG62 

x*100218C11C" 

C*CURSOR REPUSTTIONCO-RETRANSMIT® 
x*10° 

= -MSG63 

x*100204.C* 

*-MSG63 

C2 MESSAGE FROM TERMINAL-®* 
cus* * 

CLZ28%s* 

cLeoe ° 

x*100218u11C* 

C*°NO DATA ENTERED - RFENTER 
x*10° 

*-MSG6 

x*300204L0" 

*-MSG6 

x*°1G0228c011C* 

C*ONLY SUPPLIES OR CGPY PAPER VALID - REENTLR® 
aero? 

*-MSG7 

x*100204L0°* 

*-MSOT7 


SCREEN FORMAT 6584086085 8bs HAE O HEHE RER EERE EEE EERE HE SEES 


od 

x*20020001° 

x*2704° 

xL18°00° 

s-SCREEN 

@ TLPIEDEDELE DADA yD QR QDILALATIAAPTAVIDLAIDIARTIIIIIIAI 
C*SuPLy®* TRANSACTION CODE 

chur * 

x*Ge® START PROTECT FIELA 

C*tyYyPe® 

X*°270S4AGF* TAR~LB-END PROTECT 

cLi® * 

x *OEGF® ST PROVECT<-RB 

s-LINE? 

® 2222222 222222222222 222222 222222222222 22 222222222222 222 
CLI43* ° 

-L INEZ 

* 3333333333333333333 333333 33333333333333333333333333333 
C* BRANCH® 

Clo*® * 

C*SUPPLIES® 

cLg9* ¢ 

C*COPY PAPER® 

cL.ao® *° 





Figure C-7. Sample BAL Action Program SUPPLY Processing 


Successive Transactions (Part 6 of 9) 
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411 LLINE3 EQu *-LINES 





412 LINES ORG Neen nee eee ee LTE LELELELELoLereriey 
413 DOICEG4) OC X*27054A0F ° TAB-LB-END-PROTECT 
414 DOBRC oc cus" ° 
835 DDICEO4Z OC X*NEAF® RB-STARY PROTECT 
4le oc ciue * 
arise ig 417 DDICEO43 DC =x *27054AUF* 
438 DOSUPPLY OC cLio* ° 
FORMATS 419 DpIceo4ss OC K*DEGF® 
420 oc cus® * 
421 DOICEO4S OC x *27054AGF® 
422 pocP oc cLio* * 
423 OCICEO46 OC X*DE4F? 
424 pc X*27OSSCGF4QbE * <> 
425 oc x*10040G00+ 
426 LLINES EQU  s-LINES 
427 LINES ORG = *_-55555555555555555555 555555 555555555555 55555555 555555555 
428 DDICES1 OC x*}0G400G0° 
429 LLINES €QU  *-LINES 
430 LINES ORG = *_—-& 6666. 66.6666666666 66 666666 66 66 6666 66 66 6666 6666 666666666 
431 oc cule ° 
432 DOBKNAME OC cL2s* * BRANCH NAME 
433 DICE2Z41 OC x*10020110° 
434 LLINE6 €QU  ¥-LINE6 
SB STESTESHEKSSEHE SESS SESHESSSITSHSES SVE SSSEHE SI SSCST STEHT SESED HK SS HECKER STOOD SEEDY 
S87 * wORK 
588 SESSCHEHSSAHESS HESS OCSATIV SH HES SEE HS SESS EHES SEEKS SEOETETHST HESTES UKSETHE SOSA SOHTS 
589 WORK DSECT 
590 WORKI os 20 
DESCRIBE 591 VYHMDD 0S CL6 YE AR MONTH pDAY 
(589-603) WORK AREA 592 HHMM Os cis HOURS,MINUTES, 
SPACE 593 ROSAVEL OS F SCREENO 
594 ROSAVE2 OS F DAYTIME 
595 PLIST os 4A PARAMETER LIST FOR “CALLS” 
596 SAVE os 18F IMS SAVE AREA 
597 IOFILE OS cla 1/0 FILE 
598 IOKEY os cus 1/0 KEY 
599 1081S os cua 1/0 STATUS 
600 IOERROR OS ctl 1/0 ERROR RETURN UN NOT DEF INED/AVAIL 
601 wHO os CL3 USER INITIALS 
602 TES! os cll 
603 ERRST OS cul 
604 * 
605 Seueeeeeeeesen TABLE REC 
606 * 
607 TABKEY ODS CL8 
608 TABREC OS cu8o 
DESCRIBE 609 TABSTS EQU  TABREC*8,1 
(607-631) RECORDS 610 LIMIT EQU =TABRECe1Sy1 
USED BY 611 TERMTAB EQU  TABREC#16 START OF TERMINAL FIELDS 
“SUPPLY” PROGRAM 612 ¢ 
613 eeeseeeeeseses SUPPLY CHARGE RECORD 
614 « 
615 OTFKEY DS CLI5 
616 OVFREC DS CL165 
617 WRECIO EQU  DIFRECs1 RECORD 1D 
618 WBRC EQU  OTFRECeL,3 BRANCH 
619 WIRDATE EQU  OTFREC#4,6 TRANSACTION DATE 
620 WIRTIME EQU OTFREC#1G,4 TRANSACTION TIME 
621 wTyYPL EQU DIFREC#14,) TYPE 
622 WSTATUS EQU  OTFREC*1S¢1 STATUS 
623 WSUPPLY EQU GTFREC#16.5 SUPPLY CHARGES-AMOUNT-PD 
624 wep EQU  DIFREC*21,45 COPY PAPER-PO2 
625 * 
626 *eeoteeeetetes BRANCH RECORD 
627 * 
628 BRKEY DS cL3 
629 BRREC os cL250 
630 BRNAME EQU BRREC#13,25 BRANCH NAME 
631 BRbL EQU  bRREC#1954} GENERAL LEDGER STATUS 
O35 HOGEEE SS HEE TEOE EEE ETE TETY THRE SETS DEDEKE HESS EEDE SEES ATENESSE THESE REO ETE 
634 * OMA s 
635 SHEOKEK ESSE ST SHEE SEER HTH ESE SETAE SESS HE SESE 4H ES HEAT ETTSE SETHE TERE ERERS 
636 2MgD04H 


Figure C-7. Sample BAL Action Program SUPPLY Processing 
Successive Transactions (Part 7 of 9) 
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4Souut CL2048 

OIceo MSGOUT*DDICEO=SCREEN,4 

OLINE] MSGOUTeLINEL-SCREEN LUT QDEVATILALIDADILATELADA RELIG 
LBOl! OLINEL*OLBCA1L-LINE? 

OTYPE OLINEL*OGCTYPE-LINE1,) 


DESCRIBE RBG12 OLINE L4UKB912-LINE? 
RECORDS OL INE2 MSGOUT#LINE2=SCREEN 22222222222 2222222222 222222 222222222 
USED BY OL INES MSGOUT*LINES-SCREEN 3333333333333333333 33333333 333333333 
“SUPPLY” PROGRAM OL INES MSGOUT*LINEY-SCREEN 8494494 44 444444 44S 4 RKO 44 Rh 44QG 4K GGG 
DICEI41 GLINE4*D0ICeg4I1-LINES 
OBR OLINE 4*O0BRC-LINE4 3 
DICE O42 OLINES*OU 1CEC42-L INES 
DICEO4 3 OLINES*DUICEQ43-L INEM 
OSUPPLY OLINE4*O0G SUPPL Y-LINE4 410 
DICLO44 OLINES*OQTCEI44-LINES 
DICENSS GLINE 4 sDUICEQ45~L INES 
oce GLINE4*DOCP-LINES 410 
DICED46 OLINE4 *DOTCEQ46-L INES 
OLINES MSGOUT*LINES-SCREEN $555555555555555555 55555555555555555 
OLINEG MSGOUT4LINEG=-SCREEN 6666666 6666 6666 6666 66 66 66 66 66 66 66 666 
OBRNAME OLINE 6 *DUBRNAME-LINE6 525 


(700-721) 





UNIVAC SYSTEM OS/3 LINKAGE EGITOR vercoooesd 
OATE~ 81/04/16 TIME- 13.03 


CONTROL STREAM ENCOUNTERED AND PROCESSED AS FOLLOWS- 


48 

LOADM SUPPLY 

LINKOP ALIB=%Y¥S0BU 

LINKOP OUT=IMSLOD 

LINKOP CMT=*GAY.ANDeTAYLOR® DESCRIPTION 
SUPPLY *RUN LIBE MODULE* 
6ET *hUTO-~ INCLUDED? 
MODRJE *AUTO-INCLUDED® 


*DEFINITIONS DICTIONARY 
SYMBOL. PHASE. ADDRESS. SYMBOL» TYPE. PHASE. ADORESS. SYMBOL. PHASE. ADDRESS. 


ADDKY RooT oog000018 ARETURN ENTRY ROOT ocauo05C BUILD RooT ococoooc 
CLOSE ROOT coooal 90 CMDRB ENTRY ROOT OS 9u0054 DELETE ROOT oC0p0070 
DELKY ROOT ooaoon1ic OL AUR ENTRY ROOT oco90070 OLKCe Poot occooo2s 
ENDCRE ROOT ocooo0so ESEIL ENTRY ROOT oo00007¢ ESLMT ROOT ooooon7c 
FIND ROOT aoo00ley FREE ENTRY ROOT crjo908o GET Root Oe0p0ne4 
GETLOAD ROOT ooooocac GE TUP ENTRY ROOT OcJooog6E GTADR ROOT ocouoo74 
INSERT ROOT Opuooo74 KESALP ENTRY ABS CCUGO6B3 ME SRES ABS 00000883 
LNace ROOT oooooc20 MOORJI CSECT ROOT oc2G00Fo OPEN P00T ooc0o0sc 
OPENF ROOT ooooocec Put ENTRY ROOT oGovadec Rolo ROOT o0000068 
ROIOL Root oa0000C68 RDKEY ENTRY ROOT 06950028 ROKEYL RooT ocooo02c 
ROKYI ROOT ocg00c 30 ROSL ENTRY R001 on3c003C ROSGT POOT eocoon4a 
RDSQL ROOT ooococeo RDSK ENTRY ROOT Ocucoos4 ROSKL ROOT noooo03s 
REBUILD Root ooo00004 RELREC ENTRY ROOT acvogdses RETURN ROOT no0ocotec 
SEND ROOT 90000098 SETL ENTRY ROOT 0CuG0076 SETLOAD RooT oro00010 
SWAP ROOT occoooss SSLUCK ENTRY ROOT Oo0aG04, SSUNLK ROOT orocoo4e 
STCRL ROOT ooug004C STLMT ENTRY ROOT OGOU0075 SUB ROOT 00000014 
SUBPROG ROOT ooo00014 SUPPLY CSECT ROOT 0700010C UNLOCK ROOT ocooo0ss 
WRID ROOT ooacooec XR7OMS ENTRY ROOT ococoooe ZF wLINK ROOT oc oo0000 





Figure C-7. Sample BAL Action Program SUPPLY Processing 
Successive Transactions (Part 8 of 9) 
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#2 ALLOCATICN MAP #9 
LOAD MODULE - SUPPLY SIZE - NGOUC de 3 
PHASE NAME TRANS ADOR FLAG LABEL TYPE €s1o LNK CRO HIADDR LENGTH OB ORG 
SUPPL YCO NODE ~ ROOT ocococoLu 26 0C0RR2 90009883 
eee START OF AUTO-INCLUDED ELEMENTS - 
- 79/06/28 186.40 ~ ZFaLINK OPu 
ZFRLING CSECT a1 a50c0cuL ococacer aCOGOPEC aooconcs 
XRTOMS ENTRY G1 g20000Ge ooooo0cs 
BUILD ENTRY uk 3cOCcOGUL 90060000 
REBUILU ENTRY an a9gc5%%4 ooucocos 
GET ENTRY 0) d00L Cl es ooocotes 
GETuP ENTRY a} DOCLODes ococotes 
Pull ENTRY 0} OcG.scec oooconec 
DELETE ENTRY io} ONOLOCIL ocoooe7G 
INSERT ENTRY oO) a00uoc 74 JooUsNTy 
SETL ENTRY ol aoclac7s ocoono7e 
ESETL ENTRY an ooococ7c ocuooo7c 
FREE ENTRY 01 acococKaE scucocec 
RELREC ENTKY 0) oodccoles 900cac8s 
UNLOCK ENTRY oi OOGLGlbE 70000088 
OPEN ENTRY 0) adc ucccaEc aOoCOCaC 
CLOSE CNTRY 01 scucocyu acounnen 
FING ENTRY o1 aJ90L0094 ocacac94 
SEND ENTRY a1 OSOCOCS. NOOLHO96 
RET YRS ENTRY O1 acocooyc orocorec 
ARETURN ENTRY 0) ocouocse acouoesc 
SNAP ENTRY o1 30000058 oogccoss 
SuB ENTRY o1 an0u0014 ococoals 
ROSOL ENTRY o1 O00LOCSE Soou008L 
GTADP CNTRY ul OSO0LO07T4 ocoo0o74 
OLAGR ENTRY or oooLoc7o o0goc07t 
ADOKY ENTRY ay Joccacies ooouonls 
DELKY ENTRY a1 ooocecic oC 0L00IC 
LNKCP ENTRY Ql ococecet O0000n2, 
OLKCP ENTRY 01 acsocacea 9Coc0n24 
wRIpb ENTRY oO) occcocec ooo000ec 
RO1G ENTRY 01 ocococes oco0o0e4 
ROIGL CNTRY 01 oOCLCOCboE NGouooes 
ROKEY ENTRY Ol ocacoles ococoo2s 
ROWE YL ENTRY a1 a0ovn0ec acouo0ec 
ROKyI ENTRY or acocor3e 90059937 
ROSR ENTRY ol 906C0034 90060034 
RosRt ENTRY 0) 2200003e NOUN se 
ROSU ENTRY Q1 aooccce3c ococoo3c 
ROSeI ENTRY 0) OGOCCO4LE soocooac 
STLMT ENTRY 01 GCOLOCT»b oroo0n76 
ESuMT ENTRY 01 ococan7c oo00C007C 
SSLOCK ENTRY ol go0ccras ocogon44 
SSUNLK ENTRY 2B} o0CcCoOlae ocococas 
STCRE ENTRY a1 a0ol 04sec ocacocsac 
ENDCRLE ENTRY a) OGCCOC Su o00coe sé 
CMURB ENTRY 01 OoCLOLS4 ogocoess 
OPENF ENTRY 02 200uNCete ococoosc 
SUBPROL ENTRY 3) ooGL0CI4 scoooors 
SETLOAU ENTRY a1 aooccoie 59000016 
GETLOAL ENTRY a) ooccceouc ocacuonoc 
- 76/12/20 09.48 - mcoRJI) OB 
MOOR JI CSECE 1 SICCOCFL GeUuceics OCGCINDA a000000G 
wee END OF AUTO-INCLUDED ELEMENTS - 
- 81/08/16 12.58 - SUPPLY oBy 
SUPPLY CSECT 0} JOSE IDG ICCCOESZ COGC56E3 soococce 
60090 100 
FLAG CODES - 
6 - BLK DATA CSECT O - AUTO-DELETED t - EXCLUSIVE *A* FEF G - GENERATED EXTRN 1 - INCLUSIVE "y* REF 
tL - OEFERRED LEXGTH M - MULTIPLY DEFINED No - NOT INCLUDEU P - PRGMCTED COMMON R - SHARED REC PRODUCED 
S - SHARED 1TEM U - UNDEFINED REF Vo- VCON ITEM 


*ANY OTHER CODES REPRESENT PROCESS ERRORS# 


LINK EOIT OF *SUPPLY® COMPLETED 
DATE- 81/04/16 TIME- 13-05 
ERRORS ENCOUNTEREO- O000 UPSI~ Keuc* 


Figure C-7. Sample BAL Action Program SUPPLY Processing 
Successive Transactions (Part 9 of 9) 
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C.4. SAMPLE BAL ACTION PROGRAMS PERFORMING DIALOG TRANSACTIONS 
(APCHKS SERIES) 


APCHKS and APITMS The APCHKS action program uses delayed internal succession to 

action programs call the APITMS action program (Figure C-11). The APITMS 
action program uses delayed internal succession for error 
processing to return to the APCHKS action program for changes 
or corrections to records. 


The APCHKS Action Program 
APCHKS description The APCHKS action program (Figure C-10) either adds new 


records to the master vendor file or updates and corrects records 
on that file. It also ends by accumulating a batch total of all 


checks paid. 
Output screen formats When the terminal operator enters the transaction code, APCKS, 
input the APCHKS action program builds a screen format as output, 
which is queued as input to the APITMS action program. 
Delayed internal Here, APCHKS uses delayed internal succession (Figure C-10, 
succession lines 647-652) to call the APITMS action program (Figure C-11), 


which in turn sends out the screen format shown in Figure C-8. 











Rie a Rawle ol eae ae Re ew AP CORE COR S: edness den ake see Re ee eee 


NAME: 
ADDRESS LINE-1: 
ADDRESS LINE-2: 
CITY & STATE: 
ZIP CODE: 
MOUNT: DATE: /__/__ OVERRIDE CHECK #(SUPPRESS PRINT): 
































Figure C-8. Screen Format 1 Generated by APITMS Action Program 
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Processing APCHKS 
program 


File updating and 
succession 


Operator entries 





The operator can add or change a record on the vendor master 
file, VENDORM, or end the work session and obtain a checks 
total. When adding or changing a record, he must supply a check 
number and vendor number followed by the name and address of 
the new vendor or vendor for update. In addition, he must supply 
the amount of the check for that vendor and the date, place the 
cursor, and transmit. 


This transmit reschedules the APCHKS action program which in 
turn validates the new or updated vendor record data, adds it to 
or changes it in the vendor master file, and uses delayed internal 
succession to pass control to the APITMS action program. 


The APITMS Action Program 


This program (Figure C-11) receives control from the APCHKS 
action program and generates a screen (Figure C-9) for the 
operator to enter the item invoices designating account number, 
amount of check, description, and whether the check is for an 
employee or for income. 























APTUS> ioisctceie tee patente as aed AP IT TEM ENTRIES  caccenescnccccace 
ACCOUNT AMOUNT DESCRIPTION E/I EMP 'IR'! 
000. ATTACHED INVOICES < > 
O01. < > 
002. <> 
003. < > 
004. < > 
005. < > 
006. < > 
007. < > 
008. < > 
009. < > 
010. < > 
011. < > 
O12. < > 
013. < > 
O14, < > 
915. < > 
O16. < > 
O17. < > 
018. < > 
019. < > 
CHECK :63426 CHECK AMOUNT: 3,391.48 PAYEE: EQUIFAX SERVICES 





























Figure C-9. Screen Format 2 Generated by APITMS Action Program 
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Operator entries After the terminal operator enters all item invoices, he can place 
a cursor in position and transmit or place an ‘R’ in the cursor 
position and transmit. 


Placing cursor in If he places a cursor in the cursor position, APITMS: 
position : 
m verifies all invoice entries by calling itself for each screen of 
20 invoices until a blank line is reached; 


™ accumulates all amount fields for comparison with the check 
amount for that account; 


a writes an APITMS record for each invoice line entered on 
the screen; and 


™ creates a format on the screen with a prompting message to 
tell the operator how to print a check from the terminal. This 
format is not shown here. 


Validating changes If the check amount is not equal to the item invoice total, 
APITMS returns control to APCHKS and displays the erroneous 
record for the operator to make changes to the item or add new 

Correcting errors items. Again, it verifies the changes and when correct, either 
creates a format for checks to be printed or allows for an 
account review. 


Entering ‘R’ If the terminal operator enters ‘R’, APITMS passes control to 
APAUDT, which returns a screen containing invoice entries. 
APAUDT is not illustrated here. 


Obtaining batch totals At the end of a session, when the operator chooses the END 
option on the APITMS screen format 1 (Figure C-8), check totals 
have been accumulated in the AP header record of the APCHKS 
file. APCHKS then returns to the screen the batch total of all 
checks entered for that session. 
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LINE SOURCE STATEMENT 0S/3 ASM 

2 APCHKS START O 
3 ERTSER SAEED SESSEKSHK SSE STREAKS SESE ATHE SHE SHSSSHESSSEGSE ISS SKE SESH HS VESEH HSERE 
4 * AUTHOR =: R L LEONARDO 

5 +# DATE ¢: 12 MARCH 1989 

6 * SITE =: GAY E TAYLOR INC, WINSTON-SALEMs NCs 27302 
7* PURPOSE: TO ADD AND CORRECT RECORDS FOR ACCOUNTS PAYABLE 
8 * CHECKS 

9 * CHANGE LOG 

10 CE RERERE CHAT LEEKS E ERSTE HS ESE S Gy BESSEAT SSIS HKTAE SLE HEHE HS ETRE STATS 
11 YSSSTART eSTARTING CONVENTIONS 

| .3ey¥ssB EQU * START OF PROGRAM 

1408 

159 Oeogheteeeneee REGISTER EQUATES 

164% 

17+#RO EGu soo 

184R] Equi 

194#R2 FQU 2 «PIB CCVER 

204R3 EQU 3 .IMA COVER 

21°R4 EQU 4 .WORK COVER 

224RS EQU 5 «OMA COVER 

234R6 EQU 6 eCDA COVER 

244R7 EQU 7 eINTERNAL ROUTINE: LINKAGE 

25+R8 EQU  & «1/0 - NORMAL RETURN ADDRESS 

264R9 EGU 9 «I/O - ERROR RETURN ADDRESS 

27*RIG EQU 10 ePROGRAM COVER #3 

284R}1 EGU 11 PROGRAM COVER #2 

299R12 FQU 12 .sPROGRAM COVER al 

30*R13 EQu 13 

31eR14 EQU 14 

32*R1S Equ 15 

3308 

Jyreeanengseeesae ESTABLISH PROGRAM COVERING 

35e¢ 

36+ USING *4212,R11,P10 .PROGRAM CODE 

374 USING ZA#DPIpeR2 »PIB 

38% USING ZAyIHH,23 e1MA 

394 . USING WORK,R4Y oWORK 

woe USING ZAHOMH,RS .OMA 

aie USING CDA,R6 .CDA 

424% 

Y3oeeecaoeeeeeees ESTABLISH IMS INTERFACE 

4yee 

45* STM R14,R12,120R13) «STORE REG IN CALLS* SAVE AREA 

46% LR R12,R15 .ADORESS OF THIS PROGRAM 

a7 LM R2,R6,0(R1) .ACTIVATION AREAS FROM PARAM 

age LA R11,SAVE «THIS PROGRAM SAVE AREA 

494 ST R11,8€,R13) .PUT THIS SAVE INTO CALLS* SAVE 
Sy ST R13,4(,R11) .PUT CALLS* SAVE INTO THIS SAVE 
51+ LR R13,R11 .REG 13 = THIS SAVE AREA 

526 LR R11,R12 .SECOND PROGRAM COVER 

534 LA R11,1 (R11) 

S44 LA R11,40SS5¢R11) 

55+ LR K10,R11 «THIRD PROGRAM COVER 

Soe LA R19,1¢R1C) 

574 LA R10,40956R19) 

SB GETIME # 

59+ OS oH 

60+ LA Let 

61+ svc 7 

62¢ St R1,ySTIMG .STARTUP TIME 


Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 1 of 22) 
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64 DROP Rb eNO CDA 

65 PRINT GEN 

66 BAL R7,eDAYTIME eGET OATE-TIME 

67 * 

68 tuseeeees OPERATOR CANCEL 

69 * 

70 CLI IMA#4,C*C® 

71 BE EmMSG8 CANCEL 

JTS SSAC SSSR CESS HASHKE SS ES SESE SSSEKSE SESS SES SESS SS SK SESH SSHSSSKSEHKHASEKEASEKSE SE 
73 =* CHECK SECURITY 

74 HE ORGY Oy TASKS HH EHS HS SG EK HS SETS HERE HEHKSS ISG SHKSE SEHK SEK ESSLHS SHES EH 
75 MVC PASSKEY(5),=C *APCHK* 

To YSSSECUR eCHECK FOR OPEN-VALIO 

TT ESKRAKRE SES By eH THEMES KAKIKREKRSERES SRHS EKG HSH SEK EKHESEKS SKK EKSKSEKSE SESE HSE SESE 
78e* CHECK SECURITY FOR OPEN APPLICATION * 
790% 

804% ASSUMES KEY IN FIELD “PASSKEY™ * 
CLF eS KEKE SEEKER EEE SESSA RS SSEKEEEESE SHES SYS Hg FEST KKEERERES AREER SESH SEDESS 
82+ MvCc KTABLEMT€¢3),=C*T&O® 

83¢ MVC KTABLEMT*3(5) ,PASSKEY 

84 LA RG,Y$$N020 eNO FIND ADORESS 

85+ BAL R8,GTABLEMT GET SECURITY RECORD 

86+ cul TABSTS,C*® * RECORD ACTIVE? 

87+ BNE ¥$¢0020 .NO 

684 MVi WORK1L»X*°GO*® .SETUP TO CVB 

89+ MVC WORKI41¢7),WORK1 

90+ MVC WORKI*Q9°02),ZqaRISTIQN*2 JZ TERMINAL 40 

91+ PACK WORK146(2) pdORKI*862) 

92+ cve Ri,sWORK1 . TERMINAL FIELO COUNTER 

93+ LA R7,TERMTAB-4 BEGINNING OF TERMINAL FIELDS 

94¢4¢Y¥330010 LA R7,4ER7)} NEXT TERMINAL FIELOS 

95+ BCT R1,¥3$0010 .COUNT DOWN TO THIS TERMINAL 

964 CLC 0¢3,R7),-C* ° ~OPEN? 

97+ BE ¥$$0G20 .NO 

98+ MVC WHOC3},0€R7) SAVE USER INITIALS 

99+ CLC 3¢1,R7},LIMIF sOPEN BUT OVER LIMIT (SET DOWN?) 
100+ BNH ¥$$0030 .NO 

101*Y¥$$5020 MVC OMACLYS$M1),¥YS33M]1 APPLICATION NOT OPEN 

102+ MVC ZAMOTLO23 ,=YCO*LYSEM1 74) eMESSAGE LENGTH 
103 B TERM 

1C4¢YES3ml1 oc x*1OGAIB8C1IC® 

105+ oc C*APPLICATION NOT OPEN® 
106% oC x*3010020000* 

LOV*LYSSM]1 EQuU *~-YSSM) 

110 VESTRAIL A 
111+ PRINT OFF 

121+ PRINT ON 

122 CLC IMA@11¢03},=C°ADD® TRANSMIT PROTECT? 

123 BE EMSG1 yYES 

LZ24 SHOES RESKSEKA SHE SSECSE KK SEKESEK SES SES KEES SEK SESE KKEEKSEHEKSE KE THK EREHESRS EH 
125 *# INITIALIZATIONS 

L126 SSSSaS SSK HE KS HE SEHK ESRYE SESS SHS SSHS SKSESCHH SESS SSEESEOKKS SK ARHKEKHGSESE SD 
127 YSSIN 11 EXTRACT SCREEN DATA 

128+ LA RO,l1l eSCREEN NUMBER 

129+ BAL R8,MOVETIN .GO TO INPUT SCREEN ROUTINE 

130 MvIL FIiLL,C*_* SETUP PROTECTED REPLACEMENT 
131 MVI PSTART,C*&:* 

132 MVC PSTART#1L¢LPOATA-1),PS TART 

133 MYC PMSG1¢(8O),BLANKS 

134 MvI USTOP,X*FF* 

135 MVI PSTOP XxX *FF® 


Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 2 of 22) 
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OSSSSR OTe ete GET AP HEADER 


s 


L0C3032 


L0034 


t0G59 


* 


MVC 
MVC 
LA 

BAL 
MVC 
cL 
BE 


KACCTPAY BLANKS 
KACCIPAY(2),=C°AP* 
R9,EMSG2 
R8yGACCTFAY 


HACCTPAY(165) sRACCTPAY 


UCHG,C® ° 
LO034 


ERRORS FROM ITEM ENTRIES? 


LA 
™ 
B2 
MVC 
ED 
LA 
™ 
BZ 
MYC 
LA 
™ 
BZ 
MYC 
LA 
CLC 
BH 
CLC 
BE 
MVC 
B 
EQu 
cLI 
BE 


OHSS SSE HS HSE 


* 


Lo0e3 


PRINT 
PRINT 
AP 
MVC 
MvC 
MVC 
MVC 
MVC 
cul 
BE 
LA 
BAL 
MVC 
mvc 
MVC 
MvC 
PACK 
ED 
MVC 
EO 
PACK 


R9,PMSG1 
APHERR,X°O1® 

Loc 3o ; 
O(LMSG9,RI)DMSG9 
DM9A(12,R9),APHITMT 
ROL MSGIL,RYI) 
APHERR,X*Q2° 

L0032 
CILMSG1C0,R9},MSGIC 
R9eLMSGIC(,RD? 
APHERR,xX* Ou" 

LOoQ34 
GCCLMSGI1,R9)-MSG11 
RIsLMSGI1(,R9) 
ZARITLOE2),=VU9+1MAI?) 
L3ces0 

APHCHKCT(5) ,5bLANKS 
FORMAT 
UCHECK E53 ,APHCHKCT 
FORMAT 

x 

UEND,C® * 

t0100 


“NOT FOUND" 
GET HEADER 
SAVE RECORD 
CHANGE ? 

NO 


ERROR MESSAGE 
ITEMS=CHECK? 


Yes 

NOT= 

ITEM TOTAL 
NEXT POSITION 
CASH=0? 

YES 

CASH NOT=9 


NEXT POSITION 
ACCRUAL=9? 
YES” 
ACCRUAL NOT=G 
NEXT POSITION 
INITIAL SCREEN? 
NO 


FORMAT SCREEN 
FORMAT SCREEN 


ENO OF BATCH? 
NO 


END OF BATCH 88588498 WOO OHS EEE EES EEE HS EERSTE SES EE 


OFF 
ON 
APHREPT(S) ,APHBAICHIS} 
RACCTPAY(165) gHACCTIPAY 


YESTRAIL B 


RACCTPAY*#2(6),-C*ZBATCH® 


RACCTPAY*8(3) sAPHBATHN 
RACCTPAY*41(02),YYMMDO 
RACCTPAYs37(4), YYMMOD 
UEND,C*N® 

Laceo 

R94Y$$10S30 
RB,IACCTPAY 
OMA(LMSG3) ,MSG3 
oMA+0M3A03),APHBATHN 
WORKI*4 (2), YYMMDD 
WORKI(4), YYMMOD #2 
WORK1*6(4),WORKIC6? 
OMA*DM3B (10) pWORKI 46 
OMA+DM3C C3) ,APHCHKS 
OMA*+DM3D(14),APHBATCH 
WORK 102) ,APHBATHK(3) 


NO OUTPUT RECORD? 
YES 

ERROR 

INSERT BATCH RECORD 
“TOTALS” 

BATCH a 


DATE 

M OF CHECKS 
AMOUNT 

ADD 1 TO BATCH 4 


Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 3 of 22) 
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AP WORKI(23},=P*1° 

UNPK APHBATHN(3),BORKI(2) 

Oo] APHBATHN#2,X*°FO* 

MVC APHCHKCTES) ,BLANKS 

SP APHBATCHES}) ,APHBATCH(5} 
KVC APHCHKS(2),=C*OCG® 

MVC APHVODS(3),-C*O00* 

MVC APHITMS (€3),=-C °OO0® 

MVC APHERRS(3),=C*p0G" 

MVC APHITMC(3),=C "90g" 

MVC ZAWOTLE2}) g=YLOeLMSG324) 
MVC KACCTPAY C15) ,BLANKS 

MVC KACCTPAY(2),=C*AP® 

CLI UEND,C*N®* 

BE TERM 

LA R9,YS$10S30 

BAL R8,UACCIPAY 

MVC RACCTPAY(165) ,HACCTPAY 
BAL R8,PACCTIPAY 

B TERM 


CLEAR COUNTERS 
BATCH TOTAL 


ITEM COUNT 


NO OUTPUT RECORD? 
YES 


RESTS ye KERHESE SEAR KRRE SESE ERE RERSE SHAKERS EE SESH SESE TE EEK RHEE 


* VALIDATE Line 1 


SASSER HS SESE KSSH SH SK SHARK IKSS SHUSHS SH KRESS AHR SK SHARES HT HGH He HH 


* 
VHRR SR EERE CHECK FOR ADO/CHANGE 
* 
L0100 EQU ¥ 

PRINT OFF 

PRINT ON 

MVI APHPRNT,C®* ° 
cLI UADD,C® * 
BNE Lo140 

CLI UCHG,C*® * 
BNE L0146 

MVI PADD ,X*1C* 
MVI PCHG,X*1IC®* 
MvI ERR,C*TY® 

B 10360 

CLI UADD,Ce e 

BE L0160 

cul UCHG,Ce * 
BNE 10120 

EQU x 

MVI APHAOC,CtA® 
CLI UCHG,C*® * 

BE LO0165 

“VI APHAOC,C*C* 
* 
TERETE ATHE ES 
* 

* 

TH STHy Hy Ete Tt 
* 
LO165 


TRANSMIT POSITION 2 


TYPE 


CLI UTYPE,C* * 

BE (0170 

MVC APHTYPE C1) ,UTYPE 
B Lo17Ss 

LOo179 MVI APHTYPE ,C°N® 
x 

ee anekeseceeae CHECK NUMBER 





CHECK ADD-CHG 
YSSTRAIL C 


CLEAR CHECK PRINT 


AOD 


CHANGE 


TYPE ENTEREC? 


NEW CHECK 


Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 4 of 22) 
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276 * 

277 0175 CLC UCHECK E53, BLANKS CHECK ENTERED? 
278 BNE L9186 YES 

279 MVvC UCHECK(5} ,APHCHKCT USE NEXT CHECK 
280 t618d LA R1,UCHECK 

281 BAL RT,RSS RIGHT JUSTIFY 
282 BZ L3200 

283 10199 Mui ERR,C*Y® SET ERRORS 

284 MMVI PCHECK ,x°1C* 

2a5 B L0236 

286 L0205 CLC UCHECK(53,-C*IG0cC0"* ZERO CHECK? 

2eaT7 BE L3190 

288 CLI yADD,Cc*® ° ADD? 

289 BE 1.021C NO-CHANGE 

290 MVC APHCHKCT(5),UCHECK RESET NEXT CHECK 
291 MVC APHCKECK ES) ,UCHECK SET CURRENT CHECK 
292 B LO230 

293 £0210 MVC APHCHECK (5) ,UCHECK SET CURRENT CHECK 
294 *& 

295 * GET UPDATE CHECK DATA FOR SCREEN 

296 * 

297 CLC ZAMITLO2) ,=VIO*IMAS) FULL SCREEN? 

296 BH Lo0230 YES 

299 YSSTRAIL F 
300¢ PRINT OFF 

310 PRINT ON 

311 MVC KACCTPAYE15) sBLANKS GET CHECK 

312 MVC KACCTIPAY(2),-C°AC® 

313 MYC KACCTPAY*2(6) ,APHT YPE 

314 LA ROsEMSGY 

315 BAL R8,GACCTPAY 

316 MVC CACCTPAY6165) ,RACCIPAY MOVE DATA TO CHECK WORK AREA 
317 MVC UVENDOR(S) ,APCVENDR 

318 MVC ULEGEND (25) ,APCLEGND MOVE DATA TO SCREEN 
319 MVC UNAME (26) ,APCNAME 

320 MVC UADOR1¢25),APCADOR) 

321 MVC UADDR2Z€25) ,APCADDR2 

322 MVC UCITY(25) ,APCCITY 

323 UNPK UZIP(5),APCZIP (3) 

324 UNPK UAMOUNT#1 (9) ,APCAMT(5}) 

325 MVI UAMOUNT,C*O* 

326 cp APCAMT(5) ,=P* 0° 

327 BNL LO212 

328 MVI UAMOUNT,C*-* 

329 Oy UAMOUNT49 ,X°FO® 

330 10212 yUNPK yORK1¢7),APCDATE(4, 

331 MVC UDATE (6) ,WORK1 +) 

332 OI UDATE*S,x*Fo" 

333 cul APCPRNT,C®*® * 

334 BE LO0236 

335 MVC UOVERIOE (5) ,APCCHECK 

336 * 

337 84,343 46H8eSe TRANSMIT POSITION 3 

338 * 

339 LO230 CLC ZAWITLE2) »=YCO*IMAZ) POSITION 3? 

349 BL L3360 

34] 

342 ee uvenecesexyes GET VENDOR 

343 « 

344 LO260 cil UVENDOR,C °E ® EMPLOYEE? 

345 BNE t.0300 NO 





Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 5 of 22) 
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433 
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mvc KPAYROLL (4), yVENDOR?) GET EMPLOYEE 
MVI KPAYROLL*4,C*°9* 
LA R9,LG320 
BAL R&B »GPAYROLL 
MVC VMNAME (26) ,PMNAME 
MVC VMADOR1(3),P4BRw BRANCH OF WORK 
B (0336 
tc3c0 MVC KVENDORM(5),UVENDOR GET vENDOR 
LA R8,L0330 
BAL R9,GVENDORM 
t0320 MVI PVENDOR,xX*1C* 
MVI ERR,C*Y¥* 
B to360 
L0330 CLC 2An TIL 02) ,=YCO*IMAg) FULL SCREEN? 
BH t0360 
* 
* MOVE VENDOR 70 SCREEN 
* 
cul UVENDOR ,C "E ® EMPLOYEE 
BE L0335 
MVC UNAME (26) , VMNAME NAME 
MVC VADDR1C625),VMADDR1 LINE } 
MVC UADDR2(25) .VMADOR2 LINE 2 
MVC UCITY€25) ,VMCITY CITY AND STATE 
MVC UZIP(S),VMZIP ZIP CODE 
8 LO340 
to335 MYC UNAME (26) ,PHNAME NAME 
MVC UVADOR1¢63),PMBRW BRANCH OF WORK 
2 
ee Sete Oe seseeee CYSTEM DATE 
* 
LO340 MVC UDATE (4&4), YYMMDDe2 
MY¥C UDATE*4(2),YYMMOG 
* 
eOSSe YAR EAeEHEE ANY ERRORS ON LINE 1} 


* 


L0360 CLI ERRyCtY® ERRCRS? 

BE FORMAT 

YSSTRAIL E 

PRINT OFF 

PRINT ON 

CLC —-_ ZAwIVL 62) 9=¥C0%IMA3) FULL SCREEN? 

BH Loso0 VERIFY FIELDS 

-MVI  -UTRAN2,C*.* FLAG TO EXPECT Full SCREEN 

B FORMAT 
SEL S Ee EAHA KSKKSS SER ES SES SRY SS SSSKHS SVKEKK EK SA RKSKSKHA HK EASEKRHS ENR 
x VALIDATE SCREEN DATA 
ROKK KR SK SSK KEE KS SHOES HE KKK SK HES SS HK SK SE SEK HEKHK HES SK HK KERERS OED EK 
Losoo eQu 

CLI UTRAN2sC*.° SHOULD BE FULL SCREEN? 

BNE  EMSG7 NO 


x 
SeSeEeSERERE SS CHECK NAME 
x 
CLC UNAME €26) ,PLANKS 
BNE L39504 
MVI ERR,C*Y” 
Mv PNAME gX*1C® 
x 
#OREEREREBEHEE CHECK CITY 
* 


Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 6 of 22) 
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CLC UADORZ 625) sBLANKS 
BE LOoso7 
cLc UCITY*2005) ,BLANKS ROOM FOR ZIP? 
BE 10507 
MvI PCITYsy%1iC° 
MvI ERR,CtY®* 
Loso7 EQu * 
* 
etecetveygeeeeee CHECK ZIP CODE 
= 


YESTRAIL G 


PRINT OFF 
PRINT ON 
LA R1L,UZIP VALIDATE 2IP cODE 
BAL = RT_RJ5 
BZ L0510 
MVI = - PZIPy»X*1C* 
MV1 —soERR,C*Y¥® 
* 
PESEE Hee tte CHECK AMOUNT 
* 
Lo5ic EQU 
MVC PMSG1¢10) ,UAMOUNT SAVE INPUT 
LA R1,UAMOUNT VALIDATE AMOUNT 
BAL R7,RJ10 
BZ L9520 
MVI  =PAMOUNT,X*IC® 
MVI -ERR,CtY® 
B La540 
CLI. UAMOUNT,C*D® AMOUNT TOO LARGE? 
BNE t9515 YES 
IS THIS A VOID CHECK? (NEGATIVE AMOUNT? 
CLI UTYPE,C*® * TYPE ENTERED? 
BNE L0540 YES-SKIP 
CLI UCHG,C*® ° CHANGE? 
BNE t0540 YES-SKIP 
PACK WORK1#11¢5),UAMOUNT#1 (9) 
cP wORK1*11¢5),=P"O* NEGATIVE? 
BNL LO54O NO 
MvI APHTYPE ,C*Ve VOID CHECK 





* 
SeHeaVCevetceees CHECK DATE 
* 
Lus4o MVC WORK1(2) ,UDATE #4 VALIOATE DATE 
MVC WORK142(¢4) ,UDATE 
BAL R7,DATCHK 
Bz L9566 
MVI PDATE ox *1C* 
Mui ERR,CtY® 
* 
_*eeeeeeesewaee CHECK OVERRIDE CHECK NUMBER 
Lo560 EQU *x 
CLI APHTYPE ,C °v? VOID CHECK? 
BNE t9565 
CLC UOVERTOE¢5),BLANKS 
BNE LO565 OVERRIDE 
MVC UAMOUNT(10),PSG1] RESTORE INPUT AMOUNT FIELD 
MYC PMSG)(LMSG12),MSG12 
B Lo575 
cLc UOVERIDE €5),bLANKS 
BE 0600 





Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
Delayed Internal Succession (Part 7 of 22) 
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486 LA R1,UOVERIDE 

487 BAL R7 RUS 

488 B2 LO560 

489 LCS75 MVI POVERIDE ,x*ic?* 

490 MVI ERR,CPY® 

491 B LO600 

492 L0560 MVI APHPRNT,C °N® , SUPPRESS PRINT FLAG 
493 MVC APHCHE CK (5), U0VERTOE OVERRIDE CHECK NUMBER 

494 & 

CRM LE LI LESS ES Tee ee eee Te Te PER LST OTeLEIeLELeTEreie rere tr tererere ty 
496 * ANY SCREEN DATA ERRORS 

497 * 

498 L0600 EGU * 

499 YSSTRAIL H 
500 PRINT OFF 

510+ PRINT ON 

511 CuI ERR,C*Y® ERRORS 

512 BE FORMAT YES 

513 88 OSS O Hy SESH EKRE SEEKS SHOTS TERE HK AE SE ATHY LES SHEE EH AHHEEDE SEES EE 
514 * ADO/UPDATE CHECK RECORD 

515 SEEKER SE EKEKEE SS SHEE EEHE SHEE HT ATHEAE SE KAHE SEER SKEETER EKSTE SHE EHS ED 
516 YSETRAIL L 
S17+ PRINT OFF 

527+ PRINT GON 

528 MvI CACCTPAY,C* * 

529 MVC CACCTPAYS1¢164),C ACCT PAY MOVE DATA TO CHECK 

530 MY¥C APCRID(2),=C*AC® 

$31 MVC APCTYPE C1), APHTYPE 

532 MVC APCCHECK (5) ,APHCHECK 

533 PACK APCIDATEC4D sYYMMUDEG) 

534 PACK APCDATE (4) ,UDATE 

535 MVC APCVENDR(5) ,UVENOOR 

$36 PACK APCAMT¢(S) ,UAMOUNT41I(9) 

537 MVC APCNAME (26),UNAME 

538 MVC APCAGOR1(25),UADURI 

539 MVC APCADDR2(25) ,UADOR2 

549 MVC APCCITY(25),uUCITY 

541 PACK APCZ1P(3),UZTP(5} 

542 MVC APCLEGND(25) ,ULEGEND 

543 MYC APCPRNT¢€1),APHPRNT 

544 SP APHOLD(5) ,APHOLO( SE} 

545 cLI UCHG,C® ° 

546 BNE Lo7¢G0 

S47 MVC RACCTPAY(165) ,CACCTP,Y ADD CHECK 

548 LA R9,EMSG6 

549 BAL RB,IACCTPAY 

550 CLI APCPRNT,C°N®* WAS CHECK TO PRINT? 

551 BE Lo720 NO 

552 PACK WORK1(3),APHCHKCT(S) UPDATE NEy? CHECK NUMBER 
553 AP WORKI¢3),=P°%; ° 

554 UNPK APHCHKCT(5),WORK] (3) 

555 oI APHCHKCT #4 ,X*FO® 

556 B LO720 

$57 MVC KACCTPavt15),CACCTPAY UPDATE CHECK 

558 YESTRAIL I 
SS9° PRINT OFF 

5694 PRINT ON 

570 LA ROsEMSG4 

571 BAL R8,UACCTPAY 

572 YSETRAIL M 
S73¢ PRINT OFF 





Figure C-10. APCHKS Action Program Processing a Dialog Transaction with 
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583¢ PRINT ON 

584 MYC APHOLD(5} ,aPAMT 

585 MYC KACCTPAY(165),CACCTPAY 
586 BAL R&»PACCTPAY 

587 * SETUP HEADER WITH CHECK INFORMATION 
588 L0720 MVC APHITMC(3),=C"gG1°* 

589 MVC APHDATE (6) pUDATE 

5995 MVC APHVENDR(5) ,UVENUOR 
591 Zap APHAMT(5) sAPCAMT€5) 
592 ZAP APHITMT(5),=P °0°* 

593 MYC APHNAME (26) ,UNAME 

594 MVC APHLEGND(25),ULEGEND 
595 sp APHACCR(S) ,APHACCRES) 
596 ZaP APHCASH(5) ,=P "0° 

597 SP APHCASH (5) yAPHAMT(5) 
598 MVI APHERR,C* ° 

599 MVI APHDONE,C* * 

600 MYC ZANPSID¢6} »=C*APITMS® 


CCL AER HERE EEEAERERE RT RE HE ETHEL EK ET AT AETEE RAKE EEK IEEE EHR H 
602 * UPDATE AP HEADER 

603 HE aKEE EKER AE HE ETET ETH ETHER TES HAT HOB EES OSES TET ES OT OT ETE CEES EY 
60% UPHEADER EQU * 





605 YESTRAIL J 
606+ PRINT OFF 

616+ PRINT ON 

617 MVC KACCTPAYO€15}3,BLANKS 

618 MYC KACCTPAYt2},=C°AP® 

619 LA R9.YS$S$I0S30 

62) BAL R8& ,UACCTPAY 

621 MVC RACCTPAYC165) ,HACCTPAY 

622 BAL RB,PACCTPAY 


623 SERENE ET ET EKET ES HEE ERE GEERT ETHER ET RE KEEE EEG SEAST HSA HS HERES 
624 « FORMAT OMA 

625 «& 

CWA Tere Pe PC CTC SSE SELES ES Se Peer i ett T ere TiTeTrrTtITTTTTTITTTLTTTerTrTT tt 
627 FORMAT EQu * 


628 YSSTRAIL K 
6294 PRINT OFF 

639+ PRINT UN 

640 MVI USNAP,C® * CLEAR SNaP CODE 

64] Y$SSOUT 11 

642+ LA RO,1] .SCREEN NUMBER 

643+ BAL RB»MOVEOUT .SCREEN AND DATA 

C44 HRSA REAR H RE SO KES EHTS ESE REESE STAGES OTK KET SHEET ERERS OEE EE 
645 * SETUP NEXT TRANSACTION 


6496 SERIES HSSEKAETE SS HHO SS STEER EK EKKE HSH EEHKOH SG SHAKTS SHRI SS OAHLHS HEHE ES 
eP STE ee c ese 











653 Y$s3I0STS eINPUT/OUTPUT STATUS 
OSS tHE OEE EE RERE REET EES ER ERSTE REESE EES EET HE ESET ESSE HOOT ESHER OEE DEDEDE 
65648 INTERNAL ROUTINES * 


OST AOR HEE H EE EEEE EE OE TERRES ESSE TERETE ONES HEE EEE RE SEES OE HS OEEEES OEREEEREE 
65842 

659+ eeseeeenteaeee CHECK FILE 1/0 STATUS 

660+% 
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6614+IOSTATUS ORG * 

662+ CLI ZABPSC*#1,0 sSUCCESSFUL? 

663+ BNE Y$Ss1I0SOS .NO 

664+ My1 IOKEy,C* * «CLEAR KEY 

665+ MvC TOKE Y*#1(14),10KEY 

6664 BR R8 

667*YSS10S05 CLI ZARPSCel,1 INVALID KEY? 

668+ BER R9 

6694 cLI ZARPDSC 41,5 eFILE NOT DEFINED? 
670+ BE Y$SSIOS10 

671+ cil ZANPOSC*1,6 eFILE CLOSED? 

672* BNE YSSIOS30 

673+YS$$I0S10 CLI IORET,C*Y* eRETURN ON FILE NOT AVAILABLE? 
674+ BNE YS$10S20 

675+ SR R&,RB .FLAG FOR FILE NOT AVAILABLE 
676+ BR R9 

677*Y$$I0S26 MVC OMaCLIOMN2)},10M2 oF LE NOT AVAILABLE 
678+ MVC ZABOTL O23 ,=YtOoLITOM244) 

679+ MYC OMA*OTOM2-10M2, 20) ,10F ILE 

680% B TERM 

681+YsS10STR OC C°012345¢4789ABCDEFX® 

682+I0M1 oc x*100A18011C®* 

683+ DC C*°INyALIO FILE 1/0 * 

6844+DIOMIC oc CLs* * PIB STatus 

68S5*¢DIOMIA oc CL2i« «© FILE NAME 

686*D10M1B8 OC CLI7* ° FILE KEY 

687+ OC C*CALL ISD° 

688+ oc x*1010020000* 

6894LTOM1 EQU *-I0M1 

690*I0M2 OC X*100A18011C* 


6914*DT0m2 oc Ct21* * .FILE NAME 
692+ oc C*FILE NOT AVAILABLE® 
693+ oc x*1010020000° 


694*L TOM? EQU *-10M2 

695+ Y$S$10¢30 MYC TOSTS,ZAaPSC 

696+ TR 1OSTS,YSSIOSTR TRANSLATE TO PRINTABLE CHAR 
697+ MYC OMAC(LIOM1),10M] oF ILE NOT AVAILABLE 
698+ MVC OMA*DIOMIA-1LOMI( ZI D,ZIOFILE 
699+ VC OMAtDLOMIB-IOM1(16),10KEy 
7004 MVC OMAtDIOMIC-F0M1(4),10STS 
701+ MVC ZAHOTLO2) g=VUO*LIOML*O4) 
702+ B SNAP 

703 * 

7TO4 weeseengaseeesx TABLE MASTER 1/0 

705 

706 TABLEMT YSSGET 8 

TO7T+= 

7108+% GET 

7094s 

TIG*GTABLE MT MVC IOKEY(8),KTAGLEMT SAVE KEY 
Tile MVI IOKEY¥Y*8,C°G*® TYPE OF I/0 
Tl2+ ZGyCALL GET,CEFIL.sREFILeKEF IL.) 
713+ DS CH 

714 LA 15, TABLEMT 

T15¢ ST 15,PLISTe4%l1-1) 

7164 LA 15,RTABLEMT 

T7170 ST TS yPLIST+44(2-1) 

7184 LA 1S,KTABLEMT 

7194 ST 15,PLISTs44#(3-1) 

720+ ol PLIST#4 443-13 ,xX°50* 
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TW2i¢ LA 1,PLIST 

722+ L 15,-=V(GEy} 

723% BALR 14915 

T24¢ Al #GET,1 «INCREMENT 10 COUNT 
7254 MVC IOFILE (2G) -TABLEMT*8 .SAVE FILE 
T2o* 8B JOSTATUS eCHECK 1/9 STATUS 
727 + 

728 eusesoeeeeeeas VENDOR MASTER 170 

7129 © 

730 VENOORM YS3GET S 

T3l+# 

T32¢% GET 

T3344 

T34*GVENDORM MV¥C 1OKEY(S),KVENDORM .SAVE KEY 
735 MVI 1OKEY*5,C°G*® TYPE O¢ I70 
136+ ZGHCALL GET, C&FIL. REF IL yKEFILA? 
737+ OS OH 

7T38¢ LA 15,VENDORM 

1390 ST 1S,PLISTs4st1-1) 

T40¢ LA 15,RVENDORM 

T4\+ ST 1S,PLIST+4¢44€2-1) 

T4a2¢ LA 15,KVENOORM 

1434 ST 1S5,PLISTs4e( 3-1) 

TH4ae Oo! PLIST#4#,_ 3-1) ,x*°80" 

T4S¢ LA 1,PLIST 

TN6e L 1S,=V(GET) 

T4T+ BALR 14,15 

7484 Al AGET,1 «INCREMENT 10 COUNT 
T4a9+ MVC LOFILE (2G) ¢VENDORM*xn SAVE FILE 
750+ B TOSTATUS .eCHECK I/g STATUS 
751 «* 

752 seeceregaseytse PERSONNEL MASTER I/0 

753 * 

754 PAYROLL YSSGET 4 

7T55e8 

T5608 Cet 

T57+# 

TS8*GPAYROLL MVC TOKE YC 4) ,KPAYROLE «SAVE KEY 
7590 MvI IOKEY*#&,C*G* .TYPE OF 170 
760 ZGHCALL GET, CEFIL.»REFIL.KEF ILA? 
T6l+ os GH 

T62¢ LA 15 ePAYROLL 

T63¢ st IS,PLISTs4et1-1)} 

T6Re LA 15,RPAYROLLE 

765 ST 1S,PLISTs*4*(2-1) 

1664 LA 1S ,KPAYROLL 

7672 ST 1S,PLIST,4e(3-1) 

768+ OI PLIST#4e¢3-1),xX*80° 

7690 La 1,PLIST 

7170 L 15,-=V(GET) 

T7114 BALR 14,15 

72+ AI HGET,»1 eINCREMENT 10 COUNT 
T1713 MVC IOFILE (20) ,PAYROLL #8 SAVE FILE 
T7484 B JOSTATUS CHECK I/o STATUS 
T7S * 

T76 Sgt etoeneaeese ACCOUNTS PAYABLE MASTER I/0 
777 * 

778 ACCTPAY YSSGET 15 

T7944 

7180.4 GET 
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T81l¢% 
TE82*GACCTPAY 
783 

7844 

785+ 

786+ 

787 

T88 

789 

790 

7914 

7192+ 

7193+ 

T94+ 

795+ 

796+ 

7197+ 

798+ 

799 ACCTPAY 
800% 

80l+* 

802+% 
BG3S+UACCTPAY 
864+ 

805+ 

806+ 

807 

808 

809+ 

810+ 

Bille 

812+ 

813+ 

814+ 

815+ 

816 

817+ 

818+ 

819+ 

820 ACCTPAY 
B8214+% 

B22e% 

B23+% 
B24*PACCTIPAY 
8254 

826+ 

827+ 

828+ 

829+ 

830+ 

B31+ 

832+ 

B33 

834+ 

835+ 

836+ 

B37+ 

838 

839 ACCTPAY 
B4O+e 
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MVC ILOKEY(125) ,KACCTPAY SAVE KEY 
MVI TOKE Y*315,C°G* .TyPE OF Is/0 
ZGRHCALL GET,CEFIL.~ REFILL. KEFILAD 
os GH 


LA 15,ACCTPAY 

ST 1S,PLIST,4a(1-1) 

LA 15,RACCTPAY 

ST LS ePLISTg4a2-1) 

LA 15 _yKACCTPAY 

ST 1S,PLISTs44(3-1) 

OI PLIST#4%¢3-1),X*8O* 

LA 1,PLIST 

L 15,=V(GEq) 

BALR) 14,15 

Al aGET,1 «INCREMENT 10 COUNT 
MvC IOFILEC2ZG)sACCTPAY*8 «SAVE FILE 
B ITOSTATUS eCHECK 1/0 STATUS 


Y$sGETUP 15 
GETuP 


Mv¥C ITOKEY(15),KACCTIPAY SAVE KEY 
MVI IOKEY*#15,C*U*® .TyPE OF 17/0 
ZGACALL GETUP,CEFIL oe yREF IL» gKEFIL -D 
oS GH 


LA 15,ACCTPAY 
ST - 15,PLISTe4#¢1-1) 
LA 15 ,RACCTPAY 
ST 1S PLIST+#4"(2-1) 
LA 15 9KACCTPAY 
ST 1S ePLIST#4"¢ 3-1) 
ol PLIST#4#¢3-1),x"80° 
LA 1,PLIST 
L 15,=V(GETUP) 
BALR 14,15 
Al xGETUP,1 «INCREMENT 10 COUNT 
MVC 1OFILECZ2g) ,ACCTPAY*® .SAVE FILE 
B JOSTATUS CHECK 1/9 STATUS 
YSsPuT 15 
Put 


MVC LOKEY¢CIS)2 KACCTPAY SAVE KEY 
MVI IOKEY*15,C°P*® .TyPE OF 1/0 
ZGACALL PUT,CEF IL. sREFIL.?D 


OS GH 
LA 15sACCTPAY 

St DSePLISTs4s(1-1) 

LA 15,RACCTPAY 

ST 1SsPLIST,4a(2-1) 

OI PLIST#4%¢(2-1),xX "60" 

LA 1,PLIST 

L 1S e=VEPUT) 

BALR 14,15 

Al #PUT,y1 eINCREMENT 10 COUNT 

MVC IOFILE(2Q9),ACCTPAY*3 .SAVE FILE 
B JOSTATUS eCHECK I/7Q STATUS 


YSSINSRT 15 
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84] +4% 
B42e8 


B43*+TACCTPAY MVC 


Bayer 
Buse 
846+ 
847+ 
6464 
8494 
850+ 
851+ 
852¢ 
8534 
854+ 
855+ 
856+ 
B8ST7+ 
858 
859" 


MVI 


INSERT 


TOKEY(IS) sKACCTPAY .SAVE KEY 
TOKEV*1S,C*%l*® w«TyPE OF 170 


ZGHCALL INSERT, COFIL. gREFIL.D 


DS 
LA 
$1 
LA 
ST 
OI 
LA 
L 
BALR 
Al 
MVC 
B 


YSSNOW 


GH 
15,ACCTPAY 
TS ePLIST 4401-1) 
15,RACCTPAY 
TS,PLIST24¥*(2-1) 
PLIST#4%(2-1)5xX*6O* 
1,PLIST 
1S,=VCINSERT) 
14,15 
H#INSERT,1 , INCREMENT 10 COUNT 
ICFILE C20) ,ACCIPAY*8 SAVE FILE 
TOSTATUS .CHECK 1/0 STATUS 
DATE -TIME 


BOC + ee eaae ee aeeeees GATE ANG TIME STAMP 265% ye Oe TRO EOE ESE EERE ES EERE EERE 


861+ 


862*+DAYTIME ORG 


863+ 
8644 
865+ 
866 
867+ 
868+ 
869% 
870 
871+ 
872+ 
873+ 
874+ 
875+ 
876 
877+% 


* 


GETIME S 

OS OH 

SR lel 

Svc 7 

ST RO,WORK1 eDATE-O¥YMMDO* 
UNPK WORK149(7),WORK1¢4) 

MyC YYMMDD(6) »WORKI +45 

Ol YYMMDD*5,X°FO® FIX SIGN 
ST Ri,WORK] .TIME-OHHMMSS* 
UNPK WORK144 (7) ,8WORKIO4) 

Myc HHMMSS (6) »sWORKI45 

O1 HHMMSS#5,X°FO" oF IX SIGN 
BR R7 eRETURN REGISTER 
YSSRJ RIGHT JUSTIFY 


B7Ht er eoarcaserenas 


B79e" 
S804” 
B81 4% 
882e% 
883+" 
B8Uee 
885*RJS1 
886+ 
887+#RU2 
888+ 
889,RI3 
890+ 
B8914RI4 
8926 
8934RU5 
B94N+4 
895+RU6 
896 
B9T*RIT 
898+ 
B8994RUS 
9COe 


RIGHT JUSTIFY *2eeeee era ty 09 MG SETH HEEEEEEKEEESE SEES ES EERE 


RO = FIELD LENGTH 
Rl = FIELD ADDRESS 
R15 = RETURN STATUS 
RO,1 oSET LENGTH 

RJ 

RO»e2 oSET LENGTH 

RJ 

RO,3 oSET LENGTH 

RJ 
RO»4 «SET LENGTH 

RJ 

RO,5 .SET LENGTH 

RJ 

RO,6 «SET LENGTH 

RJ 

RO? «SET LENGTH 

RJ 

ROs8 «SET LENGTH 

Ru 
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9014RU9 LA RO,9 «SET LENGTH 

902¢ 8 RJ 

903*RG10 LA RO,10 »SET LENGTH 

9044 B RJ 

905*RJ1]1 LA RO,11 «SET LENGTH 

9064 B RJ 

9OT*RS ST R7,RJSAVE eSAVE RETURN ADDRESS 

908+ LA R13,SAVE sPROGRAM SAVE AREA 

9094 DC cyveo) 

9104 EXTRN MOORYJ] RIGHT JUSTIFY MODULE 

911+ L R1Sy=ACMOORJ)? 

912+ BALR R14,R15 .BRANCH 70 Ru 

913+ L R7T,RISAVE eRESTORE RETURN ADDRESS 
914+ LTR RISRIS ,SET CONDITICN CODE FOR ERRORS 
915¢ BR R7 eRETURN TO CALL 

916 YSSOATE DATE VALIDATION 
Q17+% 


Ql tee xe ee eS aeeae ee DATE VALIDATION £49648 85 OKSS HED SSAA EHESATEAERHSESEHE SERRE 
919¢e% 
S20+DATCHKYM MVI WORK1°4,C°O*® PLUG DAY = 1 


921+ MvI wORKI45,C*%1* 

922*DATCHK ST R7T,OVSAVE eSAVE RETURN AUORESS 

923+ LA R1,WORK) 

924+ BAL R7T,RU6 TEST FOR NUMERIC 

925+ BNZ Ovouy 

926+ LTR R7,eR7T «SET CONDITION CODE 

9274 CLC WORK1(212,=C*°70* eUNDER LOW YEAR? 
928+ BL Cvout 

929+ CLC WORKI(22,=C°99* OVER HIGH YEAR? 
930+ BH Ovout 

931+ CLC WORK14#2¢2),=C°O1*® UNDER LOW MONTH? 
932+ BL OvouT 

933+ cLC WORKI*202),=C°12* .OVER HIGH MONTH 
934+ BH OvouT 

935¢ CLC WORKI*4(23,—-C®*Hl® UNDER LOW DAY? 
936+ BL Ovout 

937+ CLC WORKI44 (7, )5=-C°31* OVER HIGH DaY? 
938+ BH OvoutT 

9394 SR R7,R7? eDATE Qu 

940*DVOUT LTR R7,R7 eSET CONDITION CODE 

941+ L R7,O0VSAVE eRESTORE RETURN ADGRESS 
942 BR RT 

943 YSSMVIN INPUT SCREEN FORMATING 
944oe 

945+asevaseoateeet MOVE IMA DATA TO SCREEN wORK AREA 
946+ 

94T*MOVEIN ST RO,SCREENH .SCREEN NUMBER 

948+ MVC IOKE y(€4),SCREEN®W SCREEN NUMBER 
949+ MVI JOKEY*4,C°G® .GET 

950 MVI IOFILE,C* * 

951+ MVC IOFILE 21019), TOFILE ~CLEAR TO SPACES 
952+ MVC TOF ILE CIS) »=C®*SCREEN FORMAT® .FILE NAME 
953+ ZGHCALL MSGIN,(SCRNUM,INEMSG) 

954+ oS OH 

955+ LA 15,SCRNUM 

956+ ST IS,PLIST*#44¢1—-1} 

957+ LA 1S,INSMSG 

9584 ST 15,PLIST*#4e(2-1) 

959+ QI PLIST *¢4st 2-1) ,x*EG°® 

960+ LA 1,PLIST 
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volt L 15,-VEMSOIN} 

962+ BALR 14,15 

963+ LA RO,ABTERM 21/0 ERKROR ADDRESS 

964+ B TOSTATUS eCHECK I/0 STATUS 

965 YSEMVOUT OUTPUT SCREEN FORMAT 
96648 

967088 48O02SRRESEHR MOVE DATA FROM SCREEN WORK AREA 10 OMA 
96808 

F694*MOVEOUT ST RO,SCREENH .SCREEN NUMBER 

970° MyC IOKEy(4),SCREENH SCREEN NUMBER 

971+ MVI TOKEY*4,C°RP® PUT 

972+ MVI IOFILE,C* * 

973+ MVC IOFILE*1¢01993,IOFILE «CLEAR FO SPACES 
9TH MVC IOFILEt133,=C*°SCREEN FORMAT® .FILE NAME 
975+ ZGHCALL MSGOUT, CSCRNUM,OUTSMSG,sPDATA) .SCREEN AND DATA 
976+ os OH 

97TT* LA 15+SCRNUM 

978+ sT TS,PLISTs4e(1-1) 

979 LA 15,0UTSMSG 

980+ st IS ,PLISTs4#(2-1) 

981° LA 15,PDATA 

982+ ST VS,PLISTs*4%( 3-1) 

983¢ ol PLIST#4e¢3-11,xX*8N* 

9844 LA 1,PLIST 

985+ t 15,=V«MSGOUT? 

9864 BALR) 44,15 

987+ B YSSmMO0010G 

JB8B*MOVEDUTS ST RO,SCREENR 

989 MVC IOKEYO(4) ,SCREENNWN .SCREEN NUMBER 

990 MyI TOKEY*#4,C°P® PUT 

9914 MVI IOFILE,C® * 

992+ MVC JOFILE*1¢19),1IOFILE .w.CLEAR TG SPACES 
993+ MVC 1OFILE¢13),-C*°SCREEN FORMAT® eFILE NAME 
9944 Z2GHCALL MSGOUT,(SCRNUM) eSCREEN ONLY (NO DATA? 
995¢ OSs CH 

996+ LA 15,SCRNUM 

997+ st L5S,PLISTs4*#¢1-1) 

998+ oI PLIST#44q1~-1),x°SO0° 

9994 LA 1,PLIST 

1000 L 15,=VCMSGOUT) 

10ag1¢ BALR 14,15 

1002¢YS$S$MOC1IG LA RO,AETERM .I/0 ERROR ADDRESS 

1003+ 8 IOSTATUS «CHECK I/C STATUS 

1004 APCHKS YSS3SNAP SNAP OGUMP 

1005¢* 

1006 % ee eee 6Ee4EReS SNAP DUMP OF ACTION PROGRAM SS aOS EEK HEEKHSEEEKEAREKE REE 
1007¢* 

1008*SNAPIT ORG * 

1009+ ZGHCALL SNAP, (ZAHDPI3,EP ZAK IMH,ET »WwORK,EW,ZANOMH,EO ENAM. ,YSSE) 
1010+ OS GH 

Olle LA 15eZA8DP1B 

1o1l2¢ ST L5,PLIST#4s¢t)-1) 

1013+ LA 15,EP 

4014+ st IS ,sPLIST*4*(2-1) 

1015¢ LA 15,ZA8TMH 

10164 ST TS, PLIST#44#¢ 5-1) 

1917+ LA 1S,E1] 

1018¢ ST 1S ,PLIST*#4#(4-)) 

1019+ LA 15 ,W80RK 

1020+ ST ISePLIST#4¥05—-1) 
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1021+ LA 15sEW 

1022 ST 15,PLIST#4#(6-1) 
1023+ LA 15,ZAH0MH 

1024 sT 15,PLIST#4S(7~1) 
10254 LA 15,£0 

1026+ sT 15,PLIST#4e(6-1) 
1027+ LA 15yAPCHKS 

1028+ ST I5yPLIST*#4%(9-2) 
1029 LA 155YSSE 

1030+ ST 15,PLIST#4e¢10-1) 
1031¢ ol PLIST#4#C10-1),x°8C° 
1032¢ LA LyPLIST 

1033+ L 15,=V(SNAP) 

1034+ BALR 14,15 

1035+ BR R7 eRETURN REGISTER 


1036 EX S5H8 HSE EEG AKER ESH SERA ATC HEHE ERS HT HTAS EERE SREA SRA AT ATHRTHRT HERE STADE 
1037 * TERMINATION 
1038 SF SFO ESE EER TEE SHEESH ESET OEE AE SETE EER EEE HERS SETTER EREBES 


1039 YSSTERM 

1090 684 See ER EHHE SHEE CEKEDE ETE SETHE ERE EE EERE ESE AES SRAKSAREERE HEEEEERAE SE 
104.4% PROGRAM TERMINATION , * 
ee ee eT ee eee rece Te Te TEL STi Tere re rerererrist irr tretsttrrtrt sts ty 
1043+TERM CLI ISNAP,SCPN® REQUEST NORMAL TERMINATION wITH SNAP? 
10444 BE SNAP .YES 

1045¢ CLI ISNAP,C*S*® REQUEST ASNORMAL TERMINATION WITR SNAP? 
10464 BNE FINISH .NO-NORMAL TERMINATION 

104 7*ABTER™ MVI ZAMPSIND,C®*S* TERMINATE WITH SNAP DUMP 

1048+ B FINISH 

1049,SNAP GETIME 

1050+SNAP os OH 

1051¢ LA lel 

10526 Svc 7 

1053+ ST R1,ETIMS 

1054¢ ZGRCALL SNAP gC ZARDPIBLEP »ZARIMH,LI pWwORK,EW ,ZANHOMH,EO,YS$SB,YSSE) 
1055¢ oS cH 

1056¢ LA 15,ZAaDPIB 

10S7¢ sT 15,PLIST#4e¢)-]) 

1058+¢ LA 15,EP 

1059+ st ISePLIST+*44e(e-1) 

1060+ LA 15,2A8IMH 

1061+¢ ST 1S,PLIST*#44¢ 3-1) 

1962+ LA 15,€1 

1063+ ST 1SsPLIST*#4%(4-}} 

1064+ LA 15,WORK 

1065+¢ ST 1S,PLISTs44(5-1) 

1966+ LA 15,5EW 

1067+ ST 1S sPLISTs4*%lo-1) 

1068+ LA 15,ZAHOMH 

1069+ ST SsPLIST#49(7-1) 

1070¢ LA 15:sE£0 

1071+ st VSePLISTs4e(8-1) 

1072¢ LA 15,Y¥$SB 

1073+ ST 1S,PLIST*4#¢9-1) 

1074+ LA 15,YS$SE 

1075+ ST 15 ,PLIST*#4%¢10-1) 

1076+ of PLIST*4e¢lO-13,xX*80* 

1077+ LA 1,PLIST 

1078+¢ L ISy=VC SNAP) 

1079¢ BALR 149,15 


1080¢FINISH GETIME M 
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1081l¢ 
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1515 APHAMT EQu HACCTPAY*#48,5 PD2 CHECK AMT 

1516 APHNAME EQU HACCYPAY+*61,26 NAME 
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1519 APHBATHN EQU HACCYTPAY e114, 3 BATCH NUMBER 

1520 APHCHKS EQU HACCTPAY?*#11753 NUMBER OF CHECKS 
1521 APHVODS €£QU HACCTPAY*#12),3 NUMBER OF VOIDS 

1522 APHERRS EQU HACC HPAY4123,3 NUMBER OF ERROR PASSES 
1523 APHITMS €QU HACCTPAY+126,4 NUMBER OF ITEMS 

1524 APHOLD EQu HACCIPAY*130,5 PO2 OLD CHECK AMOUNT 
1525 APHCASH EQU HACCTPAY#135,5 CASH TOTAL 

1526 APHACCR EQU HACCTPAY#140,5 ACCRUAL TOTAL 

1527 APHERR EQu HACCTPAY*145,1 ERROR CODE 
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1540 APCAMT EQU CACCTPaY*#29,5 PD2 AMOUNT 
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1545 ApC2IP EQu CACCTPAY?136,3 PDO ZIP CODE 

1546 APCLEGND fQU CACCTPAY*139,25 LEGEND 
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LINE SOURCE STATEMENT OS/3 ASM . 

2 APITMS START GO 

CUTS TT TE TE TI Te TS TC LCLC COSTE SCT SLS SST OLS TCP CTE TOOCS TOCe rir ere TTP ere Tet eters] 

4 * AUTHOR : R L LEONARD 

5 * DATE : 28 MARCH 1960 
6 * SITE ¢ GAY & TAYLOR INCegWINSTON-SALEM,NC,27102 

7 ® PURPOSE: TO ENTER AND VERIFY ITEM CHARGES FROM AP CHECKS 
8 * CHANGE LOG: 

QF Sete SKS EKHK EE HE ESSE EERE EESTE ESOS SEES ESTER SEE EEEEEE EERE TEREREEE SEES EREED 
18 YSSSTART eSTARTING CONVENTIONS 
12+V¥$3$8 EQu * «START OF PROGRAM 
130# 

L4eeeaceceseceses REGISTER EQUATES 
154% 

16¢RO EQU 18} 
17*R1 EQu 1 
18,R2 EQu 2 ePIB COVER 
194#R3 EQuU 3 IMA COVER 
20¢R4 EQU 4 eWORK COVER 
21¢RS E Qu 5 OMA COVER 
22+R6 EQu 6 eCDA COVER 
23¢R7 EQu T INTERNAL ROUTINE LINKAGE 
244+R8 EQU 8 «1/0 - NORMAL RETURN ADDRESS 
254R9 €Qu 9 «1/0 - ERROR RETURN ADDRESS 
26*R1U EQu 10 «PROGRAM COVER #3 
27*R1Il EQU 11 «PROGRAM COVER #2 
284*+RI2 EQU 12 ePROGRAM COVER #1 
29eR13 EQU 13 
3O0eRY4 EQu 14 
31*R15S EQU 15 
3206 
Zs eauceeeeevesene ESTABLISH PROGRAM COVERING 
3aee 
35+ USING #,R12,R11,R10G «PROGRAM CODE 
36¢ USING ZASDPIB,R2 PIB 
37+ USING ZARIMH,R3 IMA 
38 USING WORK,RY WORK 
39° USING ZAHOMH,RS OMA 
40+ USING CDA,R6 -CDA 
ales 
K2+eeeeeaeegeeese ESTABLISH IMS INTERFACE 
a3e+e 
aye STM R14,R12,12¢R13) weSTORE REG IN CALLS® SAVE AREA 
45+ LR R1i2sR1s5 -eADORESS OF THIS PROGRAM 
46e LM R2,R6,0CR1) , ACTIVATION AREAS FROM PARAM 
QT LA R1LI,SAVE eTHIS PROGRAM SAVE AREA 
4Be <T R11,80,R13) «PUT THIS SAVE INTO CALLS® SAVE 
age ST R13,4C,R11) PUT CALLS* SAVE INTO THIS SAVE 
So LR R13,R11 ,REG 13 = THIS SAVE AREA 
Sl LR R11,R12 «SECUND PROGRAM COVER 
52+ LA RI1,1¢R131) 
53+ LA R11,4095¢R11) 

Sye LR R1IO,R11I «THIRD PROGRAM COVER 
55¢ LA R10,. RIG) 

56+ LA R10,4095(R129) 

57° GETIME 

58+ OS GH 

59+ LA 1,1 

60+ Svc 7 





Figure C-11. APITMS Action Program Processing a Dialog (Part 1 of 29) 
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61+ ST RisSTIMS .STARTUP TIME 
63 DROP Ro eNO CDA 
64 PRINT GEN 
65 BAL R7,0aYTIME GET DATE-TIME 
66 YSETRAIL A 
67+ PRINT CFF 
7+ PRINT ON 
78 MVC —- PASSKEY(5)4=¢ *APCHK® 
719 YSSSECUR PASSWORD SECURITY 
80+ ESEKSESE SEEKER SKKS ERHES SEEK KEES KY SEEC HL Bete BQ FoF HSHKEHSHSKSERST BREESE eHS 
814% CHECK SECURITY FOR OPEN APPLICATION * 
82,% 
83+* ASSUMES KEY IN FIELD “PASSKEY" * 
FVEP ES ESCC CC SCOCS CESS OSLO CC CCL SEC ESS TEES Se Pe rere Pe TT ET TRS PET RTE TE TE ES 
85+ MVC  KTABLEMT(3),=C°T80° 
864 MVC KTABLEMT#3¢5),PASSKEY 
87+ LA R9,Y$$0020 .NO FIND ADDRESS 
88+ BAL RB»GTABLEMT «GET SECURITY RECORD 
89+ cul TABSTS,C* * .RECORCD ACTIVE? 
90+ BNE Y¥4$0C2C .NO 
914 MVI WORK1,X"GO* «SETUP TO CVB 
92+ MVC =—- WORK 1.4247) ,WORK1 
93+ MVC = WORK 14802),2ANISTID92 TERMINAL ID 
gue PACK WORK1*6(2),WORK148(2) 
95+ CVB  - R1,4WORK1 «TERMINAL FIELD COUNTER 
96+ LA R7,TERMTAB-4 .BEGINNING OF TERMINAL FIELOS 
974Y$4C010 LA R7T,4tR7) .NEXT TERMINAL FIELGS 
984 BCT R1sY$$CO1IO0 «COUNT DOWN TO THIS TERMINAL 
e@ 99+ CLC = U0 3g RTD =CP * .OPEN? 
100° BE Y¥$$0020 .NO 
101¢ MYC WHOC3),00R7) eSAVE USER INITIALS 
1p2¢ CLC 3€1,R7),LIMIT «OPEN BUT GVER LIMIT (SET COWN) 
103¢ BNH  Y%$$0930 .NO 
1p4*¥#$L020 MVC OMAC(LYS$M1),Y33M1 sAPPLICATIGN NOT OPEN 
105+¢ avc ZANHOTLI2),-Y¥IC*LYEIM1 94) eMESSAGE LENGTH 
106+ R TERM 
107+YS$3M]1 oc x*70GA18011C° 
108+ oc C*APPLICATION NOT CPEN® 
109+ oc x*10100200C3° 


LIO*L YS3M1 EQu *-YS$M1 
J21¢°Y¢4U930 ORG * 


113 MVC KACCTPAY(15),BLANKS 

114 cic ZARITLE2) =YCIMAL~USTART) 

115 BNH to0020 

116 cic IPROT(5),=C°A pe 

117 BE EMSG1 USE UNPROT 

118 t0020 EQuU 2 

119 cLc ZARTTL O23) ,=¥YCUACCTI-USTART*#1)2 DATA ENTERED? 

120 BNH LO030 NO 

121 YSSIN 12 eGET INPUT DATA 

122+ LA RO,12 «SCREEN NUMBER 

123+ BAL R8,MOVEIN .GO TO INPUT SCREEN ROUTINE 

124 t0030 MvI FILL,c*® * UNPROTECTED FIL&i CHARACTER 
125 MVI PSTART,C® * 

126 MVC PSTART4¢1 CPSTOP-PSTART-}),PSTART CLEAR PROT REPLACE 
127 mMVI USTOP »X°FF® 

128 MvI PSTOP »X*FF* 

129 cic IMA4y(53,-C°APRNI® ePRINT? 


130 BNE LOcKHC eYES PRINT CHECK 
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YSSTRaIL B 
MVC KACCTPAY(¢2),=C*AC® 

MVI  KACCTPAY#2,C°N® 

MVC = KACCTPAY*#3(5) ,IMA0]0 CHECK NUMBER 
CLI IMA*15,C°VE VOIO CHECK? 
BNE (0035 NO 

MvI - KACCTPAY*2,C°V" 

8 L0610 

MVC KACCTPAY(2),=C°AP® GET HEADER 
LA R9vEMSG2 

BAL R&,GACCTPAY 

MVC ACCTPAYHC165),RACCIPAY STORE HEADER 


C-42 


SRETHR SE SEER SE RE SHEERS ESS KE GL HLS y ETE SS SEEK SEHRSSEH HER EHIISHSHERH EH 


* 


BUILD BASE SCREEN 


SHFSSSSSERSEK RH SS SE SKSS ES SS SK SKIS SSHS SH SKSKH SS SHESEHSKR SESS HK KSKHELES KE HS HE 


x 

OH TEER 
% 

SO448 


* 

SR VERTED 
% 

Lo06a 


CHECK DATA 


CLI HTYPE ,C PN® NEW CHECK? 

BE Lacse YES 

MVC PTYPE C1) ,HTYPE 

MVC PCHECK(5}) ,HCHECK 

MVC PCAMT (141 ,=X%# 40206820 202068 26212g4B202060" 
EO PCAMT(14) ,HAMOUNT 

MVC PCNAME (25) sHNAME 


LINE NUMBERS 


LA R10,PLINGI FIRST LINE & POSITION 
LA R6,20 COUNTER 

PACK WwWORKI(2),HITMCNT (3) 

UNPK O(3,R1D},WORKI(2} MOVE INTO LINE # POSITION 
OI Z2URIODSX°FL® FIX SIGN 

AP WORKI(2),=P°1* NEXT TEM 

LA RIG,PLLINE(,R10) NEXT LINE 

BCT Rb6,L0060 

CLC =. ZABITLE2) ,=YCUACCTI-USTART#1) VERIFY DATA? 
BNL LO120 YES 

CLI HACTION,C°C* CHANGE ? 

BE Looso YES 


ADD SCREEN 

YSSTRAIL DO 
MYC UDESPT1(026),HLEGEND 
B 9000 SCREEN OUT 


CHANGE SCREEN ¢GET ITEMS FOR DISPLAY) 


LA R6,20 LINE COUNTER 
LA R10,UACCT1 FIRST LINE 


YS$STPAJL CE 
PRINT OFF 
PRINT ON 
MVC KACCTPAY(15),BLANKS 
MVC KACCTPAY(2),-C*AI® 
MVC KACCTPAY*2(6) ,HTYPE 
MvC KACCTPAY*8(3) ,HITMCNT 
MVI POSITION,C*G* 
LA R9sEMSG 3 


Figure C-11. APITMS Action Program Processing a Dialog (Part 3 of 29) 




















UP-9207 SPERRY UNIVAC OS/3 C-43 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


DIALOG TRANSACTION IN BAL: APTIMS PROGRAM 








2c0 BAL RB eSaCCTIPAY SET START OF FILE 
201 tOo090 . LA R9,EMSGH 
202 BAL RB,yNACCTPAY REAGQ NEXT AP ITEM 
203 MVC ACCTPAYI(165) sRACCTPAY MOVE TO ITEM AREA 
204 cic RACCTPAY e216) gHTYPE SAME CHECK? 
205 BNE Lg9coc FORMAT SCREEN AND OUT 
206 MvC 0(8,R10),AI1ACCT 
207 UNPK OAmTC10sRIC),ATAMT (5) 
208 ce ATAMT(5),-=P*%cC* 
269 BNL £0160 
210 MVI OAMT(R1G) ,C*-* 
211 Ol DCAMT*#9(R10),X°FO® 
212 tG100 MYC ODESPT¢(3G,R1G),AIDESCPT 
213 MVC DEMP(4,RIOIZAIEMP 
214 LA RIG,ULLINE(,R19) 
215 BCT R6,tG990 
216 B L9G06 FCRMAT SCREEN AND OUT 
217 SASK EERE E KASS SEES SEEK HEK SEGRE SHES OK HKSR EKA Sy t Hy Ee SE SERCH EEKSS ES 
218 * VERIFY LINE LTEMS 
21D SeS eee es ESSE SKS AK HST ES EREKEERE SKSEK SEEKS SS ASE ESA SKSER ESE AAKESR EKER AD 
220 10129 LA R6,2C LINE COUNTER 
221 LA R1iC,pLINal 
222 YSS TRAIL F 
223° PRINT OFF 
233+ PRINT ON 
234 ST R10,PROLINE PROTECTED POINTER 
235 LA RIO,UACCTI UNPROTECTEO POINTER 
236 MVC BRCHO4) gUACCT1 
237 MVC OESCPTH( 30) ,UDESPT] 

@ 238 10139 CLC OCULL INE ,R10) »BLANKS THIS LINE BLANK? 
239 BE 10320 YES-CHECK FOR ERRORS 
240 YSSTRAIL G 
241+ PRINT OFF 
251+ PRINT ON 
252 MVC LASTE1>,UXMITC(RIO)} SAVE LAST ITEm FLAG 
253 jor pf OXMITCR10),C*R® REVIEW? 
254 BNE 10132 NO 
255 MYC REVIEWOL) OxXMIT(RIO) SAVE REVIEW REQUEST 
256 L0132 EQU * 
257 e.C =°004,R10),BLANKS NO BRANCH? 
258 BNE 10146 
259 MVC G(4,R1G),8RCH MOVE HOLD BRANCH 
260 10140 EQuU * 
261 * 
262 * CHECK ACCOUNT NUMBER 
263 # 
264 YSETRAIL H 
265% PRINT OFF 
275 PRINT ON 
276 MVC KACCTIMST(8),0CRIO? Hyt ACCOUNT MASTER 
277 * ACCOUNT MASTER FILE 
278 MYC KACCOUNT(8),C¢R1Q)? 
279 LA R&,L6150 
280 BAL R9,GACCIMST 
281 MvI ERR,C*Y® 
282 L R9,PROLINE 
283 oI OCACCTERG),X*Cl1® ACCT MST ERROR CODE 
284 Myvi DBACCTERG},xX*1C* 
285 B L0200 CHECK AMOUNY 

@ 286 * BRANCH MASTER FILE 
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287 LO1S50 
288 

289 

290 

291 

292 

293 

294 

295 

296 

297 * 

298 10160 
299 10169 
300 

301 

3n2 

303 

304 

305 

306 

307 10199 
308 

309 

310 

311 * 

312 * 

313 * 

314 0209 
315 

316 

317+ 

3274 

328 

329 

330 

331 

332 

333 tO220 
334 

335 

336 

337 

338 1.0249 
339 t0260 
34G * 

34] * 

342 * 

343 

344+ 

3544 

355 

356 

357 

358 10265 
359 « 

360 * 

361 * 

362 LG2709 
363 

364 
365 
























































CLI GeRIO),C*O* 

BNE 10180 

MVC KBRANCHM(3),1]1¢R10) 
MVC BRCHIG) ,GtR1O) 

LA R8,LO16G 

BAL R9,GBRANCHM 

MVI ERR,C*yY* 

L RG ,PROLINE 

oO! OCACCTORG)D,A*C2°* 

MV1 DBACCT¢RO),xX*1C* 
CHART OF ACCOUNTS FILE 

MVC KACCOUNT(4),=C*OCOn* 
EQU * 

LA R8,LO190 

BAL RG »GACCOUNT 

MVI ERR,C*Y® 

L K9,PROL INE 

oO! DCACCT(R9) X*C4® 

MVI OBACCTEROD,X*1C° 

B LO206 

MVC INCOME (1) ,CAINC 

MVC EXPENS€1)2,CAEXP 

L R9,PROLINE 

MYC DPCOA(1,k9),CACOA 
AMOUNT 

MVC WORK1#5(10),0AMTOR10} 
LA R1,WORK1+5 

PRINT OFF 

PRINT ON 

BAL R7,RI10 

BZ Lo0220 

aVvI ERR»C*Y¥® 

L R9,PROLINE 

MVI OBAMT (RO) x*1C* 

PACK WORK1(5),W0RK146(9) 
CLI CACOA,C°C® 

BE LO24C 

AP HACCR(5) ,WORKI(S) 

B L0266 

AP HCASH(5) ,WORKIC5) 
EQu * 

DESCRIPTION 

PRINT CFF 

PRINT ON 

CLC DDESPT¢(30,h103,BL ANKS 
BNE L9265 

MVC ODESPT¢3U,R140),DESCPTH 
MYC OESCPTH(39),0DESPT (R19? 


EXPENSE INCOME EMPLOYEE NUMBER 


L 
Cul 
BE 
CLC 
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R9,PROLINE 
INCOME,C* * 

ta280 

DEMP (4 RIC) »GLANKS 


C-44 








BRANCH ACCOUNT? 
NO, GENERAL LEDGER ACCOUNT 


SAVE ACCOUNT CODE 
GET BRANCH 


BRANCH ERROR CODE 


BRANCH ACCOUNT 


GET CHART OF ACCOUNTS 


ACCOUNT ERROR CODE 


CHECK AMOUNT 


CASH/ACCRUAL CODE 


SAVE FIELD 


YSSTRAIL I 


CASH ACCOUNT 


YS3ETRAIL J 


DUP LAST DESCRIPTION 
SAVE LAST DESCRIPTION 


INCOME ACCOUNT? 


NO 
ANY EMPLOYEE &? 


Figure C-11. APITMS Action Program Processing a Dialog (Part 5 of 29) 
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366 BNE Ld296 YES 
367 OI DCEMPIR9),x*D4? INCOMF AND NO EMP & 
368 R L0298 FLAG ERROR 
369 LO269 equ * 
370 CLC = DEMP(.4,R10),8LANKS 
371 BE LO315 NO EMP # 
372 10299 EQu * 
373 MVC  - KPAYROLL (4) ,0EMPURIO) 
374 MVI = KPAYROLL 44,C*0* 
375 LA R8,L0300 
376 BAL  R9,GPAYROLL GT EMPLOYEE 
377 L0292 L R9 ,PROLINE 
378 Ol DCEMP(R9D,X*D1° EMP NOT FOUND 
379 8 L0298 FLAG ERROR 
380 10298 mVI —-ERR,C°Y® 
381i L R9,PROLINE 
382 MVE = DBEMP (RO), X*1C° 
383 B LO315 
384 10300 CLl  INCOMEsC* ° INCOME ACCOUNT? 
385 BNE LO315 YES-D0 NOT NEED EXPENSE CAL 
386 MVC —- KTABLEMT(8),B8LANKS 
387 MVC = KTABLEMT¢3),=C*T10° 
388 MVC =- KTABLEMT4#3(3),PMCAL 
389 LA R8,L0310 
390 BAL R9,GTABLEMT GET CLASSIFICATION 
391 a R9sPROLINE 
392 ol DCEMP(R9),X"D2* CLAS NOT FOUND 
393 B L0296 
394 £0319 CLI -IMEXP,C® * EPENSE CLASS? 
395 BNE LO315 YES -OK 
396 L R9,PROLINE 
397 OI DCEMP¢R9?,x*D4? NOT EXP EMP 
398 B Ld298 FLAG ERROR 
399 10315 equ) *® 
400 * 
401 * SETUP FOR NEXT LINE 
4o2 * 
403 YSSTRAIL K 
404s PRINT OFF 
414s PRINT ON 
415 LA RIO, ULLINEC R19) NEXT UNPROTECT LINE 
416 L R9,PROLINE 
417 LA RI VPLLINE (4R9) NEXT PROTECT LINE 
418 ST R9,PROL INE 
419 CLI LAST,C*Y® LAST ITEM? 
420 BE L0326 YES 
421 BCT R6,L0135 NEXT LINE 
VOM TOTELOTLOLOCLere oe Lerererere ters oC Perererererert iri riirerr ert eirie tT! 
423 * ADD/UPCATE LINE ITEMS 
B24 EXSHIRSHSASEHS TH SK SK AH SRSA SKHR HH TE SHH SHHHETS HHS EAHE SHES SHSTKHHKS KSAT HE 
425 LC320 EQU ¥ 
426 YSSTRAIL L 
| 427+ PRINT GFF 
| 437+ PRINT ON 
438 LA R6_20 
439 LA R10,PLIN#1 PROT DATA 
440 ST R1GyPROLINE SAVE ADORESS 
441 L& R1C,UACCT 
442 10325 CLI -ERRyC*Y? ANY ERRORS? 
443 BE L900C FORMAT AND Out 
444 MVC LASTOCL) OXMITCRIC) 
445 * 


Figure C-11. APITMS Action Program Processing a Dialog (Part 6 of 29) 
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44 Fe tateseeeeees BUILD RECORD 


Quy 

448 MVC KACCTPAY(2),=C°AI]* 

449 MVC KACCTPAY*2(6) gHTYPE 

459 MVC KACCTPAY*8(3) gHITMCNT 

451 CLC OCULLINE »R10),BLANKS ITEM? 

452 BNE L9328 NO 

453 MvI LAST,C*y® SET LAST ITEM 

454 B Lo4oo 

455 tC0328 MVI ACCTPAYI,C® ° 

456 MVC ACCTPAY101¢164),ACCIPAYI 

457 MYC AIRID(2),=C°%Al® 

458 MVC AITYPEL (C6) gHTYPE 

459 MVC AICNTC3) gHIIMCNT 

460 MYC AIVENDOR(5) sHVENDOR 

461 MVC ATACCT¢8) ,CC(RIO) 

462 MVvC WORKI(1G3,D0AMT(R1G) 

463 LA R1,WORK1 

464 BAL R7,RJ10 

465 BZ L033c 

466 MVI ERR,C°Y® 

467 L R9,PROLINE 

468 OL DBAMT(RO)D,X*10" 

469 8 10331 

470 £0339 PACK ATAMT(5) gWORKIG1C) 

471 £0331 MYC ATEMP(4) ,DEMPERIC) 

472 MVC AIDESCPTt(30),D00ESPT(R10) 

473 L K9,PROLINE 

474 MVC ATCOAC1),0PCQACRI) CASH/ACCRUAL CODF 

475 CLI HACTION,C °C? CHANGE ? 

476 BE Lo340 YES 

477 * 

G78 Se tute eneeeses ADD RECORD 

479 * 

480 L0335 MVC ATBATCH(3),HBATCH BATCH # 

48) MVC RACCTIPAY(165) ,ACCTPAYI 

4&2 LA R8BsLC390 

483 BAL RO,LACCTPAY 

4Q4 Mv1 ZAWPLRIT,C*O® ROLLSECK YyPUATES 

48S MVI ERR,C*Y® 

486 L R9»PROLINE 

487 MVI ZUR9d,xX°1C® 

488 B LO39G 

469 * 

490 FeenteSoTEEGSe UPDATE RECORD 

4Ol * 

492 103490 MVC ATERR(3) HBATCH CORRECTION BATCH # 

493 LA R8,LC3e0 

494 BAL R9,UACCTPAY 

495 YSSTRAIL 
4964 PRINT OFF 

506¢ PRINT ON 

507 8 LO335 ADDING ITEM ON CHANGE 

508 LO360 MvI ZAWPLRI,C*O® ROLLBACK UPDATES 

509 t R9,PROLINE 

510 MVI ZEURID,X*1C* 

$11 MVI ERR,C*Y® 

512 B L0390 


Figure C-11. APITMS Action Program Processing a Dialog (Part 7 of 29) 


~ UP-9207 SPERRY UNIVAC OS/3 C-47 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


DIALOG TRANSACTION IN BAL: APTIMS PROGRAM 


513 L0360 MYC RACCTPAY(165) ,ACCTPAYI 
514 YSSTRAIL N 
515+ PRINT OFF 
525+ PRINT ON 
526 LA R9,LC360 
527 BAL R8&,PACCTPAY 
528 * 
529 * UPDATE HEADER DATA 
530 * 
531 £10390 PACK WORK1(2) gHITMCNT( 33 
532 AP WORK1¢2},=P°1°* 
533 UNPK HITMCNT 03) ,#ORK162) 
534 Ol HITMCNT #2 ,X*FO* FIX SIGN 
535 AP HITMTOT(S) ALAMT(S) 
536 PACK wORK1I(3),HITEMS(4} 
537 AP WORK103),=P°1° 
538 UNPK HITEMS(4),WORK1(3) NUMBER OF ITEMS 
539 eR 4 HITEMS*#3,X*FO* FIX SIGN 
540 LA RIG,ULLINEC,RI0) 
541 L R9sPROLINE 
542 LA k9 sPLLINEC,RO)D 
543 st R9,PROLINE 
S44 CLI LAST,C*ty® LAST ITEM 
545 ; BE 1.0400 
546 BCT R6eL0325 
S47 EROS He EOE TT TE EHH EES Oy SHEEN OHRE ET E EET HT HRA SSE RH HRARHE AERA 
548 * SEtup NEXT ACTION 
SQ FOS SEEEERSEH ES SHAE RE SH HGREGCEKKHS KEKE KHE HGS SHEE ALHK HS AKERAE OHKREE 
550 Lo4on CLI ERR,C*Y¥® 
@ 551 BE L9000 FORMAT AND OUT 
552 Y$4S3TRAIL O 
553% PRINT OFF 
563+ PRINT ON 
564 MVI HERRCDE,C* * 
565 cp HITMTOTCS}) sHAMOUNT €5) 
566 BE L0420 
567 ol HERRCOE ox °F 1° ITEM TOTAL NOT = CHECK 
568 L0420 cP HCASH(S),=PF°S°* 
569 BE to44od 
570 oD | HERRCDE ,X*F2* CSH NOT = Gg 
$71 LO440 cP HACCR(5),=P*%O* 
572 BE LO4&6end 
573 opt HERRCDE xX *F4?® ACCRUAL NOT = 0 
574 * 
S75 eeesee8ee DETERMINE SUCCESSOR 
576 * 
S77 104690 cLI LasTt,c*y® LAST ITEM? 
578 BE Lo480 YES 








5389 MVC = OMA*4(LMSG11) MSGI1 APCKS TRANSACTION 
@ 590 MVC OMA#44DM1 1AC1 DHT YPE 
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0MA44*011B65),HCHECK 


592 MVC HITMCNT(3).=C *90)° 
593 MVI HACTION,C*C*® CHANGE 
594 MMVI HCOMPL,C* * 


LO0$2G6 










x 


600 AP HBATOTCS) sHAMOUNT(5) AOD CHECK TO BaTCH TOTAL 

601 Cul HACTION,C°C® CHANGE? 

602 BNE Los0s nO 

603 SP HBATOT(S) ,HOLD(S) CORRECT FOR PREVIOUS AMOUNT 


REVIEW,C*R® REVIEW ITEMS? 
Lg510 NO 
















OMAC4UILMSGI2) .MSG12 MESSAGE FOR APAUN 


OMAS4H*OML2AC1L DHT YPE CHECK TYPE 
OMA*440M1 2815) sHCHECK CHECK #8 
ZAHOTLO2) ,=-VIG*LMSGI2*8) LENGTH 
L0515 


HPRINT,C°N® 



















’ 
OMA 44 (6) 5=C*APCKS TRANSACTION CODE 





ZAROTLO2) ,-H* 14° LENGTH 
619 LOS5S15 CLI HACTION,C*tA® ADOs/ 
626 BNE 0516 
621 PACK wWORKI(2),HCHKS(33 ADD 1 TO W# OF CHECKS 
622 Ap wORKI(2)},-=P*%1° 
623 UNPK HCHKS€3),00RK162) 
624 or HCHKS*¢2,X°FaQ° 
625 10518 MvI HCOMPL,C*°C® COMPLETE 
626 LC520 MVC KACCTPAY(15), BLANKS 
627 MVC KACCTPAY(2),=C°AP® 
628 LA R9,EMSG2 
629 BAL R8B,UACCTPAY 
630 MVC RACCTPAYC165) ,ACCTPAYH 
R9,EMSG2 


PACCTPA 












* 


636 Hg%y Fe OE KEHESHKSE CHECK AMOUNT TRANSLATION 

637 * 

638 * 

639 L06co avCc KACCTPAY(15), BLANKS SETUP CHECK PRINT 
640 MVC KACCTPAYO(2)5=CPAC® 

641 MVC KACCTPAY*#2(6) ,HTYPE 

642 106190 LA R9,EMSGS NCT FOUND 

643 BAL RByGACCTPAY GET CHECK 

644 MVC ACCTPAYC(165) sRACCTPAY MOVE TO CHECK AREA 
6a5 YSgTRAIL P 
646+ PRINT OFF 

656+ PRINT ON 

657 cil CPRINT,.C°TN® NO PRINT? 


10510 


CAMOUNT(5),=P°O? NEGATIVE OR ZERQ CHECK? 





Figure C-11. APITMS Action Program Processing a Dialog (Part 9 of 29) 
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660 BNH LO51¢cg 

661 B 0620 

662 OC cyv¢o) 

663 EXTRN CKGD50 

664 ENTRY NMERA 

665 ENTRY ALP1 

666 ENTRY ALP2 

667 ENTRY ION 

668 NMERA cc PLe*u® AMOUNT 
669 ALP] oc cisc"* * LINE 1 
670 ALP2 oC ctso° ° LINE 2 
671 ION oc C*2* 

672 OS OF 

673 L620 £QU * 

674& ZAP NMERA(8) ,CAMOUNTES) 

675 t RiS,-A¢CKGD5S0) 

676 BALR R14,R15 

677 LTR R15,R15 

678 BNZ EMSG7 ERRORS 
679 MVC PAY10(503 ,A:.P1 

680 MVC PAY20(50),ALP2 

681 MVC LEGENDO(25),CLEGEND 

682 MVC VENDORO(5) ,CVENODOR 

683 MVC CHECKO(S) ,KACCTPAY 43 

684 MVC NAMEO (2617 ,CNAME 

685 MVC ADDR1I0O#25),CADDRI 

686 UNPK WORKI(C7),COATE C4?) 

687 MVC DATEOC6) WORKIF] 

688 MVC WORK 3 0343,-=%°5C206B2020206, 2021 2G4R202060* 
689 ED WORK1¢14),CAMOUNT 

690 MVC AMOUNTO(13),W~ORK1 41 

691 cil AMOUNTO*#12,C°%«* x FROM EDIT 
692 BNE L0630 NO-LEAVE IT 
693 Myvl AMOUNTO*12,C°® ° BLANK TT 
694 L0630 CLC CADDR2(25),BLANKS ADDRESS 2? 
695 BE L0640 NO 

696 MVC ADOR20625),CADOR2 

697 MYC CIpyvo(275),CC1Ty 

698 MVI CITYO*18,Cc* * 

699 B LO660 

700 t0640 MVC ADDR20¢25) ,CCITY 

701 M¥C CITYO(25) ,BLANKS 

702 tO660 Cp CZIPC3),-P°%U* ZIP COCE? 
703 BE to68C 

704 UNPK CITYO0*,9(5),CZ1P(3) 

705 10680 EQu * 

706 MVI CI¥YO*#25,X*IC* FORM FEEDC TOP OF PAGE) 
707 MVI CIVTYO+¢26,x °FF® 

708 MVC UTRAN(6),=CPAPCKS ° TRANSACTION CODE 
709 MVC UTRAN#6(04) ,BL ANKS 

710 MVI UTRAN*10—X°FF *& 

711 wvi PSTART,C*:* 

712 MVC PSTART*#1°04),PSTART 

713 MVI FILL,Cc*® * 

714 y¥s$OuT 13 

715+ LA RO,13 .SCREEN NUMBER 

716+ BAL kF8,MOVEOUT .SCREEN AND DATA 

717 8 TERM 


F1B KERTH SHERERE ETAT ESAT HEE TATE TE SHORT ROSS ESET ESET EERE ETH ARHT SERS HD 
TW19 ® OUTPUT SCREEN 
T20 FR REESE AA GEKETEROGERAEKAT AVES ASE AHH HTH THES ERAT HSA RESET ESHA ET HS ES 





Figure C-11. APITMS Action Program Processing a Dialog (Part 10 of 29) 
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721 19969 EQu * 
{ 722 Y$S3TRAIL Q 


123° PRINT OFF 

733 PRINT ON 

734 YS30UT 12 

735+ LA RO,1lzZ «SCREEN NUMBER 

736+ BAL RB,sMOVEOUT «SCREEN AND DATA 

737 YSETRAIL R 

738 PRINT CFF 

T7498, PRINT ON 

T49 8 TERM 

750 Y$sIOSTS eI/O STATUS 

752 KSEE RTHERE ET HHETHESE TES ET HETHERHS HHT HITS S HK AEEKS HHT EKAESERS ESSE ET ESE 
T534* INTERNAL ROUTINES * 
7544 SE OHSE HS EH eG HEHE NS ESSER HS SEES HAHK HES HH RKSESHS HV HE SET ESSTET SSS EE SERE 
71554% 

7560eeeenngeeeenee CHECK FILE 1/0 STATUS 

TS7+% 

TSS8*IOSTATUS ORG * 

789+ cul ZAMPSC*#1,0 ~SUCCESSFUL? 

760 BNE YSsIOSOS .NO 

T61¢ MyI IOKEy,C* © ,CLEAR KEY 

762+ MVC JOKEY*1014),10OKEY 

T63 BR R8 

T64*¢VES$I0SO5 CLI ZARPSCel,1 .INVALID KEY? 

765+ BER R9 

T66+¢ ctl ZAMPDSC*1,5 -FILE NOY DEFINED? 

T6T+ BE ¥$ss10S10 

768+ lof OB § ZAWPOSC*#1,6 oFILE CLOSED? 

T7694 BNE YSS10S30 





7T70eYS$S10S10 CLI IORET,C°Y® RETURN ON FILE NOT AVAILABLE? 
7710 BNE Y$sIOS20 


7724 sR RB,R8 .FLAG FOR FILE NOT AVAILABLE 
773 BR RO 

T74*YSSIOSZ20 MVC OMACLIOMZ2),IOM2 eFYLE NOT AVAILABLE 
7756 MVC «—- ZAWOTLE.2),=YCOeL1OMZe4) 

776+ MVC = OMA*#D 10M2-30M2¢20),10F ILE 

777+ B TERM 

778+YsSi0STR DC C°012345¢ 789ABCDEFX® 

7794I0M) oc X*100A18011C* 

780+¢ oc C*INyALID FILE I70 * 

781*DIOMIC DC CL5* * .PIg STATUS 

782*DIOM1A OC CL21* © .FILE NAME 

783+D1041B OC CLI7* * ,FILE KEY 

7844 oc C*CALL IspD° 

785+ oc x*1010C2L0C0° 

7864L10M1 £QU *-10M1 

787*10M2 pc X*100A18011C* 

788*D10n2 Dc CL21° © .FILE NAME 

789+ oc C*FILE NOT AVAILABLE * 

790+ oc x*1p10N20000° 

791*L10M2 EQu  +-10M2 

T92*YSSIOS30 MVC TOSTS,ZAKPSC 

193+ TR IOSTS,YSS10STR TRANSLATE TO PRINTABLE CHAR 
794 MVC = OMAC(LTOM13,10M) ,FILE NOT AVAILABLE 
795* MVC = OMA#D TOMI A-10M1(21),1 OF ILE 

756+ MVC = OMA #DIOM1B-10M1 016) 1 OKEY 

797+ MVC = OMA*DIOM1C-10M1(4),10STS 

7198 MVC ZAROTLEZ3,-VIG*LI OM] +4} 





799+ NAP. 
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sca YSEMVIN eGET IMA DATA 
B8Ol+* : 
SO2+eeecevceveneees MOVE IMA DATA TO SCREEN WORK AREA 
80344 

BOU+MOVEIN ST RO,SCREENS «SCREEN NUMBER 

805 MYC TOKE y(4),SCREENK SCREEN NUMBER 

806¢ MvI JOKEY*4,C°G* GET 

807+ Mv IOFILEsc* *° 

808+ MVC IOFILE41019),1I0OF ILE «CLEAR TO SPACES 
8C9+ MVC IOFILE (13),=C*SCREEN FORMAT® FILE NAME 
810+ ZGHCALL MSGIN, (CSCRNUM,ZINSMSG) 

811+ DS CH 

812+ LA 15,SCRNUM 

813 st TS,PLIST+#4e(i-1) 

8144 LA 1S, INEMSG 

815+ st IS,sPLIST+*h¥( 2-13 

816° oO! PLIST#4e(2-1),X*80% 

817+ LA 1,PL1S7 

818 L 15,=VEMSGIN} 

819% BALR 14,15 

820+ LA R9O,ABTERM .1/0 ERROR ADDRESS 

821+ B TOSTATUS .CHECK I/0 STATUS 

822 YSSMVOUT oPUT OMA DATA 
823+% 

824s ee eneeesseseee MOVE DATA FROM SCREEN WORK AREA TO OMA 
82544 

B26*MOVEOUT ST RO,SCREEN# .SCREEN NUMBER 

82T+* MVC TOKE y(4),SCREEN# «SCREEN NUMBER 

8284 MVI JOKEY*4,C*P*® PUT 

829 MvI IOFILE,C* * 

830+ MVC IOFILE +1 ¢19),1OFILE CLEAR TO SPACES 
831% MVC IOFILE€13),=C*SCREEN FOCRMAT® FILE NAME 
8324 ZGRCALL MSGOUT,(SCRNUM,OUTSMSG,PDA]A) «SCREEN AND DATA 
833 os OH 

834 LA 15,SCRNUM 

835+ ST 1SsPLIST+4 461-1) 

836¢ LA 15,0uUTSMSG 

837+ ST 15,PLIST+4a( 2-1) 

838+ LA 15,POATA 

8394 st 1S sPLIST49%03-1) 

840+ Ol PLISTe4a(3-11,x°80* 

841+ LA 1,PLIST 

842+ L 15,-=V¢(MSGOUT) 

B43 BALR 14,15 

Baye B Y$sM0010 

B4S*MGVEOUTS ST RO,SCREENA 

846+ MVC TOKEY(4),SCREENW «SCREEN NUMEER 

B4a7+ MVI IOKEY*#4,C°P® PUT 

B4B+ MV IOFILE,C* * 

B49 mvC IOFILE*1O19Ns TOF ILE e CLEAR TO SPACES 
8SO+¢ MVC 1OFILE¢13),-C*SCREEN FORMAT® oFILE NAME 
851+ ZGRCALL MSGOUT,(SCRNUM) eSCREEN ONLY (NO DATAD 
852+ os GH 

853 LA 15,SCRNUM 

854+ D5SePLISTe4e01-1) 

8550 PLIST#*¢9e(1-1L),X°60"° 

856+ 1,PLIST 

857+ 15,-V¢(MSGOUT) 

858 BALR 14,15 

859*eV¥3S$M0010 LA R9,ABTERM .1/0 ERROR ADDRESS 
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860 B IOSTATUS -eCHECK 170 STATUS 
861 ACCTPAY YSSGET 15 

86246 

863+ GET 

B64t8 

B6S*GACCTPAY MyC IOKEYCIS}) KACCTPAY .SAVE KEY 
866+ MVI IOKEY*15,C°G* .TYPe OF 1/0 
867+ Z7GHCALL GET, CEF IL. ROCF IL. KEFIL.? 
868+ OS OH 

8696 LA 15,ACCTPAY 

“8704 ST 15,PLIST,4s4(¢1-1) 

8T1l+ LA 15 ,RACCTPAY 

872+ st IS,PLIST,4s(2-1) 

873+ LA 1S ,KACCTPAY 

874+ st TS ePLISTe4x(3-1) 

875+ ol PLIST#Oe¢3-1),xX°80° 

876 LA 1,PLIST 

877+ L 15,=V(GEy) 

878+ BALR) 14515 

879 Al #GET,1 eINCREMENT 10 COUNT 
880 Myc IOFILE¢2¢),ACCTPAY*8 .SAVE FILE 
Beal B JOSTATUS eCHECK I/09 STATUS 
882 ACCIPAY YS$gREAD 15 

B8E3+* 

88444 READ (SEGUENTIAL GET) 

885+% 

BB86*NACCTPAY MVC ITOKEYC15) KACCTPAY .SAVE KEY 
887+ MVI TOKE Y*15,C°N® .wTyPE OF 170 
868+ ZGHCALL GET, CEF IL. »REFIL.?D 

889 os GH 

8904 LA 15,ACCTPAY 

891+ ST IS,PLISTs4e¢1-1) 

8924 ta 1S,RACCTIPAY 

893+ ST 15,PLIST#4al(2-1) 

894+ oO! PLIST#4et(2-1),x°8C* 

895° LA 1,PLIST 

8964 L 15,=V(GET) 

897+ BALR 14,15 

898 Al AGET,»1 es INCREMENT TO COUNT 
899+ MvCc IOFILE€2C),ACCTPAY*& .SAVE FILE 
900+ B TOSTATUS -eCHECK 1/70 STATUS 
901 ACCIPAY YSSGETUP 15 

90242 

903+% GETUP 

904+ 

9OS*UACCTPAY MVC ITOKEY(15)} sKACCTPAY SAVE KEY 
906+ MvI TOKE Y*#15,C*%u® .TyPE OF 170 
907+ ZGHCALL GETUP,CEFIL. REF IL. gKEFIL OD 
908+ os OH 

909 La 15,ACCTPAY 

910+ st 1S,PLIST*#4e(,-3) 

911+ LA 15,RACCTPAY 

912¢ sT LTS,PLISTs*4e02~-1) 

913+ LA 15 ,KACCTPAY 

914+ ST IS, ,PLIST.4%(3-1) 

915+ or PLIST#4#¢3-1),X°8D° 

916+ LA 1,PLIST 

917+ t 15,=V(GETUP) 

918¢ BALR 14,15 

919+ HGETUP,1 - INCREMENT 
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920° MVC IOFILEC2U),ACCTIPAY*S .SAVE FILE 
921+ B JOSTATUS .CHECK 1/70 STATUS 

922 ACCIPAY YSSPUT 15 

925+% 

9244% PUT 

925¢% 

9Z26*PACCTPAY MYC IOKEYC(IS? KACCTPAY SAVE KEY 
927+ avi TOKEY*15,C°P*® .TyPE OF I7/0 
9284 ZGHCALL PUT,CCFIL.,REFIL.) 

929+ BS OH 

930+ LA 15eACCTPAY 

931+ ST ISsPLISTe*4n(]l—-1) 

932+ LA 15,RACCTPAY 

933+ ST 15,PLIST*4#(2-1) 

934+ oI PLIST#49#¢(2-1),x*50* 

935+ LA 1,PLIST 

936+ L 15,=VCPUT) 

937+ BALR 14,15 

938+ Al HPUT,2 eINCREMENT IG COUNT 
9394 MVC TOFILECZGP,ACCTPAY*8 SAVE FILE 
9404 B JOSTATUS .CHECK 1/70 STATUS 

941 ACCIPAY YS$qINSRT 15 

942e% 

9u3+% INSERT 

944ee 

94US+1LACCTPAY MVC TOKEYCIS) KACCTPAY .SAVE KEY 
946+ MvI TOKEY*15,C*I* .«TyPE OF 170 
947+ ZGHECALL INSERT, CEFIL. »REFIL.? 

948+ OS CH 

949e LA 15,ACCTPAY 

950+ ST 1S,PLISTs4e(1-1) 

951+ LA 15,RACCTPAY 

9524 ST TS,PLISTs4%¢2-1) 

953+ oO! PLIST#4*¢2-1),x"°&C* 

954+ LA 1,PLIST 

955° L 1S,=VCINSERT) 

956+ BALR 14,15 

957+ AI HINSERT,1 , INCREMENT I0 COUNT 
958+ MVC IOFILE(2C) ,ACCTIPAY*#8 SAVE FILE 
959+ B IOSTATUS CHECK 170 STATUS 

960 ACCTPAY YS$SSETLK 15 

961+% 

962+% SET SEQUENTIAL MODE BY SPECIFIED KEY 
963+ 

9O4*SACCTPAY MVC TOKEY€15} ,KACCTPAY .SAVE KEY 
965+ MyvI TOKEY*15,C*S® .«TyPE OF 170 
966% ZGRCALL SETL gy (EF IL. POSITION, KEFIL.} 
967+ Os OH 

968+ LA 15,ACCTIPAY 

969+ ST 15,PLISTs*4*¢1-1) 

970+ LA 15,POSITION 

971+ ST 15,PLISTs4a(2-1) 

972+ LA 15 ,KACCTPAY 

973+ ST 15,PLISTs4*(35-1) 

974+ oI PLIST#4*.¢3-1),x*°8o* 

975¢ LA 1,PLIST 

976+ L 1 5e=VESETLD 

OTT? BALR 14,15 

978+ MVC TOFILE€20) ,ACCTPAY*8 .SAVE FILE 
979+ B IOcTATUS .CHECK 3/0 STATUS 
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980 ACCTPAY 
98lee 


YSSESCTL 25 


9829% SET RANOGM MODE 
983+% 
GBH*EACCTPAY MVC IOKEY(15) ,KACCTPAY «SAVE KEY 
985+ MVI IOKEY*I5,C°E*® .T¥Pe OF 170 
986 Z2GRCALL ESETL s (EFIL.? 
987+ DS OH 
988+ LA IS,ACCTPAY 
989 ST LS,PLIST*#44¢Q1-1) 
990+ ol PLIST#4seql-1),x*sO* 
991+ LA 1,PLIST 
992+ L 15,=VC(ESETL) 
993 BALR 14,15 
9944 MVC IOFILE(20),ACCTPAY*8 .SAVE FILE 
995¢ B 1O0sTATUS eCHECK 1/0 STATUS 
996 ACCUUNT YSSGET 8 
99T+% 
998+" GET 
9994" 
1000*GACCOUNT MVC TOKEY¢(8)sKACCOUNT SAVE KEY 
1001+ MVI IOKE¥Y*8,C°G* .TYPE OF 1/0 
1002+ Z7GaCALL GET,CEF IL sREFIL»KEFIL.OD 
1003+ os GH 
1004 LA 15,ACCOUNT 
1005¢ ST 1S, ,PLIST*¢4e(1-1) 
10C6¢ LA 15,RACCOUNT 
1007? ST 1S ,PLIST*#4*¢2-1) 
1008+¢ LA 15,KACCOUNT 
1009+ ST LS,PLIST¢4x(3-]) 
1010+ o! PLIST*4*¢3-1),x°60" 
1011¢ LA 1,PLIST 
101l2¢ t 15,-V(GET) 
1013 BALR 14,15 
1014+ Al #GET.»1 e INCREMENT I0 COUNT 
1015+ MVC IOFILE¢20),ACCOUNT*& .SAVE FILE 
1016+¢ B IOSTATUS eCHECK 1/9 STATUS 
1017 BRANCHM yYSSGET 3 
1618+ 
1019¢% GET 
1020+ 
1621*¢GBRANCHM MVC IOKEY(3) ,KBRANCHM SAVE KEY 
1022+ MVI TOKEY*3,C°G® TYPE OF I/0 
1023+ ZGyCALL GET, COFIL.»REF IL »KEFIL.Q?) 
1024+ OS OH 
1025+ LA 15 ,B8RANCHM 
1026+ ST 15,PLIST#4s{(1-1) 
1627+ LA 15,RBRANCHM 
1028+ ST YS,PLISTe#4e(2-1) 
1029+ LA 15,KBRANCHM 
1030 st 1SsPLIST+4e(3-1)} 
1031¢ aT PLIST#ye¢3-1),x°*80°* 
1032+ LA 1,PLIS1 
1033+ L 15,=Wt{GET} 
| 1034+ BALR 14,15 
1035¢ Al aGET,1 «INCREMENT IO COUNT 
1036+ MvC TOFILE@ZG) »sRANCHM*S& SAVE FILE 
1037+ B IOSTATUS eCHECK 176 STATUS 
1038 ACCIMST YS$$GET @ 
1039e% 


104Q0+% GET 
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1041+% 
1042*GACCIMSE MVC  IO0KEY(8),KACCTMST .SAVE KEY 
104&3+ MV} —s« LOKEY*#8,C°G* .TYPE OF 1/0 
1044+ ZGyCALL GET, (EF IL ey REF IL eo yKEFILe? 
1045 DS OH 

1046+ LA 15,ACCTMST 

1047+ ST 15,PLISTs4e61-1) 

1048+ LA 15,RACCTMST 

10494 ST 15,PLIS644902-1) 

1050¢ LA 15 ,KACCTMST 

1051+ ST 15,PLISTs4a(3-1) 

1052+ ol PLIST#4% (3-1) 9X*60" 

1053+¢ LA 1,PLIS? 

1054+ L 15,=V(GET) 

1055¢ BALR 14,15 

10564 Al HGET,1 se INCREMENT IG COUNT 
1057+ MVC -LOFILE¢ZO),ACCTMST*8 «SAVE FILE 
1058+ B IOSTATUS «CHECK 1/70 STATUS 
3059 PAYROLL Y$¢GET 4 

1060++ 

1061+* GET 

1062+% 

1063*GPAYROLL MVC IOQKEY¢4) »KPAYROLL «SAVE KEY i 
1064+ MVI IOKEY*S,C°G® .TYPE OF I70 
1065¢ ZGHCALL GET, CLF Ite sREFIL«pKEF ILS? 
1066+ oS OH 

1067+ LA 15,PAYROLL 

1068+ st 15,PLISTs4*#Ci-1) 

1069¢ LA 15 »RPAYROLL 

1070+ ST 1S sPLISTs4et2-1) 

1071+ LA 15 KPAYROLL 

1072+ ST 15ePLIST, 4803-1) 

1073+ OI PLIST #4%¢3-1),X"8O* 

1074+ LA 1,PLIST 

10754 L 15,=VtGET) 

1076+ BALR 14,415 

10774 Al WGET,2 sINCREMENT IO COUNT 
1078+ MVC = LOFILE«2u),PAYROLL*8 .SAVE FILE 
10794 B IOSTATUS ecHECK 1/0 STATUS 
1080 TABLEMT YSSGET 8 

1081¢* 

1082+* GET 

108346 

LO84*GTABLEMT MVC IOKEY(AR),KTABLEMT SAVE KEY 
1085+ MVI IOKEY*8,C°G*® «TYPE OF 170 
1086+ ZGRCALL GET,CEF Ley REF I Le gKbp Ile? 
1087* OS GH 

1088, LA 15,TABLEMT 

10894 ST 15,PLISTo4¥s(i-}? 

1090+ LA 15,RTABLEMT 

1091+ ST ISsPLISTs+44¢(2-1) 

1092+ LA AS sKTABLEMT 

1093+ ST 1SePLIST#4at3~-1) 

1594+ ol PLIST#4*( 3-1) 9x*80" 

1095¢ LA 1,PLIST 

1096 i 15,=V(GET) 

1097+ BALR 14,15 

10984 AI #GET,1 e INCREMENT I0 COUNT 
10994 MVC =: TOFILE¢2G),TABLEMT#8 «SAVE FILE 
1100+ B IOSTATUS eCHECK 1/0 STATUS 
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1101 YSSNOW eDATE/STIME 
11026" 

LIOS+sexeeeeeeeeeee GATE AND TIME STAMP 22 t ute Oe Oe EOE SETE ES OEEEEE OS EREREE 
1104¢% 

LLOS*DAYTIME ORG * 

1106+¢ GETIME S 

1107+ OSs GH 

1108+ SR 1,1 

1109+ Svc 7 

1110+ ST RO,WORK1] .CATE-OYYMMLO* 

l}lie UNPK wORK1*4(7) ,WORKIC4) 

lll2+ MVC YYMMDD(6) ,WORKI4S 

1113+ oI YYMMOD*S,X°FO® FIX SIGN 

11144 ST R1l,WORK] .wTIME-QHHEMSS* 

11156 UNPK WORK )*407) ,wORKIE4) 

1116 MvC HHMMSSt6) ,WORKI 45 

1117+ OY HHMMSS*S,xX*FO° FIX SIGN 

1118 BR R7T eRETURN REGISTER 

1119 YSSRJ eRIGHT JUSTIFY 
1120¢% 

LAIZL eee aces eseceesse RIGHT JUSTIFY 88% 8686 68 eee COKE SETHE EE HETHESHEESE RE ETE DH 
11222 

112344 

LI24ex RO <= FIELG LENGTH 

1125¢% Ri = FIELD ADDRESS 

1126+ R1S = RETURN STATUS 

1127+ 

1128¢Ry) LA RO,1l -SET LENGTH 

11294 B RJ 

11304RJ2 tA RO,g2 eSET LENGTH 

1131¢ B RJ 

1132eRV3 LA RO,3 LENGTH 

1133¢ B RJ 

11344#RJ4 LA RO,4 rT LENGTH 

11354 B RJ 

1136¢RJ5 LA RO,5 -¥ LENGTH 

1137 B RJ 

11L38*RJ6 LA RO,6 -T LENGTH 

11394 B RJ 

1140¢RJ7 LA RO,? rT LENGTH 

1141¢ B RJ 

11482¢RJ6 LA RO,8 LENGTH 

1143+ B RJ 

114944R59 LA RO,9 SET LENGTH 

1145+ B RJ 

11ig6e*RJIC LA RO,10 «SET LENGTH 

1147+ 8 RJ 

1148¢RJ11 LA RO,11 «SET LENGTH 

1149+ B RJ 

1150¢RuJ ST R7,RISAVE SAVE RETURN ADDRESS 
1151+ LA R13,SAVE -PROGRAM SAVE AREA 

1152 oc oveo> 

1153+ EXTRN MODRYI] RIGHT JSUuSTIFY MODULE 

1154+ L R15,=ACMOORS)? 

1155+ BALR R14,R15 .SRANCH TO Ru 

11562 L R7,RJSAVE -eRESTORE RETURN ADDRESS 
1157+ LTR R1I5,R15 .SET CONCIFIGN CODE FOR ERRORS 
1158¢ BR R7 RETURN TO CALL 

1159 APITMS YSS SNAP eSNAP DUMP 
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1160s 

L1lG1l+ee sane eeaeenen SNAP DUMF OF ACTION PROGRAM oe ee Se HESS SHOE TEES EEE OR EE 
J162¢* 

1163+4SNAFIT ORG x 

1164+ ZGHCALL SNAP, CZAHOPIB,LP ZAR IMH, ET] WORK EW, ZABOMH,EC gENAMs g YSSE?) 
1165+ vS CH 

1166+ LA 15,ZAHDPIB 

1167s ST TS sPLIST#4%(3-1) 

1168¢ LA 15,EP 

1169 ST IS pPLIST#4x(2-1) 

1170+ LA 15,ZA#1MH 

1171¢ ST 15,PLIST*#4#¢3-1) 

1172+ LA 15,61 

LL73+ st TSsPLISTs4e0u-)) 

1174+ LA 15,WORK 

3175+ ST TS,PLIST#4e(5-]) 

1176+ LA 15,EW 

11774 ST 15,PLIST*#4e(6-1) 

1178 LA 15,ZAH#0MH 

11794 ST 15,PLIST#4e(7-1) 

1180+ LA 15,£0 

1181+ ST LSePLIST*#44%(08-1) 

1182+ LA 15,APITMS 

1183+ ST 1S,PLISTse4#(9~-1) 

1184+ LA 15,YSSE 

3185+ St 15,PLIST*#4%¢10-1) 

1186+ oI pLISt#9e¢(10-1),x"*8C* 

1187+ La 1,PLIST 

1188+ L 1S,=VCSNAP) 

1189+ BALR 14,15 

1190 BR RT RETURN REGISTER 

4191 YSS3TERM «PROGRAM TERMINATION 

LID 24 SHS SHEER HHH EH HE EKESE HE ASE SEEKING HHKS OKHKEKS SESCKRATHEKESLES SE RHAREKES SE ESHS EEE 
llig3+% PROGRAM TERMINATION * 
LLIN FHREKHY Ry AKERKEHE EERE AS ESET EE ATEE EAE AO TORE HERE EESE EEK SEE ETERES OE REDE EEE 
1195+¢TERM Cur ISNAP,C°N® eREGUEST NORMAL TERMINATION WITH SNAP? 
1196+ BE SNAP .YES 

1197+ CLI ISNAP,C*S® REQUEST ABNORMAL TERMINATION WITH SNAP? 
1198+ BNE FINISH .NO-NORMAL TERMINATION 

LIOO*ABTERM MvI ZAMPSIND,C*S* TERMINATE WITH SNAP DUMP 

1200¢ B FINISH 

12014SNAP GETIME 

P202+SNAP os OH 

1203+ LA 1,1 

1204+ svc 7 

1205¢ ST R1,ETIMG 

1206+ ZGHCALL SNAP sEZAKCPIB,EP,ZAH IMH,EI pWORK,EW »ZANOMH,E0,YSSB,YSSE) 
1207+ 6S CH 

1208¢ LA 15,Z2Aa#DP1B 

1209+ ST GsPLIST+¢4*¢(1-1) 

1210+ LA 15,EP 

1211* ST 1SsPLIST#44(2-1) 

1212¢ LA 15,ZAH8I1MH 

1213+ ST YS,PLIST*#4"(3-]) 

12144 LA 15,E1 

3215+ ST 15,PLIST#42(4-]} 

1216+ LA 15,WORK 

1217+ ST 15,PLIST+*#4e(5-)) 

1218+ La 15,Ey 
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12194 ST 1S,PLIST*#4&4 (6-1) 

1220+ LA 15,2A80MH 

1221+ ST 15,PLIST+#4*( 7-1) 

1222+ LA 15,E0 

1223+ ST 15,PLIST2444(8-1) 

1224 LA 15,Y¥$$B 

1225¢ ST 1S,PLIST*#4s(9-1) 

1226+ LA 15,YS$$E 

1227+ ST LS sPLIST#4%(10-1) 

1228+ OI PLIST#4a¢106-13,xe8C* 

1229+ LA 1,PLIST 

1230+ L 1S,=VESNAP) 

1231+ BALR 14,15 

1232¢F INISH GETIME M 

1233+*FINISH GS CH 

1234+ LA 1,1 

1235¢ Svc 7 

1236+ ST RI,ETIMNS ENDING TIME 

1237+ ZGHCALL RETURN eRETURN CONTROL TO IMS 
1238+ os OH 

12394 L 15,-=VERETURN) 

1240+ BALR) 14,15 

1242 YSSMSG 1 

L243+EMSG1 MYC OMACLMSG1),4SG1 

12444 MVC ZAMOTL O23 ,-¥CO+LMSG144) 

1245¢ B TERM 

1246 Y33MSG 2 

124T7+EMSG2 MVC OMACLMSG2) oMSG2 

1248+ MVC ZANOTL EZ} ,=YUO*LMSG204) 

1249+ 8 TERM 

1250 Y$SMSG 3 

1251+EMSG63 MVC GMACLMSG3),MSG3 

1252¢ MVC ZABOTLE2),-V¥ECT*LMSG344) 

1253+ Bg TERM 

1254 YESMSG 4 

1255*%EMSG64 MVC OMA(LMSG4 ) »MSG4 

1256+ MVC ZAROTLE2Z) ,=VCOFLMSGH*4 } 

1257 B TERM 

1258 YS$MSG 5 

1259*EMS65 MYC OMA(LMSG5),MSGS 

1260¢ MVC ZAROTLO2) g=¥(O4+LMSE6544) 

1261+ B TERM 

1262 Y$S$MSG 7 

1T263+EMSG7 MVC OMACLMSG7),4MSG7 

1264+ MVC ZAHOTLO2),-YCTD*LMSG744) 

1265+ B TERM 

1266 Y$$MSG 1G 

1267+*EMSG10 MVC OMA(LMSG10),MSG10 

1268+ MvC ZAMOTLO2),-YCO*LMSG1G44) 

1269+ B TERM 

1270 Fe SCHEER EE KOHTHLEG ERASE HET HONS EOHEEERERS HOTS EEES DS RENEE EERE OERED 
1271 « CONSTANTS 

L272 SH EHS EHSEH AEE TAROT HS SEAS ETE HOSD ET SCHERE HES HERS ETRE HE RERAEREERE HERES 
1273 ACCTPAY ODC C*ACCTPAy ACCOUNTS PAYABLE . 
1274 ACCOUNT DC C*a~CcOUNT CHART OF ACCOUNTS id 
1275 BRANCHM OC C*BRANCHM BRANCH MASTER 5 
1276 ACCIMST ODOC C*°ACCTMST ACCOUNT SUMMARY MST * 
1277 PAYROLL OC C*PAYROLL PAYROLL MASTER hd 
1278 TABLEMT OC C*TABLEMT SECURITY AND CODE ° 
1279 BLANKS OC C.sg* * 
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1280 MSGl oc X¥*10GA18011C* 

1281 oc C*USE “TRAN UNPROT DISPL** 
1282 oc x*1010C2c000°* 

1283 LMSG! EQu *-MSG1 

1284 * 

1285 MSG2 oc X*100A18U11C* 

1286 oc C*AP HEAGER NOT FOUND. CONTACT ISD* 
1287 oc x*1010020000° 

1288 LMSG2 EQu *-MSG2 

1289 » 

1290 MSG3 oc X*10GA18C11C* 

1291 OC C*AP SETLL ERROR® 

1292 OC x*103002c0C3* 

1293 LMSG3 EQU *-MSG63 

1294 * 

1295 MSG4 oc X*10GA18011C° 

1296 oc C*ITEM NOT FOUNL* 

1297 oc x*10100z2G0090° 

1298 LMSG4 EQU 2-MSG4 

1299 * 

1300 MSGS oc x*100A18011C* 

1301 oc C*CHECK NOT FOUND ° 

1302 oc x*10100209000° 

1,303 LMS6S EQuU *=-MSG65 

1304 * 

1305 MSG? BC X*10GA18C11IC* 

1306 DC C*CHECK AMOUNT CANNOT BE TRANSLATED® 
1307 oc x*101002G000* 

1398 LMSG7 EQuU *-MSG67 

1309 * 

1310 MSG10 oc X*1GGA18011C* 

1311 oC C*AP ITEMS*® 

13132 oc x*101002C0C0°* 

1313 tMSG10 EQu *-MSG10 

1314 * 

1315 MSG1i oc C*APCKS °* 

1316 oc X*SF3F 

1317 OC Cex's CHANGE 
1318 OC X*°3F3F* 

1319 Mll, oC x*os°* 

1320 oc X°3Fe 

1321 Milb BC cis* * 

1322 oC x*3FCS* 

1323 LMSG1} EQU *-MSG61) 

1324 OMI1IA EQU M1I1A-MSG1] 

1325 DM118 EQU M11B-MSG1] 

1326 * 

1327 MSG12 Oc C*APAUD ° 

1328 Oc cu3* *& 

1329 oc xX°3t°® 

3330 M12A oc cL4* ¢ CHECK TYPE 
1331 oc x°3F* 

1332 Mi2, oc CLs:s * CHECK 4& 
1333 oc Xo°ur? 

1334 pc ci2°* * 

1335 LMSG12 EQyu *-MSG12 

1336 OMi12A £QU MIZA-MSG)2 

1337 DM1cB E QU M1268-MSG6]2 

1338 * 

1339 PRINT GEN 
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“1340 : YS3PIB ePROGRAM INFORMATION BLOCK 
13916 Oe Ka eR SETHEKK EEE TERE HE TESTER RARER RH SRRY ASHE KERTH EAEESELETHS RESTS 
1342+*% LITERAL, POCL * 
13434 OO Gy Hy oy SHRERTS OE SESE SE SETH SS ORES EETH SETAE EAT RRSEK THT ESSE H HERES HES 
1344+ LTORG 
1345¢ =c*coog* 
1346+ =A(CKGDS50) 
13474 =VCMSGIN) 
1398+ =VEMSGOUT) 
1349¢ =V«GET) 
1350+ =VIGETUP? 
1351¢ =VCPUT) 
1352+ XVCINSERT) 
1353+ =VOESET,) 
1354+ =VCESETFL} 
13554 ZA(MODRJ13 
1356 =VOSNAP) 
1357+ =VCRETURN) 
1358+ TVCOFLYSami ey} 
1359+ ZYCIMAL-USTART) 
1360+ ZYC(UACCTI-USTART413 
1361+ =C*ac® 
1362+ =C*AP* 
1363+ =X°40206B2929206B2021204820 2C660° 
1364+ =C°aAl® 
1365 =CTaAPIEMS * 
1366¢ =C*APITS * 
1367+ =HPL4? 
1368+ =C°APCHKS * 
13694 =V(O*LMSG1;,*3) 
1370+ =C*APAUDT®* 
1371+ =YCO*LMSG12¢8) 
1372+ =CeAPCKS * 
1373+ =X *5C2068 20202068 2021 2046202060" 
1374+ =V(N*L TON 244) 
13754 =Y(N*LIOM1 44) 
1376¢ =Yt(O*LMSG1 44) 
1377+ ZY(O*LMSG244) 
1378 =YCOs¢L MSG 344) 
13794 =VY(O*LMSG444) 
1380+ =Y¢(NeLMSG544) 
1381+ =Y(O*LMSG744) 
1382+ =YCO*LMSG10e4 ) 
1383+ =C*APCHK ® 
1384s =C*Tso* 
1385 =c* . 
1386+ =C°A pe 
1387+ =C*APRNT®* 
1388+ =pe i? 
P3894 =P*QO* 
1390 =c*T10" 
139i =c*cole 
1392+ =C*SCREEN FORMAT® 
| 1393¢YS$E EQu * eEND OF PROGRAM 
| 21516 WORK YSSWORK eWORK AREA 


\ 151796 658OS SEHR ETT EKER TESTES THESES CES HTSTEESSEHERESS ETRE EERAESES OEREEEESE 
1518¢s WORK AREA * 
L519 68H SESE HE SEED FP OSH EE EE REET SESS SEER SE CK GRE EERE TET SKEET ERER OST EREKET ERS 
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1520¢WORK DSECT 

15S21¢STIMS OSs A «START TIME (MILLISECONDS) 
1522¢E TIMMS oS A .END TIME (MILLISECONDS) 
1523+8GEy OS H eNUMBER OF GET 

15244¢#8GETUP os ee GETUP 

1525¢HPUT os H « PuT 

IS26*HINSERT DS H. INSERT 

1527+SAVE oS 18F ,PROGRAM SAVE AREA 
15284PLIS1T DOS GA ePARAMETER LIST FOR “CALLS® 
1529¢WHO DS CL3 eUSER INITIALS 

1530*+WGRKI DS 2D epORK FIELD 

1S31*PASSKEY  FQU WORKI1,5 «SECURITY RECORD FILE KEY 
IS32+¢IOF ILE os CL20 eLAST FILE 170 

1533+10KEY OSs CL20 .LAST FILE 1/0 KEY 
1534+*IO0STS oS CL4Y «LAST FILE 170 STATUS 
1535*IORET os CL1 eFILE NOT AVAILABLE-RETURN 
IS364ERR DS CL1l ,ERROR FLAG 

1537+YYMMDO OS CL6 .DATE 

1S38*HHMMSS os CLO .TIME 

1539 RUJUSAVE os A 

1540 EXPENS os Cll 

1541 INCOME oS CLI 

1542 PROLINE ODS A 

1543 POSITION DS Cll 

1544 LAST os CLI 

1545 BRCH oS cL4 

1546 DESCPTH OS CL30 

1547 REVIEW oS CLi 

1598 TRAILS os CL250 

1549 TRAIL£1 OS A 

1550 TRAIL$S2 DS A 

1551 YSSSWORK eSDMPS WORK SPACE 
1552¢% 


L553 4 ee oe ee ee eeee ee SOMPS WORK AREA 89968 6 HGRA ERAKRBAK ETE ED SERED HEED HS ETE 
1554+" 

15554*SCRNUM DS D «SCREEN NUMBER 

1556*SCREEN#® EQU SCRNUM*4 ,4 





ISST*#SCREENW DPS CL180 .SCREEN WORK AREA 

15SS*MAXITL EQU SCREENW,2 eMAXIMUM INPUT TEXT LENGTH 
155946 

L560+eetesescesesenee SOMPS 1/0 AREAS 

1S€le% 

1S562+uUD ATA EQu * 

1563*OUTSMSG EQU * OUTPUT MESSAGE DATA 

LS64*F ILL DS CLI -OUTPUT FILE CHARACTER 

1565* INSMSG EGU * eINPUT MESSAGE DATA 

1566 * 

1567 e254 468G8%R0%% UNPROTECTED DATA 

1568 * 

1569 USTART EQu % 

1570 UTRAN OS (om) eTRANSACTION CODE 
1S7i USNAP os CLI eSNAP CODE 

1972 USLINE EQu 2 eSTART OF LINE ITEM UNPROT 
1573 IMAL EQu * 

1574 UACCT] OS CL8& eACCGUNT NUMBER 
1575 VAMmT1 os CcL10 eAMOUNT 

1576 ULESPTI OSs CL3G eDESCRIPTICN 

1577 UVEMPI OS CL4 eEMPLOYEE NUMBER 
1578 UXMITI os CL2 eTRANSMIT POSITION 
1579 ULLINE EQU *-VACCT1 eEND OF LINE ITEM UNPROT 


Figure C-11. APITMS Action Program Processing a Dialog (Part 22 of 29) 


UP-9207 SPERRY UNIVAC OS/3 C-62 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


DIALOG TRANSACTION IN BAL: APTIMS PROGRAM 























UACCT2 eACCOUNT NUMBER 
UAMT2 eAMOUNT 

UDESPT2 OE SCRIPTION 

UEMF2 eEMPLOYEE NUMBER 
UXMITF2 e TRANSMIT POSITION 
UACCT3 eACCOGUNT NUMBER 
UAMT3 eAMOUNT 

UDESPT3 eDESCRIPTICN 

UE MP3 eEMPLOYEE NUMBER 
UXMIT3 eTRANSMIT POSITION 
UACCTY eACCOUNT NUMBER 
UAMTS4 eAMOUNT 

UDLSPTY DESCRIPTION 

UEMP4 eEMPLOYEE NUMBER 
UXMITY »TRANSMIT POSITION 
UACCTS eACCOUNT NUMBER 
UAMTS eAMOUNT 

UBDESPTS eDE SCRIPTICN 

UEMPS eEMPLOVYEE NUMBER 
UXMITS «TRANSMIT POSITION 
UACTTE eACCOUNT NUMBER 
UAMT6 5 ce AMOUNT 

UOC SPT6 eDESCRIPTION 

UEMP6 oEMPLOYCE NUMBER 
UXMIT6 «TRANSMIT POSITION 
UACCTT eACCCUNT NUMBER 
UAMT7 eAMOUNT 

UDLSPT7 DE SCRIPTION 

UEMPT eEMPLOYEE NUMBER 
UXMIT7 eTRANSMIT POSITION 
UACCT8 eACCOUNT NUMBER 
UAMT8 eAMOUNT 

UDESPT8 eDESCRIPTION 

UEMFB eEMPLOYEE NUMRER 
UXMIT® eTRANSMIT POSITION 
UACCTS eACCOGUNT NUMBER 
UAMTS eo AMOUNT 

UDESPT9 «DE SCRIPTION 

UEMP9 eEMPLGYEE NUMBER 
UXMIT9S eTRANSMIT POSITION 
UACCT10 eACCOUNT NUMBER 
UAMT106 «AMOUNT 

UDESPT10 eDE SCRIPTION 
UEMP10 eEMPLOYEE NUMBER 
UxMITIO e TRANSMIT POSITION 
UVACCTI1 eACCOUNT NUMBER 
UAMI1]1 eAMOUNT 

UDESPT Li eDESCRIPTION 
UEMP11 eEMPLOYEE NUMBER 
UXMITI1 eFRANSMIT POSITION 
UACCTI12 eACCOUNT NUMBER 
UAMT12 «AMOUNT 

UDESPT12 eDESCRIPTION 
UEMP12 eEMPLOYEE NUMBER 
UXMITI2 «TRANSMIT POSITION 
UACCT13 «ACCOUNT NUMBER 
UAMT13 eAMOUNT 

UDESPT13 eDE SCRIPTION 
UEMP13 eEMPLOYEE NUMBER 
UXMIT13 e TRANSMIT POSITION 
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1640 UACCTI4 BS CL8& «ACCOUNT NUMBER 

1641 UAMTI14 DS CL10 AMOUNT 

1642 UDESPT14 DS CL36 eDESCRIPTION 

1643 UEMP14 os CL4 eEMPLOYEE NUMBER 
1694 UXMIT14 DS Ci2 e TRANSMIT POSITION 
1645 VACCT15 OS CLs eACCOUNT NUMBER 

1646 UAMTIS os cLio eAMOUNT 

1647 UDESPTI5 DS CL3G DESCRIPTION 

16498 VEMPI15 OSs CL4 eEMPLOYEE NUMBER 
1649 UXMIT15 OS CL2 eTRANSMIT POSITION 
1650 UACCT1I6 OS cls ACCOUNT NUMBER 

1651 UAMT1I6 os CL1a eAMOUNT 

1652 UDESPT16 DS CL30 eDESCRIPTION 

1653 VUEMPIE6 OS CL4 eEMPLOYEE NUMBER 
1654 UXMIT1l6& OSs CL2 eTRANSMIT POSITION 
1655 VACCTIT ODS CL8 eACCOUNT NUMBER 

1656 UAMT17 os cLid eAMOUNT 

1657 UVDESPT17 OS ctl30 DESCRIPTION 

1658 VEMPI7 oS CL4 eEMPLOYEE NUMBER 
1659 UXMIT17 OS CL2 eFRANSMIT POSITION 
1660 UACCT1I8 ODS CL8 eACCOUNT NUMBER 

1661 UAMTI18 oS CL10 eAMOUNT 

1662 UDESPT18 DS CL3G eDE SCRIPTION 

1663 UEMP18 oS CLY4 eEMPLOYEE NUMBER 
1664 UXMIT18 ODS CL2 eTRANSMIT POSITION 
1665 UACCTI9 ODS cLe eACCOUNT NUMBER 

1666 UAHT19 OS CLi0 eAMOUNT 

1667 UDESPT19 DS ci3o eDESCRIPTION 

1668 UEMFI9 DS CL4Y EMPLOYEE NUMBER 
1669 UXMITI9 OS CL2 TRANSMIT POSITION 
1679 VACCT2G OS CL8& eACCUUNT NUMBER 

1671 UAMT2C OS cLio e AMOUNT 

1672 UDESPT20 OS CL3o0 eDE SCRIPTION 

1673 UEMP20 OS CLY *EMPLOYEE NUMBER 
1674 UXMIT20 OS CL2 e TRANSMIT POSITION 
1675 DAMT EQu UAwTI-USLINE eDISPLACEMENT OF AMOUNT 
1676 DDESPT £QU UDESPTI-USLINE eDISPLACEMENT OF DESCRIPTION 
1677 DEMP EQu UVEMPI1-USL INE eOISPLACEMENT OF FRPPLOYEE &@ 
1678 OXMIT EQu UXMITI-USLINE eDISPLACEMENT OF TRANSMIT 
1679 USTOP os Ck] 

1680 * 

1681] @¢%yeeegaeeses PROTECTEG REPLACEMENT 

1682 * 

1683 PDATA EQuU % 

1684 PSTART £ QU x 

1685 PSLINE EQU * eSTART OF LINE ITEM 
1686 PLINA DS CL3 eLINE NUMBER 

1687 PCACCT1 ODS CL eACCOUNT ERROR CODE 
1688 PBACCTI ODS Ctl eACCOUNT BLINKER 
1689 PCOA! Os Cli eCASH/ACCRUAL 

1690 PBANT] OS cul eAMOUNT BLINKER 

1691 PBOESF 4 BS Cli eDE SCRIPTION BLINKER 
1692 PCEMP] DS cul eEMPLOYEE ERROR CODE 
1693 PREMP! OS Cli eEMPLOYEE BLINKLR 
1694 PELINE EQU * *END OF LINE ITEM 
1695 PLLINE EQU PELINE -PSLINE 

1696 PLIN&S2 OS CuL3 eLINE NUMBER 

3697 PCACCT2 OS Cll eACCGUNT ERROR CODE 
1698 PBACCT2 ODS cil eACCOUNT BLINKER 
1699 PCOA2 oS cll eCASH/ACCRUAL 
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1700 PBAMT? OS Cul eAMOUNT BLINKER 

1701 PBDESP2 OS CLI eDESCRIPTICN SLINKFR 
1702 PCEMP2 OSs Cli eEMPLOYEE ERROR CODE 
1703 PBEsMP2 OS Cit EMPLOYEE RLINKER 
1704 PLIN#3 OSs CL3 eLINE NUMRER 

1705 PCACCT3 ODS CLI eACCOUNT EFROR CODF 
1706 PEBACCT3 OS Cul eACCOUNT BLINKER 
1707 PCO,g3 oS CLI eCASH/JACCRUAL 

1768 PBAMT3 oS Cli «AMOUNT BLINKER 

1709 PRUcSP3 ODS Ctl eDESCRIPTION BLINKER 
1710 PCEMP3 DS cul eEMPLOYEE ERROR CONE 
1711 PBEMP3 DS CLd eEMPLOYEE SLINKER 
1712 PLIN#Y4 DS CL3 eLINE NUMBER 

1713 PCACCT4S OS cul eACCOUNT CRROR CODE 
1714 PBACCT4 OS Cul eACCGUNT BLINKER 
1715 PCOA4 os Ci) eCASH/ACCRUAL 

1716 PBAMT4 oS CLl eAMOUNT BLINKEP 

1717 PBOESp4 ODS ctl DESCRIPTION BLINKER 
1718 PCEMPS OS Cul eEMPLOYVEE ERROR CODE 
1719 PBEMP4 OS cil eEMPLOYVEE GLINKER 
1720 PLIN#S as CL3 eLIN& NUMBER 

1721 PCACCTS OS cul eACCOUNT ERROR CODE 
1722 PBACCTS OS CL1 eACCOUNT BLINKER 
1723 PCOAS oS Ct} eCASH/ACCRUAL 

1724 PBAMTS OSs CL1 eAMOUNT BLINKER 

1725 PBDESPS OS Cul eDE SCRIPTION BLINKER 
1726 PCEMPS DS Cli eEMPLOYEE ERROR CODE 
1727 PBEMPS OS cul eEMPLOYEE BLINKER 
1728 PLINMS6 DS CcL3 eLINE NUMBER 

1729 PCACCT6& ODS cul eACCOUNT ERROR CODE 
1730 PBACCTé OS cli «ACCOUNT BLINKER 
1731 PCOa6 OS Cll eCASH/ACCRUAL 

1732 PBAMTE6 OS Cii eAMOUNT BLINKER 

1733 PBDESP6 OS cil DESCRIPTION BLINKER 
1734 PCEMP6 DS CLI eEMPLOYEE ERROR CODE 
1735 PBEMP6 oS Cui eEMPLOYEE BLINKER 
1736 PLINS7 DS CL3 eLINE NUMBER 

1737 PCACCT? OS Ct} eACCOUNT ERROR CODE 
1738 PBACCT?7 OS cL} eACCOUNT By INKER 
1739 PCOAT OS CL} eCASH/ACCRUAL 

1740 PBAMT7 DS cli eAMOUNT BLINKER 

1741 PBDESP7? OS cui! eDESCRIPTION BLINKER 
1742 PCEMP7 OSs cli eEMPLOYEE ERROR CONDE 
17493 PBEMP7 DS CLi eEMPLOYEE BLINKER 
1748 PLINSS8 OS CL3 eLINE NUMBER 

1745 PCACCT8 ODS CLI eACCOUNT ERROR CODE 
1746 PBACCT8 ODS cul eACCOUNT By IQKER 
1747 PCOA8 DS Cuil eCASH/ACCRUAL 

1748 PBAMT8 os CLl eAMOUNT BLINKER 

1749 PpOESPS OS Cul eDESCRIPTION BLINKER 
1750 PCEMPS8 OS CLi eEMPLOYVYEE ERROR CODE 
1751 PBEMPS DOS cli eEMPLOYEE BLINKER 
1752 PLINSSD os CL3 eLINE NUMBER 

1753 PCACC19 OS cui eACCOUNT ERROR CODE 
1754 PBACCT9 oS cul eACCOUNT BLINKER 
1755 PCOA9 OS cul eCASH/ACCRUAL 

1756 PBAMT9S DS CL) eAMOUNT BLINKER 

1757 PBDESPS ODS Ctl eDESCRIPTION BLINKER 
1758 PCEMP9 oS Ct} eEMPLOYEE ERROR CODE 
1759 PBEMPS OSs CL} eEMPLOYEE BLINKER 
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PLIN#10 
PCACCI1C 
PBACCT16 
PCOAILO 
PRAMT190 
PBOESP1IO6 
PCEMP1O 
PBEMP10 
PLIN#11 
PCACCT1i 
PBACCT11 
PCOA1I 
PBAMT11 
PBDESP11 
PCEMP11 
PBEMP11 
PLIN@l2 
PCACCT12 
PBACCT12 
PCOA12 
PBAMT12 
PBDESP12Z 
PCEMPI2 
PBEMPI2 
PLIN813 
PCACCT13 
PBACCT13 
PCOA13 
PBAMT13 
PBDESP13 
PCEMP13 
PBEMP1 3 
PLIN#14 
PCACCT14 
PBACCT14 
PCOALSY 
PBAMT14 
PBDESP14 
PCEMP14 
PBEMP14 
PLINAIS 
PCACCT1I5 
PBACCT15 
PCOAILS 
PBAMT15 
PBDESPIS5 
PCEMPIS 
PBEMPIS 
PLIN#16 
PCACCT16 
PBACCT16 
PCOAI16 
PBAMT16 
PBUESp16 
PCEMP 16 
PBEMP16 
PLIN#17 
PCACCT1? 
PBACCT17 
PCOAIT 


eLINE NUMBER 
ACCOUNT ERROR CODE 
ACCOUNT BLINKER 
eCASH/ACCRUAL 
eAMOUNT BLINKER 

eDE SCRIPTION BLINKER 
EMPLOYEE ERROR CODE 
EMPLOYEE RLINKER 
eLINE NUMBER 
eACCOUNT ERROR CODE 
ACCOUNT BLINKER 
»CASH/ACCRUAL 
sAMOUNT BLINKER 
sDESCRIPTION BLINKER 
eEMPLOYEE ERROR COCE 
eEMPLOYEE BLINKER 
eLINE NUMBER 
eACCOUNT ERROR CODE 
eACCOUNT BLINKER 
«CASH /ACCRUAL 
sAMOUNT BLINKER 
DESCRIPTION BLINKFR 
eEMPLOYEEG ERROR COLE 
EMPLOYEE BLINKER 
LINE NUMBER 
eACCGUNT ERROR COOF 
eACCOUNT RLINKER 
»CASH/ACCRUAL 
AMOUNT BLINKER 
DESCRIPTION BLINKER 
cEMPLOYEE ERROR COPE 
eEMPLOYEE BLINKER 
eLINE NUMBER 
sACCOUNT ERROR CODE 
ACCOUNT BLINKER 
eCASH/ACCRUAL 
eAMOUNT BLINKER 
eDESCRIPTION BLINKER 
EMPLOYEE ERROR CODE 
EMPLOYEE BLINKER 
eLINE NUMRER 
ACCOUNT ERROR CODE 
sACCOUNT BLINKER 
eCASH/ACCRUAL 
eAMOUNT BLINKER 
eDESCRIPTION BLINKER 
EMPLOYEE ERROR CODE 
EMPLOYEE BLINKER 
«LINE NUMBER 
eACCOCUNT ERROR CODF 
ACCOUNT BLINKER 
eCASH/ACCRUAL 
AMOUNT @LINKER 
DESCRIPTION BLINKER 
eEMPLOYEE ERROR CONE 
EMPLOYEE BLINKER 

eL INE NUMBER 
ACCOUNT ERROR CODE 
ACCOUNT BLINKER 
eCASKR/ACCRUAL 
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1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 





















PSTOP 


Payi10 
PAY20 
LEGENDO 
VENDORO 
CHECKC 
NAMEO 
ADDRI0 
DATEO 
AMOUNTO 
ADDR20 
CcITyo 


SHES T SSR ESS ASEH EHKK SKK AKT KAS KKSHHSESE CHK KKHE SEHK SKK AE SH ESSERE HS HERR SSK 


x 








EQuU 
EGU 
EQU 
EQU 
EQU 
EQuU 
EQu 
EQU 
EQu 
EQu 
EQU 


ctl 


PSTART#5,50 
PAY10#50,5C 
PAY20 #50525 
LEGENDO #2545 
VENDORG *5,5 
CHECKO4#5,26 
NAMEO*26525 
ADDR10425 96 
DATE0%6,13 
AMOUNTO 413,25 
ADDRZ0*25 425 


RECORD AREAS 


CHECK PRINT FORMAT 





PBAMTI7 cil «AMOUNT BLINKER 
1821 PBROESpP17? OS CL1 eDESCRIPTION BLINKER 
1822 PCEMP17 ODS Cl) eEMPLOYEE ERROR CODE 
1823 PEEMP17 ODS cil eEMPLOYEE RLINKER 
1824 PLIN#18 OS CL3 eLINt NUMBER 
1825 PCACCT18 DS Cli eACCOUNT ERROR CODE 
1826 PBACCT18 DS cil «ACCOUNT BLINKER 
1827 PCOA18 DS Cul eCASH/ACCRUAL 
1828 PBAMT18 ODS cil eAMOUNT BLINKER 
1829 PBOESP18 DS cul eDESCRIPTION BLINKER 
1830 PCEMP18 OS CLI eEMPLOYEE ERROR CODE 
1831 PBEMP18 ODS cil eEMPLOYEE BLINKER 
1832 PLIN#19 OS cL3 eLINE NUMBER 
1833 PCACCT19 DS Cul eACCOUNT ERROR CODE 
1834 PBACCT19 DOS cll eAC COUNT BLINKER 
1835 PCOAIL9 OS CL1 eCASH/ACCRUAL 
1836 PBAMT19 OS cli eAMOUNT BLINKER 
1837 PBDESP19 DOS Cul eDE SCRIPTION BLINKER 
1838 PCEMPI9 ODS cil eEMPLOYEE ERROR CODE 
1839 PBEMP19 ODS cil eEMPLOYEE BLINKER 
1840 PLIN&20 OS cL3 eLINE NUMBER 
1841 PCACCT20 DS Cul eACCOUNT ERROR CODE 
1842 PBACCT20 DS cil ACCOUNT BLINKER 
1843 PCOA20 OS cll eCASHZACCRUAL 
1844 PBAMT20 OS cL «AMOUNT BLINKER 
1845 PBOESP2C OS Cuil «NE SCRIPTION BLINKER 
1846 PCEMP20 DS CL! eEMPLOYEE ERROR CODE 
1847 PBEMP20 OS cul eEMPLOYEE BLINKER 
1848 OCACCT EQy PCACCTI-PLINAL eDISPLACEMENT OF ACCT ERR CODE 
1849 DBACCT EQu PBACCTI-PLIN&1 eDISPLACEMENT OF ACCY BLINKER 
1850 DPCOA EQU PCOA1~PLIN#1 eDISPLACEMENT OF CASH/ACCRUAL 
1851 DBAMT EQu PBAMT1~-PLIN@1i eDISPLACEMENT OF AMOUNT BLINKER 
1852 DgOESPT f£QU PBOESP)-PLING1 DISPLACEMENT OF DESCPT BLINKER 
1853 DCEMP EQuU PCEMPI-PLIN#I eDISPLACEMENT OF EMP ERR CODE 
1854 DBEMP EQU PBEMPI~PLIN#I1 DISPLACEMENT OF EMP BLINKER 
1855 PTYPE DS Cul eCHECK TYPE 
1856 PCHECK OSs CLS eCHECK NUMBER 
1857 PCAMT Os CL14 «CHECK AMOUNT 
1858 PCNAME DS CL25 eCHECK PAYER 
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Figure C-11. APITMS Action Program Processing a Dialog (Part 27 of 29) 
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1877 YSSSY104 - eSECuURITY RECORD 
1878+% 

1879¢seeeeeegaeexeae TABLE MASTER RECGRE 

1860+ 

1881*KTABLEMT DS CL8 

1882¢RTABLEMT DOS cleo 

1883¢TABSTS EQuU RTABLEMT*0O6,1 STATUS 

1884¢*+LIMIT EQu RKTABLEMT#15,1 PASSWORD LIMIT 

TS8S8S*TERMTAB EQU RTABLEMT*16 TERMINAL FIELDS 

1886 * 

1887 wee¥evsoenenesses ACCOUNTS PAYABLE 

1888 * 

1889 KACCTPAY DS Chis KEY 

1890 RACCTPAY OS CkL165 eRECORE 

1891 »* 

1892 ¥* AP1GOC HEADER 

1893 * 

21894 ACCTPAYH BS CL165 

1895 HEATOT EQU ACCTPAYH#21,5 BATCH TOTAL 

1896 HCHKCNT €EQU ACCTPAYH*26,5 NEXT CHECK COUNTER 
1897 HTYPE E Qu ACCTPAYH*31,1 CHECK TYPE 

1898 HCHEC, EQu ACCTPAYH? 32,5 CHECK NUMRER 
1899 HOATE EQU ACCTPAYH*#*37,6 CHECK DATE 

3909 HVENDOR EQU ACCTPAYH#42,45 CHECK VENDOR 
1901 HAMOUNT EQu ACCTPAYH*48,5 PL2 CHECK AMOUNT 
1902 HITMTICT EQu ACCTPAYH*53,5 PDL2 CHECK ITEM TOTAL 
19903 HITMCNT EQU ACCTPAYH?5&,3 CHECK ITEM COUNT 
1904 HNAME EQu ACCTPAYH#61 926 PAYLE 

1905 HLEGEND EQu ACCTPAYH*87,26 LE GENO 

1906 HPRINT EQu ACCTPAYH4113,12 CHECK PRINT 

1907 HBATCH EQuU ACCTPAYH*114,3 BATCH NUMBER 
1908 HCHKS EQu ACCTPAYH#117,3 NUMBER OF CHECKS 
1999 HITEMS EQU ACCTPAYH®*12654 ITEM COUNT 

19139 HOLD EQu ACCTPAYH*130,5 PL2 OL0 CHECK AMOUNT 
1911 HCASH EQu ACCTPAYH?*#135,6 PL2 CHECK CASH TOTAL 
1912 HACCR EQuU ACCTPAYH*143,6 Py2 CHECK ACCRUAL TOTAL 
1913 HERRCOEC EQU ACCTPAYH#145,1 CHECK ERPFOR CODE 
1914 HACTION EQu ACCTPAYH*146,1 CHECK ACTION CODE 
1915 HCOMPL EQuU ACCTPAYHe147,1 CHECK COMPLETIOn CODF 
1916 * 

1917 + AP103 CHECK 

1918 * 

3919 ACCTIPAYC DOS CLIo6s& 

1920 CAMOUNT EQu ACCTPAYC4+29,5 PD2 CHECK AMOUNT 
192) CDATE EQuU ACCTPAYC #2044 

1922 CVENDOR EQU ACCTPAYC +2445 

1923 CNAME EQU ACCTPAYC*34,26 


1924 CADDRI EQu ACCTPAYC+6°,25 

1925 CAULR2 EQu ACCTPAYC #85425 

1926 CCITY EQU ACCTPAYC4110.26 
1927 C7ZIP EQu ACCTPAYC+136,3 PODrc 
1928 CLEGEND EQU ACCTPAYC*#!29,25 
1929 CPRINT cQu ACCTPAYC*#164 91 

1930 * 

1931 * AP104 ITEM 

1932 * 


Figure C-11. APITMS Action Program Processing a Dialog (Part 28 of 29} 
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1933 ACCTPAYI OS CtL165 
1934 AITRIO EQu ACCTPAYI#00,2 «RECORD 4D 
1935 AITYPE EQu ACCTPAYI*02,1 eCHECK TYPE 
1936 AICHECK EQU ACCTPAYI*03,5 «CHECK NUMBER 
1937 AICNT EQu ACCTPAYI+*08,3 eITEM COUNT 
1938 AIVENDOR EQu ACCTPAY1419,5 «VENDOR 
1939 ATACCT EQU ACCTPAYI4*24,48 eACCOUNT NUMBER 
1940 ATAMT EQU ACCTPAY1+*32,5 eAMOUNT 
1941 ATEMP EQu ACCTPAY1453,4 eEMPLOYEE 
1942 AIDESCPT EQu ACCTPAYI*57,39 eDESCRIPTION 
1943 AIBATCH E€QU ACCTPAYI*87,3 »BATCH 8 
1944 ATIERR EQU ACCTPAYI*90,3 eERROR BATCH & 
1945 AICOA EQuU ACCTPAYVI+93,1 eCASH OR ACCRUAL 
1946 * 
1947 * GLOOI ACCOUNT MASTER 
1948 * 
1949 KACCIMST DS CL8 
1950 RACCTMST OS cLeo 
1951 AMSTS EQuU RACCTMST*S351 STATUS 
1952 * 
1953 * SYO00 BRANCH MASTER 
1954 * 
1955S KBRANCHM DOS CL3 
1956 RBRANCHM OS CL250 
1957 BMSTS EQu RBRANCHM,1 STATUS 
1958 * 
1959 * GLOO3 CHART OF ACCOUNTS 
1960 * 
1961 KACCOUNY DS CL8& 
1962 RACCOUNT E£QU RBRANCHM*50,¢90 
1963 CASTS EQu RACCOUNT*+8,1 STATUS 
1964 CACOA EQu RACCOUNT+#38,1 CASH OR ACCRUAL 
1965 CAEXP EQu RACCOUNT*#46,1 EXPENSE ACCOUNT 
1966 CAINC EQu RACCOUNT#49,1 INCOME ACCOUNT 
1967 * 
1968 * PEOIO PERSONNEL MASTER 
1969 * 
1970 KPAYROLL OS CLS 
1971 RPAYROLL DS CL42) 
1972 PMSTS EQu RPAYROLL,1 STATUS 
1973 PMCAL EQU RPAYROLL*172,1 CLASSIFICATION 
1974 
1975 # SYO92 PERSONNEL CLASSIFICATION 
1976 * 
1977 IMSTS EQu RTABLEMT*8,1 
1978 TMEXP EQU RTABLEMT 4 32,1 
1979 OMA YSSOMA 2568 
1980+*EW EQu * END OF WORK AREA 
2052 CDA YSSCDA 
ZOOS SSK SOARES HERSEK SS HESEHS SHAS HS AKA HSH SE TEKS SH ST SHAR EK KES HSK S HERE OE KEE 
205444 CONTINUITY DATA AREA * 
20554 88 OOS OES HK SETHE EK HEHE SE COSHH HESS KSEE EK SEEKER HR EE EKA SS SHER EREEE 
2056*COA DSECT 
2057+ OS OH 
END 


2058 


Figure C-11. APITMS Action Program Processing a Dialog (Part 29 of 29) 
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C.5. SAMPLE IMS CONFIGURATION 


Programs receive DICE Figure C-12 is a sample IMS configuration of the SUPPLY, 

Sequences APCHKS, APITMS, and APAUDT action programs. Notice these 
programs are prepared to receive DICE sequences and therefore 
the EDIT=NONE parameter is specified in the ACTION sections 
of this configuration. 


NETWORK BATCH=NO CONFIC=G92 NAME=GINI] PASSWORD=GIN] TERMS=14 
CENERAL AUDITNUM=50 CHRS/LIN=80 LNS/MSG=24 MAXCONT=3886 
OPTIONS CONTGUT=NO DLLOAD=NO FUPDATE=YES 
OPFCOM=YES 
RECOVERY=NO RE SEND=NO 
SNAPED=NO 
SUBPROGIYES TOMFILE=NG TOMTRCL=NG 
UNIQUE=TRAN 
UNSOL=NO 
TIMEOUTS ACTION=60 
STATUS=39 
FILE BRANCHM FILETYPE =ISAM BLKSIZE=0512 LOCK=TR 
TYPEFLE=RANSEQ UPDATEZYES RECFORM=FIXBLK PCYLOFL=20 
PECSIZE=250 KEYLOC=10 KEYLiN AS 
IGAREALZBRANCHM KEYARGIBRANCHM WORK] =RRANCHM 
TOROUTZADDRTR IOREG=8 wORKS=YES 
INDAREAZBRANCHM INUSTZE=256 
TABLEMT FILETYPE =ISAM BLKSIZEZGLE12 LOCK=TR 
TYPLFLE-=RANSECQ UPDATEZ=YES RECFGRMIFIXBLK PCYLOFL=39 
RECSIZE-98O0 KEYLOC=IC KEYLEN=8 
TOAREAL-TABLEMT KEYARGITABLEMT WORKI=TABLEMT 
SCRFIL FILETYPE=DAMR BLKSIZE=2560 LOAREAI=SSCRFIL READID=YES 
RELATIVE =F SEEKADR=SCRFIL WRITEIO=YES LOCK =uUP 
PAYROLL FILETYPE ISAM BLKSIZE=-128C LOCK=TIR 
TYPEFLE-=RANSEQ UPDATE=YES RECFORM=FIXBLK PCYLOFL=30 
RECSIZE=421 KEYLOC=6 KEYLEN=S 
TOAREALZ=PAYROLL KEYARG PAYROLL WORKI=PAYROLL 
TORVUTIADORTR IOREG=8 WORKS=YES 
ACCGUNT FILETYPE=ISAM BLKSI2E=G512 LOCK=TR 
TYPEFLE=RANSEQ UPDATE=YES RECFORM=FIXBLK PCYLOFL’=10 
RECSIZE=980 KEYLOC-G KEYLEN=8 
IOAREALZACCOUNT KEYARG=ACCOUNT wORK] =ACCOUNT 
ITORGUT=ADORTR IGREG=8 WORKS -YES 
ACCTIMST FILETYPE=ISAM BLKSIZE=0512 LOCK=TR 
TYPEFLE=RANSEQ UPDATEZYES RECFORMIFIXBLK PCYLOFL=20 
RECSIZE=9080 KEYLOC=C KEYLEN=8 
IGAREAL=ACCTMST KEYARGIACCIMST wWORKI=ACCTMST 
TOROUT-ADDRTR ICGREG=8 WORKS=YES 
ACCTPAY FILETYPE =ISAM BLKSIZE=1022 LOCK=TR 
TYPEFLE=RANSEQ UPDATE-YES RECFORMIFIXBLK PCYLOFL=40 
RECSYIZ2E=165 KEYLOC=G KEYLEN=15 
IOAREAI~ACCTPAY KEYARG-ACCTPAY WORK} =ACCTPAY 
TORGUTIZADORTR IOREG=B WORKSZIVES 





Figure C-12. Sample IMS Configuration (Part 1 of 2) 
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FILE 







TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TEPMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
ACTION 













ACTICN 


ACTION 





ACTION 







PROGRAM 
PROGF AM 
PROGRAM 
PROGRAM 










TRANACT 


TMOs 
TMO7 
TMO6 
TMa9 
TMO4 
IM1C 
TMdS 
™1] 
TMQ 
TMLe 
TMol 
APCKS 
APITS 
APAUD 


SUPLY 


APITMS 


APAUDT 


APCHKS 


SUPPLY 


APITMS 
APCHKS 
APAUDT 


SUPPLY 





VENDORM FILETYPE-ISAM BLKSIZE=1022 LOCK=TR 


TYPEFLEZRANSEQ YPDATE-YES RECFORM=FIXELK PCYLOFL=19 
RECSTZ0=199 KEYLOC=0 KEYLEN=S 
TOAKEAI-VENDORM KEYARG-VENDORM WORK] -VENDORM 
TORCUTZADDRTR LOREG=I& WORKS-YES 
FILETYPE =JSA&M BLKSIZE-1022 LOCK=TF 
TYPEFLE-RANSEQ UPDATEZYES RECFORM=FIXBLK PCYLOFL=30 
RECSTZE=165 KEYLOC=C KEYLEN=15 
ICAREALATRANACT KEYARGITRANACT WORKI=TRANACT 
TORUUTZADDRTR TOREG=8 WORKS-YES 
IMSRLEALRY=NO 
IMSREADY=NO 
IMSHCADYINO 
PMSREACY=IMNO 


IMSRCACY=NO 
IMSRLADY=NO 


MASTERIYES 


ACTION-APCHKS 

ACTION=APITMS 

ACTION AP AUDT 

ACT ION=SUPPLY 
ECITINONE 
FILESZACCOUNT,ACCTMST,ACCTPAY »,BRANCHM,PAYROLL 
FILE S-SCRFE IL + TAGLEMT,VENDORM 
INSIZE=STAN MAXSIZE=9472 OUTSIZE=2568 WORK SIZE-=3584 
ALLENTINO 6YPASS=2 MAXUSERS=2 
EP IT-NONE 
FILESZACCOUNT sACCTPAY ,ARANCHM,SCREIL sPAYROLL 
FILE SZTABLEMT,VENDORM 
INSIZE=STAN MAXSIZE-896C0 OUTSIZE=2568 wORKSIZ£=3072 
ALLANT=NQ BYPASS=2 MAXUSERS=1 
EX TIT=NONE 
FILESZACCTPAY,PAYROLL ,SCRFIL ,TABLEMT ~VENDORM 
INSIZE=STAN MAXSIZE=7936 OUTSIZE=2568 WORK SIZE =2048 
ALLENTINO &YPASS=2 MAXUSERS=) 
EFC IT-NONE 
FILE S=BRANCHM, TABLEMT,TRANACT 
INSIZE=STAN MAXSICE=223U4 CUTSIZE=STAN WORK SI 26 =3024 
ALLENT=INO &YPASS=5 MAXUSEKS=ZI1 

ERE TZYES TYPE-=SER 

ERE TIYES TYPE=RNTI 

ERE TIVES TYPE-8N1I 


ERET-YES TYPE=SER 





Figure C-12. Sample IMS Configuration (Part 2 of 2) 
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Appendix D. Status and Detailed 
Status Codes 


Results from function IMS returns a status code and sometimes both status and 

call execution detailed status codes after each function call issued by your 
action program. IMS places these codes in the STATUS-CODE 
and DETAILED-STATUS-CODE fields of the program information 
block. Your action program then tests the contents of these 
program information block fields and performs routines to handle 
the conditions indicated by them. 


Status codes Table D-1 shows the status codes and their meaning for 
sequential and random functions issued to sequential, relative, 
indexed, and defined files. 


Detailed status codes Table D-2 shows detailed status codes IMS returns with invalid 
key status code 1. 


Table D-3 describes detailed status codes IMS returns with 
status code 3 for invalid request errors. 


Table D-4 lists detailed status codes returned by IMS with status 
code 6 for internal message control errors. 


Table D-5 explains detailed status codes returned with status 
code 7 for screen formatting errors. 
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Table D-1. Status Codes for {/O Function Calls 





Successful 


Detail cycle 


Ix|x]x] | invalid record number 
x Invalid key 


Ze Invalid record type 


End of file (DAM files only) 


uinf=a][oa]f= f[o 


x x 


i 
FEE Te 
pepe epee de bee fe be Def bee fa [ooo 

PEC panne 


Table D-2. Detailed Status Codes for Invalid Key Errors 
(Status Code 1) 


Code Description 
(Hexadecimal) P 
01 Invalid duplicate key count } Duplicate key count value on random GET 
function is zero or exceeds number of 
duplicate keys. 
No identifier supplied Insert an IDENTIFIER statement in the data 
definition. 


Identifier too long Identifier must be 1 to 30 alphanumeric 
characters. 


E4 Identifier out of range Value entered at terminal is not in range 
of VALUE clause specified in Data 
Definition. 


Unallocated optional file 
({MIRAM files only) 


a eel a ie oe 
pe ee | 

zee e 

pee Me pei 
PPL CPT 
=p i a 
CE Ot) a ee 


FE Ee 


ou + Ww NR 


fof Sa isd 
[aes EES 
Pee TTT 
TTR TT 
Bel a 
Dp Dc RS NY VW EG 
ill a DO 
Os a 
fe Es Fe ee Ke 
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Table D~3. Detailed Status Codes for Invalid Requests (Status Code 3) 
(Part 1 of 2) 


Code D one 
(Hexadecimal) SScnipiion 


Incorrect number of parameters The number of parameter addresses 
contained in a request parameter list 
in inconsistent with the function 
requested. This error can result 
from the failure of BAL action 
programs to set the sign bit in the 
final address word in a _ request 
parameter list as required by 
standard linkage conventions. 


Function code out of legal range | This error may occur when an 
action program inadvertently writes 
into the IMS link module that is 
linked to a_ serially reusable or 
sharable action program, or control 
passes improperly from an action 
program to IMS. 


03 Incorrect parameter value The parameter list address passed 
to IMS on a request is O, or an 
address contained in the parameter 
list is O, or the actual value of a 
parameter is incorrect. This error 
can also occur when an |/O area for 
a DAM file was not half-word 
aligned. 


Shared record not in use by This code does not apply to user 
this transaction action program requests. 


File not defined A logical or defined file named in a 
request to IMS is not configured or 
defined via the data definition 
processor. 


File not open The ZZCLS master terminal 
command closed a_ logical file 
named in a request to IMS or data 
management closed a logical file as 
the result of an unrecoverable error. 


Function invalid for type of The function specified in a request 

file to IMS is not valid for the type of 
file named. For example, the action 
program issued a SETL function call 
for a nonindexed file. 


Record(s) not locked The action program issued = an 
UNLOCK function when no locks 
exited. 


PUT or DELETE request not The function sequence for an update 
preceded by a GETUP request operation is not valid. 
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(Part 2 of 2) 


Illegal function requested 


File not assigned to this action 


Required module not included 
in configuration 


Capacity exceeded on 
INSERT request 


Insufficient space in main 


Update not permitted in 
configuration 


Update suppressed for files 


Trace file down 


Record was locked by another 
transaction (single-thread 
only) 


Work-aree address invalid or 
SETLOAD was not issued before 
GETLOAD 


Data buffer too small (less 
than 10 bytes) 


Another SETLOAD call was 
issued between the initia! 
SETLOAD and the GETLOAD cali 


D-4 
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Table D-3. Detailed Status Codes for invalid Requests (Status Code 3) 


he requested function is not 
consistent with the DTF or RIB 
parameters in the configuration. 


The action program requested a 
logical file that was not named in 
the configured definition of the 
action making the request, or the 
preceding action did not name a 
defined file. 


The action program requested a 
feature not included in the IMS load 
module at configuration time. 


An action program requested 
insertion of a record into a MIRAM 
or ISAM file, but insufficient space 
exists to contain the new record. 


User must allocate more = main 
storage. 


An action program requested an 
update function, but update was 
disallowed at configuration time. 


The requested update is not 
permitted because of an I/O error in 
the audit file. 


File recovery is not operational; only 
file displays are allowed. 


Under — single-thread, an action 
program issued either a GETUP or 
INSERT request on a record, but 
this record was already locked by 
some other transaction. 


Check the order in which you issued 
SETLOAD and GETLOAD calls; 
make sure that work area is word 
aligned. 


Make sure the value specified on 
the size parameter of the GETLOAD 
call is greater than 10. 


Check that an additional SETLOAD 
call was not issued before the 
GETLOAD call. 
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Table D-4. Detailed Status Codes for I/O Errors (Status Code 4) 


File Type Error Code Description 


: 
DAM filenameC +2 
SAM 

ISAM 


Table D-5. Detailed Status Codes for Internal Message Control Errors 
(Status Code 6) (Part 1 of 2) 








nn is the hexadecimal value of data management area 
error code contained in the first byte of the detailed 
status code. 








The second byte of detailed status code is error 
subcode interpretation. (See 3.6 and system 
messages programmer/operator reference, UP-8076 
(current version).) 










Is the value in the detailed status code. For 
interpretation, refer to data management user guide, 
UP-8068 (current version). 





Detailed Status 
Code Description 
(Hexadecimal) 


Destination terminal busy, Output-for-input queueing 
on hold, or down requested and: 


1. Destination terminal is in 
interactive mode. 


Destination terminal has an 
input message on queue. 


ZZHLD or ZZDWN command 
was entered for destination 
terminal. 


Destination terminal is marked 
physically down to ICAM. 


IMS cannot allocate main 
storage buffer (multithread) 
only; INBUFSIZ specification 
inadequate. 


Destination terminal physically SEND function was issued for 

or logically down; message message switching. Message is 

queued queued at destination terminal and 
is retransmitted when _ terminal 
becomes operational. 


Invalid specification in Invalid destination terminal-id or 

output message header auxiliary-device-id; or aux-function 
field contains X'C3', X'F3’, or X'F7’ 
(not valid with SEND function). 


05 No ICAM network buffer available | Insufficient buffer space allocated in 
ICAM network definition. 
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Table D-5. Detaiied Status Codes for Internal Message Contro! Errors 
(Status Code 6) (Part 2 of 2) 


Detailed Status 
Code Description 
(Hexadecimal) 


Output error occurred on attempt to 
write message to disk; error passed 


Disk error 

to IMS by ICAM. 
Invalid length specification In delayed internal succession or 
output-for-input queueing, output 
message length was larger than the 
input buffer pool. 





Table D-6. Detailed Status Codes for Screen Formatting Errors (Status Code 7) 





(Part 1 of 2) 


Detailed Status 
Code Description 
(Hexadecimal) 


Validation error; ail error 
fields in variable data area 
replaced by hexadecimal F's 
and affected field-error 
Statuses set in the output- 
status area 


Buffer address indicates a 
format area not large enough 
to receive the screen format 


Variable data area not 
large enough 


Insufficient number of 
terminals configured for 
SFS 


Variable data specified 
when no variable data 
area exists 


Format dimensions are 
greater than screen 
dimensions 


Fata! error; 1/O error 
reading format file 


Check validation error codes 
returned in status byte for 
invalid field 


Check the length field in output 
message header portion of 
format area to find actual 
length required for the format 
described 


Check data-size parameter on 
BUILD function 


Check SFS parameter in the 
OPTIONS section of configurator 


Variable-data parameter specified 
in BUILD function but no output 
fields or option indicator 

bytes described in action 
program. 


Check screen format generation 
for length of screen format. 


Get DM error message from 
console; refer to OS/3 

system messages programmer/ 
operator reference, UP-8076 
(current verson). 
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Table D-6. Detailed Status Codes for Screen Formatting Errors (Status Code 7} 


(Part 2 of 2) 


Detailed Status 
Code 
(Hexadecimal) 


Description 


REBUILD not allowed 


Invalid field in variable 
data area 


Variable-data parameter 
specified but no error 
field detected 


Screen format incorrectly 
generated 


SFS failed 


SFS failed during input 
conversion 


Screen format can't 

be transmitted because 
this is a program- 
initiated DDP transaction. 


User issued output-only screen and 


can issue a REBUILD only 
with input fields. 


On REBUILD, data description in 
action program doesn't match 
screen format generation. 


Screen coordinator checked 
all data in variable-data 
area and no fields of 
hexadecimal F's found. 


On BUILD, data description 
in action program doesn't 
match screen format generation. 


System error. Take dump 
and write software user 
report (SUR). 


Inadequate main storage in 
system; or format contains 
protected fields and terminal 
does not have protect feature 
or is not in protect mode. 


Action program processing 
DDP transaction attempted 
to send screen format to 
initiating action program. 
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Appendix E. Generating Edit Tables 


E.1. PURPOSE 


The edit table generator offers a convenient means for converting 
unformatted input received from terminal operators into fixed 
formats required by action programs and checking this input for 
types of data, value ranges, and presence of required fields. 


Edit table generator output The output of the edit table generator is written to the named 
record file (NAMEREC). From there it is loaded at the appropriate 
time by IMS. Each edit table is associated with a particular action 
at configuration time via the EDIT parameter in an ACTION 
section. The edit table utility can be run either before or after 
configuration, but the NAMEREC file must be previously initialized. 


E.2. GENERATOR INPUT CODING RULES FOR EDIT TABLE 


Edit table generator input Input to the edit table generator is in the form of keyword 

parameters parameters that define the edit table, the fields you want edited, 
and the edit criteria for each field. Note that the statement 
conventions in Appendix A also apply. 
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Sequence numbers 


Where to code parameters 


Spanning lines 


New line 











To code input to the edit table generator, apply the following 
rules: 


1. Input entries must contain sequence numbers in columns 77 
through 80, in ascending order. The lowest permissible 
sequence number is 0001. 


2. Parameters can be coded in any column between 1 and 76. 
Blanks are ignored and are permitted anywhere in the edit 
table definition. 


Example: 


1 77 80 
SEP=;ETAB=ETABTST ; KEY=1;POS=@;MAN=Y;LEN=5; 
KEY=2;FIL= ;JUS=L;LEN=15;MAN=Y;TYP=A;POS=5; 
KEY=3;FIL= ;JUS=L;LEN=20;POS=20;TYP=M;; 


sess 
WN = 
ess 
ess 


3. Specifications for an edit table and for each field can span 
more than one line. However, a keyword and its value must 
be contained on one line. 

Example: 


INCORRECT CORRECT 





SEP=;ETAB=ETABTST ;KEY=1;PO0S= 


0100 SEP=;ETAB=ETABTST ;KEY=1;POS=0; 0100 
0200 





0;MAN=Y ;LEN=5;MAN=Y;LEN=5;; 


KEYWORD AND VALUE 
NOT ON SAME LINE 


4. A new edit table specification must start on a new line. Each 
field need not begin on a new line. 





Example: 

INCORRECT CORRECT 
SEP=;ETAB=ETABTST;KEY=1;POS=0; 0100 SEP=;ETAB=ETABTST;KEY=1;POS=0; 0100 
MAN=Y;LEN=5; 0200 MAN=Y;LEN=5 ;KEY=2;FIL= ;JUS=L; 0200 
KEY=2;FIL= ;JUS=L;LEN=15;MAN=Y; 0300 LEN=15;MAN=Y;TYPSQ;POS=5;; 0300 
TYP=A;POS=5;;SEP=,ETAB=TABL1, 0400 SEP=,ETAB=TABL1,KEXE1,LEN=20, 0400 


KEY=1,LEN=20,POS=290 


NEW EDIT TABLE NOT 
SPECIFIED ON NEW LINE 





9500 POS=20,, 9500 


NEW FIELD NEED 


NOT START 
ON NEW LINE 
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Field separator character 5. The field separator character specified by the SEP keyword 
parameter must be used as the field separator throughout 
the edit table specification, as well as in the input message 

Changing separator character to be edited. Double separator characters indicate the end of 
the edit definition. A new edit table can establish a different 
separator character. 


Example: 


INCORRECT CORRECT 





SEP=;ETAB=ETABTST,KEY=1,POS=0; 0100 SEP=;ETAB=ETABTST;KEY=1;POS=0; 0100 
MAN=Y;LEN=5; 0200 MAN=Y;LEN=5;; 0200 
SEP=.ETAB=TABL4.KEY=1.POS=0. 0300 











0400 
END OF EDIT DEFINITION ESTABLISHES A NEW 
NEEDS DOUBLE SEPARATOR SEPARATOR 
CHARACTER 
SAME FIELD SEPARATOR 
NOT USED THROUGHOUT 
EDIT TABLE DEFINITION 
Order of parameters 6. The SEP, ETAB, and KEY parameters must be coded in the 
& prescribed order; the remaining keyword parameters can be 


specified in any order. SEP and ETAB are coded once for 
each edit table. The remaining parameters are repeated for 
each field in the input message to be edited. 


Example: 


INCORRECT CORRECT 





;KEY=1; 0100 SEP=; ETAB=ETABTST ; KEY=1;POS=0; 0100 
ETAB=ETABTST;; 0200 MAN=Y ;LEN=5; ; 0200 








ETAB AND KEY PARAMETERS 
DON'T IMMEDIATELY FOLLOW 
SEP 
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Numeric values 


7. Numeric values are positive unless preceded by a minus sign 
(-). The plus sign (+) is not permitted in numeric values. 


Example: 


INCORRECT CORRECT 


0100 
0200 





SEP=;ETAB=TABL1;KEY=1;LEN=5; 
0200 POS=0;MAX=20000;MIN=-1;; 


SEP=;ETAB=TABL1;KEY=1;LEN=5; 0100 
POS=0 ;MAX=+200009;MIN=- 13; 


PLUS SIGN NOT 
ALLOWED 


NUMBER OF CHARACTERS 
EXCEEDS LENGTH GIVEN 
IN LEN PARAMETER 
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E.3. EDIT TABLE GENERATOR PARAMETERS 


Input parameter format The input parameters you give to the edit table generator should 
follow this format: 


SEP=separator-character 
ETAB=tablename 
sabes teva 

position 
LEN=field-length 
POS=starting-position 


[FIL=fill-character ] 





[MAX=max imum- value] 
([MIN=minimum- value] 


TYP=/A 


Separator character (SEP) The separator parameter specifies the field separator character 
for both the edit table definition and the input message to be 
edited. It cannot be a blank, equal sign, or minus sign. This 
parameter is required, must be the first entry on the first line of 
the edit table definition, and can be specified only once per edit 
table. 


Edit table name (ETAB) The edit table name parameter names the edit table and must 
immediately follow the SEP parameter. This specification 
associates the edit table with an action at configuration, via the 
EDITtablename option in the ACTION section. 
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Key field identification 
(KEY) 


Positional fields 


Keyword fields 


Edited field 
length (LEN) 


The key field parameter identifies the input message field for 
which edit criteria are specified in subsequent parameters and 
must be the first parameter specified for each field. The edit 
table generator associates all subsequent specifications with this 
field until it encounters another KEY parameter. Input fields can 
be positional or keyword. Positional fields precede keyword 
fields. 


KEY =position specifies the relative position of the field as it 
appears in the input message. Positional fields must be defined in 
numeric order, starting with 1. 


KEY=keyword specifies a 1- to 3-character alphanumeric 
identification. The first character must be alphabetic, for a keyword 
field in the input message. The terminal operator enters keyword 
fields in the form keyword=data. For example, when you specify 
KEY =OLD, the terminal operator might enter OL.D=57500 for this 
field. Once a keyword field is identified in the edit table definition, all 
subsequent fields must be defined as keyword fields. 


Figure E-1 shows the correct coding for positional and keyword 
parameters to the edit table generator. 


POSITIONAL 


s p= ;ETAB=TABL 1 KEY=1) POS=0;MAN=Y;,LEN=5;, 
POSITIONAL FIL= ;,JUS=L;LEN=15;MAN=Y;TYP=A;POS=5; 


KEY=NEW;FIL= ;JUS=L;LEN=10;POS=20;TYP=M;; 
KEYWORD ayaa i 
KEY=OLD;FIL= ;JUS=L;LEN=10;POS=30;TYP=M; ; 





Figure E~1. Edit Table Parameter Description with Positional 
and Keyword Parameters 


The length parameter specifies the length of the edited field and 
is a required parameter. You may specify a maximum of 255 
characters for alphanumeric fields and four characters for binary 
fields. Ten characters is the maximum length for numeric fields 
unless you specify both MIN and MAX parameters for this field. 
If you identify a numeric field in the action program as packed 
decimal, you can specify up to 16 characters in the LEN 
parameter. 
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NOTES: 
Field-length longer than 1. If the field-length is larger than the width of the screen on 
screen width which data is to be entered, IMS removes the DICE code at 


the end of each line of terminal input and replaces it with a 
blank character. You must provide for these additional blank 
characters in the action program and include them in the 
field-length specified by the LEN parameter. 


Binary and packed field 2. The length specified for binary (TYP=B) and packed 

lengths (TYPP) fields is the maximum length for the field in the input 
message, not the length of the field in your program. For 
example, if a field is defined as packed with a LEN=3, the 
largest number the terminal operator can key in is 999, even 
though 1000 may be represented in a packed field in 3 
bytes. 


Transaction codes under five 3. If the transaction code (the first field in the input message) is 

characters less than five characters, the terminal operator must key in a 
space before entering the separator character for the next 
field. You must include the space in the field-length specified 
by the LEN parameter. 


TRANSACTION CODE IS PAY 


so 


OPERATOR ENTERS 





AND LEN=4; 
Transaction code field The length of the first field can be greater than five 
larger than five characters characters, but only the first five characters are used in the 


transaction code. The LEN parameter should specify the 
actual length of the field. 
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Field starting position 
(POS) 


Fill character 
identification (FIL) 


Field justification 
(JUS) 


Mandatory field (MAN) 


Maximum value limitation 
(MAX) 


Minimum value limitation 
(MIN) 


Data type (TYP) 


The starting position parameter specifies the starting position of 
this field as it appears in the edited message and is a required 
parameter. The first field starts at O. 


The fill character parameter optionally specifies the fill character 
inserted in the edited field when the field the terminal operator 
enters as input is shorter than the field-length specified by the 
LEN parameter. The default fill character is O. If you want to fill 
with spaces (X‘40’), code either FIL= or FIL=A; i.e., you can 
include or omit a space before the separator character for the 
next field. Binary fields are always filled with binary zeros; 
therefore, this parameter is ignored if specified for a binary field. 


JUS=L left-justifies this field in the edited message. Binary and 
packed fields are always right-justified; therefore, this parameter 
is ignored if specified for binary or packed fields. 


JUS=R right-justifies this field in the edited message and is the 
default assumed. 


MAN=N indicates that this field is not mandatory in the edited 
message for input to be acceptable. 


MAN=Y indicates that this field is mandatory in the edited 
message. 


The maximum value parameter specifies the maximum value 
allowed for the field in the input message. This parameter applies 
only to numeric fields. The highest value allowed is 2 to the 
thirty-first power minus 1, (23'-1). The number of characters in 
this value must not exceed the length specified by the LEN 
parameter. 


The minimum value parameter specifies the minimum value 
allowed for the field in the input message. This parameter applies 
only to numeric fields. The lowest value allowed is minus 2 to 
the thirty-first power minus 1 (-(231-1)). The number of characters 
in this value must not exceed the length specified by the LEN 
parameter. 


The type parameter describes the type of data to be contained in 
the edited field. 
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TYP=A specifies alphabetic data. A field defined to the editor as 
alphabetic is treated as an alphanumeric field. 


TYP=B specifies binary data. 
TYP=M specifies alphanumeric data and is the default value. 
TYP=N specifies numeric data. 


TYP=P specifies packed decimal data. 
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E.4. EXECUTING THE EDIT TABLE GENERATOR 


Job control stream 


When execution is 
successful 


Duplicate edit 
table name 


Errors in edit table 
generation 


Once you code input parameters describing the edit table format 
and the NAMEREC file is initialized, you can execute the ZH#EDT 
edit table generator using the control stream illustrated in Figure 
E-2. 


JOB ADDEDT, , A000 

DVC 20 // LFD PRNTR 

OPTION DUMP 

DVC 50 // VOL DS9999 // LBL NAMEREC,DS9999 // LFD NAMEREC 
EXEC ZH_EDT 


input parameters 


input parameters 





Figure E-2. Sample Execution of Edit Table Generator 


If the input definition is acceptable, the generated edit table is 
written to the NAMEREC file and the following message is 
issued: 


tablename ADDED 


If the edit table has the same name as a table already existing in 
the NAMEREC file, the new edit table replaces the existing table, 
and the following message is issued: 


TABLE ADDED, DUPLICATE DELETED 


If errors cause rejection of the edit table, the following message 
is issued: 


tablename REJECTED 
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UPSI byte values Another way to determine edit table errors is to look at the UPSI 
byte. The following UPSI byte values pertain to the edit table 
error status: 


00 No errors 


40 Warning. ZH#EDT continues processing edit table input 
parameters but no edit table is built. 





80 Fatal error. Edit table processing terminates. 
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E.5. ERROR PROCESSING 


Warning errors 


Fatal errors 


Error message format 


When the edit table generator encounters a file 1/O error or 
certain types of input errors, it terminates and prints a message 
in the output listing. The resulting value in the UPSI byte is 80. 
Most types of input errors do not cause termination. Processing 
and validation continues, but an error message is printed and the 
edit table is rejected. Input specifications for the edit table 
generator are not printed in the output listing. This type of error 
results in an UPSI byte value of 40. 


If an I/O error occurs while reading input to the edit table 
generator, the following message is issued, and the program 
terminates with an UPSI byte value of 80: 


INPUT READ ERROR, SCAN TERMINATED 


If an error occurs while opening, reading, or closing the named 
record file, the following error message is issued and the 
program terminates with an UPSI byte value of 80: 


FILE ERROR, SCAN TERMINATED 


Errors in the input statements are reported in the following 
format: 


nnnn ce error-message-text 


where: 


nnnan 
Is the sequence number in columns 77 through 80 of 
the card containing the error. 


cc 
Is the column number of the beginning of the input text 
that is in error. This column number is suppressed if the 
error is detected during final validation of all parameters 
for a given field. 


error -message-text 
Is the description of the error as listed in Table E-1. 
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An example of an input statement error and the resultant error 


message follows: 


Input: 


SEP=,ETAB=EDIT1,KEY=1,LEN=5,POS=0, JUS=X,MAN=Y, 0002 


Error message: 


0002 39 JUSTIFICATION ILLEGAL 


Table E-1 lists alphabetically the message texts inserted into the 
input statement error message. In each case, processing 
continues, unless otherwise indicated in the explanation column. 


Table E-1. Edit Table Diagnostic Messages (Part 1 of 2) 


B TYPE LENGTH GR THAN 4 


CARDS NOT IN SEQUENCE 


DOUBLE SEPARATOR MISSING 


DUPLICATE NAME 


FIELD NOT ACCEPTED, KEYS STARTED 


FIELD NOT IN SEQUENCE 

FILLER MUST BE SINGLE CHARACTER 
ILLEGAL FIELD TYPE 

INVALID MAN SPECIFICATION 


INVALID NAME 


INVALID SEPARATOR 


JUSTIFICATION ILLEGAL 
KEYWORD ETAB MISSING 


KEYWORD INVALID 





Four characters (one full word) is 
maximum 


Scan terminated, run aborted* 


Warning only; end-of-file encountered 
while searching for separator 


Duplicate name for nonpositional field 


Positional parameters not allowed after 
nonpositionals started 


Positional parameters must be in sequence 
Self-explanatory 

Only A, B, M, N, or P accepted 

Only Y or N accepted 


Name too long or contains _ invalid 
characters 


Scan terminated, run aborted; = and - are 
not allowed as separators* 


Only R or L accepted 
Self-explanatory 


Self-explanatory 


* These errors set the UPSI byte to 80; all other errors in this table result in an UPSI byte 


value of 40. 
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Table E-1. Edit Table Diagnostic Messages (Part 2 of 2) 


KEYWORD KEY= MISSING Self-explanatory 


KEYWORD SEP= MISSING Scan terminated, run aborted* 


LEN OR POS EXCEEDS MAX Maximum length is 255; maximum 
position is 32,767 


LEN OR POS MISSING Required parameters 


LEN ZERO Length must be at least 1 


MAX OR MIN ABSOLUTE VALUE TOO 
LARGE 


231-1 is largest absolute value allowed 


N TYPE LENGTH GR THAN 10 Ten characters is maximum unless MAX 


and MIN both specified 


NO DEFAULT FOR THIS FIELD Parameter value must be specified 


NO FIELDS DEFINED Empty table not allowed 


P TYPE LENGTH GR THAN 16 Sixteen characters maximum for packed 
decimal field 


REPEATED FIELD Parameter already specified 





SEPARATOR CHARACTER MISSING Self-explanatory 


SEQUENCE NUMBER NOT NUMERIC Scan terminated, run aborted* 


= SIGN MUST FOLLOW KEYWORD Self-explanatory 


TOO MANY FIELDS Scan terminated, run aborted; output 
buffer overflow* 


xxx OVERLAPS yyy Warning only; overlapping fields permitted 





* These errors set the UPS! byte to 80; all other errors in this table result in an UPSI byte 
value of 40. 
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E.6. ENTERING INPUT MESSAGES FROM TERMINAL 


When the terminal operator enters an input message for which 
you've generated an edit table, an IMS component called the 
expanded input editor processes it. The following considerations 
apply when entering input messages from the terminal: 


Transaction code first m= When an input message contains a transaction code, the 
transaction code must always be the first field. If the 
transaction code is less than five characters, enter a space 
before keying in the separator character. 


Beginning positional fields a Positional fields begin with the first nonblank character and 
extend to the next separator. Positional fields must appear 
in the same order as specified in the edit table definition. If 

Omitting positional fields you omit a positional field, enter an additional separator 
character in its position. A positional field entered as input 
may not contain an equal sign. 


Keyword fields @ Keywords must be followed by an equal sign with no 
intervening blanks. Data starts immediately after the equal 
sign and extends to the next field separator. 


Invalid plus sign m= Numeric values are positive unless preceded by a minus 
sign. The plus sign (+) is an invalid character. 


Error messages screen m Error messages are displayed on the first line of the display 

placement terminal; therefore, we recommend that you start input 
messages on the second line so that the input is not erased 
by an error message. 


Continuing fields ws If you continue fields from one line to another, IMS 
removes the DICE code at the end of each line and replaces 
it with a blank character, which it sends to the action 
program as part of the data. Always enter on one line 
fields that do not exceed the width of the screen. If a field 
exceeds the screen width and must be continued from one 
line to another, avoid splitting a word between lines. 


Ending input with positional @ If the terminal input ends with a positional parameter (no 

parameters keyword parameters are specified), enter a separator 
character at the end of the input message; otherwise, the 
input message could be partially deleted. A correct terminal 
entry is: 


INFOR,BIOLOGY,CLASS2,MARY J. BLISS, 


When terminal input ends with a keyword parameter, this is 
not necessary. 
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E.7. SAMPLE EDIT TABLE APPLICATION USING POSITIONAL AND KEYWORD 
PARAMETERS 


Example edit table input Figure E-3 and Table E-2 describe sample input to the edit table 
generator for an accounts receivable application and the format in 
which the edited input is delivered to the action program. 


SHIP 
NUMBER 


1 

SEP=,ETAB=EDIT1,KEY=1,LEN=5, POS=@, MAN=Y, 

KEY=2,LEN=20, POS=5, FIL=,JUS=L,MAN=Y, 
KEY=3,LEN=40,POS=25,FIL= ,JUS=L, 

KEY=AMT,LEN=4, POS=65, MIN=1000, TYP=B,MAN=Y,FIL=0, JUS=R, 
KEY=SN, LEN=6,P0S=69,FIL=, JUS=R,, 





Figure E-3. Sample Input to Edit Table Generator and Format of Input 
Delivered to Action Program 





Table E-2. Description of Sample Input to Edit Table Generator (Part 1 of 2) 




















SEP=, The field separator is a comma for both the edit 


specification and input from the terminal. 


ETAB=EDIT1 The edit table name is EDIT1. 


KEY=1 The first field described is positional. It must be the first 


field in the input message. 
LEN=5 The edited field is five characters long. 
POS=0 In the edited message the field begins in position 0. 


MAN=Y The field must be present for the message to be 


acceptable. 


The field is positional. it must be the second field in the 
input message. 


The edited field is 20 characters long. 

In the edited message the field begins in position 5. 
The field is to be blank filled in the edited message. 
The field is to be left-justified in the edited message. 


The field must be present for the message to be @ 
acceptable. 
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Tabie E-2. Description of Sample Input to Edit Table Generator (Part 2 of 2} 





iiss 


3 KEY=3 The field is positional. It must be the third field in the input 


message. 

LEN=40 The edited field is 40 characters long. 

POS=25 In the edited message, the field begins in position 25. 
FIL= The field is to be blank filled in the edited message. 


The field is to be left-justified in the edited message. 


4 KEY =AMT The field is a keyword field. AMT=n must be specified in 
the input message. 


LEN=4 The edited field is three characters long. 
POS=65 In the edited message, the field begins in position 65. 


MIN= 1000 The minimum level allowed for the message to be 
acceptable is $10.00 (entered as 1000). 


TYP=B In the edited message, the field is to be converted to binary. 

MAN=Y The field must be present for the message to be 
acceptable. 

FIL=0 The field is to be zero filled in the edit message. (This 


parameter could have been omitted.) 


JUS=R The field is to be right-justified in the edited message. (This 
parameter could have been omitted.) 


The field is a keyword field. 

The edited field is six characters long. 

In the edited message, the field begins in position 68. 
The field is to be blank filled in the edited message. 


The field is to be right-justified in the edited message. (This 
parameter could have been omitted.) 


End of edit definition. 
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Example freeform 
input 


Terminal input 


Edited message received 
by action program 


Terminal input 


Edited message received 
by action program 


Explanation 


Terminal input 


Output message 











SPERRY UNIVAC OS/3 E-18 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


The following examples show freeform input from the terminal 
and the resulting messages sent to the action program in 
accordance with the edit table specifications or, in case of error, 
the output message displayed at the terminal. Note that in the 
edited messages, the 4-character binary field specified for the 
AMT entry is represented by an underlined, 4-hexadecimal-digit 
field. Spaces between each delimiter and the first character of 
the next field are ignored. 
































PAYMT, JOHN D. SMITH,1112 BREEZE DR. PHILA.PA. 19160, 
AMT=2500, SN=123456 





PAYMT JOHNAD .ASMI THAAAAWAA 1112 ABREEZEADR. APHILA. APA. A19 160 
AADWWSAAAAGIC4 123456 









































PAYMT, JOHN D. SMITH, ,SN=123456,AMT=2500 





PAYMT JOHNAD © ASM I THAAAAAAAWAAAAA AAA AAA, 
DAA A899 64123456 





The address field was not specified as mandatory in the edit 
table input and is omitted here; an additional comma is coded in 
its position. The AMT and SN fields are keyword fields and need 
not be entered in the order defined in the edit table input. 
































PAYMT ,JOHN D. SMITH,1112 BREEZE DR. PHILA. PA. 19160, 
AMT=2500,SN=123456 
































ILLEGAL INPUT 
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Explanation The transaction code field is longer than the LEN specification. 



































Terminal input PAYMT, JOHN D. SMITH,1112 BREEZE DR. PHILA. PA.19160, 


AMT=760, SN=123456 



































Output message AMT IS BELOW MIN 





Explanation Edit table specifies AMT must be at least 1000. 





Terminal input PAYMT, JOHN D. SMITH,1112 BREEZE DR. PHILA, PA. 19160,SN=123456 





Output message AMT MISSING 


Explanation AMT was specified as mandatory. 


E.8. SAMPLE EDIT TABLE APPLICATION INCLUDING ACTION PROGRAM 


Sample input parameters This sample application describes an edit table for a customer 
purchase/payment application and includes the action program 
that uses edit table input. 
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Input message description 


Edit Table for the Purchase/Payment Application 
Figure E-4 describes the input to the edit table generator. 
SEP=;ETAB=ETABTST ;KEY=1; POS=0 ;MAN=Y ; LEN=5; 


KEY=2;FIL= ;JUS=L;LEN=15;MAN=Y; TYP=A;POS=5; 
KEY=3;FIL= ;JUS=L;LEN=20;PO0S=20;TYP=M; 


KEY=4;MIN=0001;MAX=9999 ; TYP=B; LEN=4 ; POS=40; MAN=Y; 
KEY=5 ;MIN=-99999999 : MAX=99999999 ; TYP=P ; POS=44 ; LEN=8 ; MAN=Y ; 
KEY=6; FIL=0;MIN=-20000 ; MAX=999999999 ; TYPE=N ; POS=52; LEN=10;MAN=VY ; ; 





Figure E-4. Sample Input to Edit Table Generator 


Line 100 designates a semicolon as the field separator for both 
the edit specification and the input from the terminal. The edit 
table is named ETABTST. The first input field is positional and is 
the transaction code. The field begins in position O, is 
mandatory, and is 5 characters long. 


Line 200 describes the second input field as positional with 
blank-fill where the input entry is shorter than 15 characters. This 
second field is left-justified, 15 characters long, mandatory, 
alphanumeric, and begins in position 5. 


Line 300 describes the third input field as positional with 
blank-fill, left-justified, 20 characters long and alphanumeric. The 
TYPM parameter is not required because it is the default. 


Line 400 describes the fourth input field as positional and allows 
a value of not less than 1 and not more than 9999 with a length 
of 4 characters. In the edited message, the field is converted to 
binary and begins in position 40. The field is mandatory. 


Line 500 describes the fifth input field as positional with a 
minimum value of -99999999 and a maximum value of 
99999999 in packed decimal format. The field begins in position 
44, is 8 characters long, and is mandatory. 


Line 600 describes the sixth input field as positional with a zero 
fill character, minimum value of -20000 and maximum value of 
999999999 in numeric format beginning in position 52 for a 
length of 10 characters. The field is mandatory. 
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Action Program (EDITST) for Purchase/Payment Application 


Figure E-5 provides the EDITST action program coding that 
processes the input message received from the edit table and 
issues an output message to the terminal. 


uwWuud JVUENDLELCATLON BIVISlUN. 

UUUUd PRUGRAM-i1U. LCULIST. 

UJUUS INSTALLATION] SPERKY-UNIVAC sSL UL BELL PA. 

vdLU4 UAE -wWRITTCN. FEBRUARY Lyle 

UJLUDS ENVIRONMENT ULVISLUN. 

UULUUb CUNFAOURATLON SECT LON. 

tuuul SUUKLE-“CUMPUTE Ne UNIVAL-Ud 56 

UJUUS UBULLCT-COMPUTE Ke UNIVAC—-USS. 

uUuUY DATA ULVISIUN. 

YULLY WUKKANG-STORKALLE SELTLIUN. 

uid usb CK PLC X¢€4) VALUE £5 .. 
udUude UL NXP-LNE PLC X¢4) vaLut IS * *. 
UJuLS ul UEPUSIT PiC Ato? VALUE 1S “PURBLHASES. 
uuu UL wilRURKIW PIC X60) VALUE IS *RPAYMENE?. 
uUudis UL LINE S~HtAL es 

UUULo Us NAME PIC ACH) WALUE "NAMES. 

uuuldé us tdtter PLL X026) VALUE SPALL. 

uUJUIG us AUURESS Pil x00) VALUE "°AULURESS®. 
uuuly US FELLER PIC Xt¢3)d) VALUE SPACL. 

uudUeU US ACCOUN I Pit xt@) VALUE *°ACCUUNT®S. 
udud) us PALtcet PLC X15) VALUE SPALL. 

uUUudce i LINtOWhHLAD. 

UIULS us ERANSACT Pil xo) VALUE STRANSACT®. 
uUUUE4 US FILLER PLLC X€12) VALUE SPALL. 

uluds US AMLUNI PiC Xto)? VALUE *AMUUNT®. 

UUU 2b US FILLEK PIC X0E43 VALUE SPACE. 

GUU 4s US BALANCEYU PiC AUIL2Y) VALUE “HALANCEHULUI®. 
uUJsULS uS FItttR VIC X46) VALUE SPALL. 

LJUCY US bBALANCEN Pleo AGA2) VALUL *SEALANCE (NEW). 
udu SU ud5 FILLER PIC Xt&5P VALUE SPALL. 

uuusl LINKADE SECTION. 

UBL 52 Ul Pibe CUPY Plol4e 

UJL S53 Ue STATUS-“LUUE rill ¥C4) COMP-4, 
uUJUSY ug VE AaLtU-SFatus~-cuut Pil ¥Yt4) LCOMP-4, 
LbIUSS U2 RECORU-TFTYPE KEUVEFIENES UEPALLEU-SEATUS-COUE 
UUU 36 US PRE DICTCU-R~LCUKU-TYPE PLlLe Re 

uuusl US VEL AVEREU-RECUKD-TYPt ric Ake 

LUL So SUCCES SOR WLU ric xo). 

UUL SY PERPINALLUN-INDICA TOR FLL Ke 

UJUYS LOCAK-KULLBALA~ANUICATUR KIL Ao 

uduU4S TRANSACETLUN—-IDe 

JUS US YEAR rie ¥¢445) CUMP-4. 
UUL4 usS tuvAY ric ¥Yt4) CUOMP-4, 
UUE44 US HR-MIN-SEC ric ¥t¥) CURRK-4. 
GULYS DATA-ULFORECH-N AME ric ACAD. 

UJU46 VER ANE UF LLL ONAML riC Xt). 

uuUd s SPTANLARUTMSO-LINETLENG EH FLAC ¥ 04) CURR -4. 

UU 4S STANLARUD-MSO-NUMGER-LINES Fil ¥14) LUMP WG. 
uUU4Y WURK-AREAW-LENDIH ric ¥t4) LUMPA~4,. 
uUUDU LCUNTANULTY-VAPFA-LNPUT-LENGITH PLb 914) COMP -4. 





Figure E-5. Sample Action Program (EDITST) Using Edit Table Generator Input 
(Part 1 of 3) 
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SAMPLE EDIT TABLE APPLICATIONS 


uuuol 
usudsd 
uuu S 
uUUS4 
UUUSS 
UUUdSb 
uuUuSé 
UUUdSS 
uUUSY 
UuubL 
uuUUol 
uUuUbL 
LUUOS 
UUUbBY 
UdUo5 
uJU66 
UUUb fF 
UUUbb 
UUUboY 
UuUL FU 
uyull 
UIUIS 
uduls 
UUU IS 
UuutdS 
UU lb 
uUL eT 
UII 
ululy 
ULB 
uldusl 
Loubeé 
UUUBS 
UUUBY 
uJuss 
LILSb 
uUUBT 
uluos 
uluoy 
uUUYU 
uUcy) 
UUL YZ 
uduUys 
uvUuy4 
UILYS 
LUUYo 
JJuyl 
UUU YS 
uuUYsY 
uUdUuY 
uudluUl 
ublud 
ulus 
UvLus 
uuluds 
uuLuUo 
ullul 
uULUS 
uuluy 


Ud 
Ara 
ud 
rs 


Ud 
Ud 
ud 
ue 
ul 
Ut 
ul 

OMA 

ud 

Ue 

Ud 

Ue 

ud 

ud 





LUNE ANULIY-UVAEA-vULPUT-LENGIW PIC ¥t4) LURP-4. 
@URK ARLE A-INC FIC 914) LCOMP-4. 
CUNTINUIEY-UA FA-aARKLA-LNC ric StH) CORP-4. 
SULELSS-UNLI-Lue 
US TRANSACHELUN-DaATEL. 
U4 YLAR FIL 94. 
C4 MUNIA rit OY. 
LH UUAY FLL ¥Ye 
Tbimt-Uk -UAY. 
U4 HUURK KIL YY. 
L4H MINUTE PIL YYVe 
LY SELONU FAL 99. 
uS tieler VEL AAKe 
SUURLE ~FEKMINAL “CHARS. 
US SUOURCE-TERMINAL~-TYHPE PIC Ke 
US SUURCE-FERM-MSG-LINE-LENGTH PIC 9t4) CUMP-4e 
US SLURLE-EEKM HMSO -NUMBER “LINES Pic ¥(4) COMP~4. 
vur-MUUt yIl Ke 
ry Curry ImMATl4e 
SUURCE -— FERMANAL -Lu FIC ALG). 
VATE -TimMe-STARP. 
US YLAR PIC 9(4) CUMP-4&, 
us IOvAY PIC ¥t4) CUMP—4ae 
US KHR-MIN-SLEL PLL 949) LUMP —4. 
it XT-Lt NbIH PIC ¥Y€4) CUMP 4. 
AUXALLTARKY-ULV-LUe 
US PILLLK FIC Ae 
US AUX-UtV-NU PIL X. 
LINE i -1Ne 
TRANSALCI PIC XD). 
IN-NAPL Pil ATID). 
AiN-ADUK PiC Xt2U). 
LN-ACL —-NU Pil 9CB) CUMF. 
AN-AMUUNT PLC SYELISIVYODY CUMR-3. 
AN-PAL ANCE PIL SYTBIVOS. 
. LurY OMATae 
ULSUTEINA BLON-ILKMINALW-1U FIC KOH). 
StS UF ET LUNS FIL AC). 
FLLLER FIL Kt2de 
CUNTINUUUS~-UUTPUI-CuOUuL PiC ACH). 
{LE XT-LOENOTH PlL yt4) CUMP He 
AUXILIARY-DE VICE “lve 
US AUA-FUNCELUN FIC Ao 
US ALA-UEVELE-NU Kit Ke 
UVUTPUL -mMSO-TEAT. 
LIne l-vlce PIC X44) 
Linti-wuul FIC ACTELI- 
Lifb_éd-uice Pil X04), 
Litt s-Uict PIC Ata), 
LINE S-HRAULK PLC XC6Ld. 
Lane 4—uice Pal ACH). 
Lint4-VUuUl. 
NAMLALP Pic ACIS). 
FILLER wiC KXtidd. 
AUUN-ALPNUF Pic xXLCUI. 
FILLER PIC xXtIL). 
ACL-NU-BIN PiC YUBD. 
FILLER PiC X12). 
Lints-uicte Pil xXt4). 
LIN-EO-vDICE Pit Ata) 








Figure E-5. Sample Action Program (EDITST) Using Edit Table Generator Input 


(Part 2 of 3) 
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. SAMPLE EDIT TABLE APPLICATIONS 




































uJill US LINEO-HEADER FiC X¢6U). 

UULaid US LINnt ?-vice PAL X14). 

uJils us Lint f-uut. 

uubis US TYPE -TRANS Ple Xb). 

uli USD FULLER PAL XC1S%)- 

wUIlo Us AMUUNE-PAC PLC YEIGDYILKe 
ubalé US FULLER hil Xt2de 

UsLIls US BAL “UL U-NUM PIC VESPA YOCR. 
uUlly Us FILLER VIC X¢a). 

wa gu US GAL<NE weNUR PIC FUBIEVYLNe 

ere wa | uS LINBO UILE PIC XO4)6 

uUudbed UL wORK. 

ules us UNFAC-~AMI PLLC YELYDVIOYe. 

uubes PRULELUUKE ULVISIUN USIND KIB IMA eUkKA OMA’ 
udl2d HULSEKLEPLivbe 

Us iZo MOVt CK) Tu tintl-ultte 

uuidt MOVE NXECE NE FU LINte-Vilt,» LINtS~UtLte» LINEY-UiLt, 
ules LINb-S~uICEs, LINto-vlle, Lint l-DICe, LINtEo-vict. 
Ulicy MUVE TRANSALT UF LiNc-in-in Tu Lint) -UUl. 
LUISU MOVE LAUNES“HEAU FU LINE S"HLAUEAe 

uUlsh MUVE LINELO HEAL FU LINC OmHLAULhK es 

YULS?S INPUI~-LHECA. 

UULss MIVt IN-Na&Mt TU NAMLALPe 

UjJ1S4 MUVt IR-ALUR TU AUUR-ALPNUM, 

uulsd MOVE LN-ALL“NU IU ALL-NU-BINe 

UU1S6 dh LN-AMUUNET TS LESS THAN U THEN MUVE all HuUkAW FO TYPE -TRANS 
UUlSs eLSt MUVt UEFUSIE FU LYPE~SRAND. 
UU1S6 MUVE LN-AMUUNT FU AMUUNT-PAC. 

uulsy MOVt IN-KALANCE TU bAL-ULU-NUM. 

uUlYU AULD AN-AMUUNT 4» IN~SALANCE 

uyid) bILVIND BAL “NE WO-NUMs 

Viewers MUVt 430 EU TEAT-LLNOITH UF OMA. 

uulas LATE-PRUD. 

uul44y CALL SRE TURN 


SOR 






Figure E-5. Sample Action Program (EDITST) Using Edit Table Generator Input 


Unformatted terminal input 


(Part 


3 of 3) 


Processing the Purchase/Payment Application 


When the terminal operator enters the unformatted input - 
transaction code, name, address, account number, amount, and 
balance as follows: 


WIDEP; JAN HALS;1422 AMBER LN PHILA; 472; 11000;35000 


the edit table generator formats the input according to your edit 
table input parameters (Figure E-4), and the action program 
EDITST (Figure E-5) receives this edited input in its input 
message area as follows: 


WIDEP ; JANAHALSAWWWW; 1422AAMBERALNAPHILAA; @1D8; 
00011000; 0000035000 
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SAMPLE EDIT TABLE APPLICATIONS 





Formatted input received by 
EDITST 


Line 


Generating output message 


Accommodating packed 
and binary fields 





Note that for easier identification in this example, the binary 
account field expected as input to the action program is shown 
here as a hexadecimal value and underlined. 


The EDITST action program receives this input message giving 
the old balance and payment amount, computes a new balance, 
and generates a 5-line output message as follows: 






































WIDEP 

NAME ADDRESS ACCOUNT 
ANDREW S. WYETH 1422 AMBER LN PHILA. 00000472 
TRANSACT AMOUNT BALANCE (OLD) BALANCE (NEW) 
PURCHASE 00000000000110.00 00000350.00 90000460.00 





In the Procedure Division, EDITST moves the transaction code 
into the first line of the output message, double spaces, moves 
the NAME-ADDRESS-ACCOUNT header to line 3, double spaces, 
moves the TRANSACT-AMOUNT-BALANCES header to line 6, 
and begins computations based on your terminal input. 


EDITST places the name, address, and account number entered 
at the terminal in line 4 of the output message. Note that the 
account number entered at the terminal is decimal; however, the 
edit table generator converts this number to binary and EDITST 
receives it as a binary field. 


Note that in your action program, any fields describing decimal 
values keyed in at the terminal must be defined large enough to 
accommodate the field as received from the edit table generator. 
For example, an 8-digit decimal number entered as an amount 
from the terminal and defined by LEN=8 and TYP=P in the edit 
table parameters (Figure E-4, line 500) is defined in the 
program's input and output message texts as a 16-byte packed 
field (Figure E-5, line 84 and 116). This field sizing also applies 
to binary values. 


Next, EDITST tests the amount field (IN-AMOUNT) entered as 
input to see if it is less than zero. If the amount entered was 
negative, it was for payment; otherwise, it was for purchase. 
EDITST moves these respective constants to the output message 
area. 
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SAMPLE EDIT TABLE APPLICATIONS 


After this, the program moves the input amount and old balance 
to the output message area and adds either the negative 
payment amount or the positive purchase amount to the old 
balance giving the new balance. 


Finally, the total output message text length is moved to the 
output message area TEXT-LENGTH field before the RETURN 
function ends the transaction. When the RETURN function 
executes, EDITST sends the type transaction, amount of payment 
or purchase, old balance, and new balance to line 7 of the output 
message and, the entire output message text to the designated 
lines. 
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MESSAGE FORMATTING 


Appendix F. Using Device Independent 
Control Expressions and 
Field Control Characters 


You use device independent control expressions (DICE 
sequences) to format input and output messages handled by 
action programs. These codes are needed to control various 
operations, such as cursor positioning and carriage return, on a 
terminal screen. 


This appendix supplies all DICE sequences and _ their 
interpretations, describes how to use them in_ formatting 
messages in your action programs, and discusses the DICE 
macroinstructions used in BAL action programs to create the 
DICE sequences. In addition, it presents limited information 
concerning the use of field control characters. 


F.2. FORMATTING MESSSAGES 


Ways to format messages 


Output Messages 


There are numerous methods for formatting output messages. 
The action program can use: 


1. Screen format services. For a complete discussion of how to 
use screen format services, see Section 7. 


2. Device independent control expressions 


3. Format control expressions with UNISCOPE 100 and 200 
display terminals 


4. Field control characters (FCCs) with workstations and 
Universal Terminal System terminals 
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DICE and FCCs 


Format control expressions 


Use of format control 
characters 


Handling DICE sequences 


Functions performed 


DICE placement 
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This appendix supplies information on DICE sequences and how 
to use them. Also included is information concerning field control 
characters. For detailed information concerning format control 
expressions, consult the UNISCOPE display terminal programmer 
reference, UP-7807 (current version). 


When a program uses format control expressions, it must include 


a different formatting routine for each type of terminal receiving 
the output. Figure F-1 illustrates this. 


OUTPUT TEXT AND CONTROL CHARACTERS 


REMOTE 


DEVICE 
HANDLERS 





LEGEND: 


ZU ll 
ee” 


Terminal-Oriented 
Control Characters 


Figure F-1. Using Terminal-Oriented Control Characters to Format Messages 


Using DICE sequences to format messages eliminates this 
problem. The remote device handler converts DICE sequences to 
control characters for each destination terminal, regardless of 
type. Some of the control character functions are: 

m Line feed - cursor movement to the first space of a new line 
= Form feed - cursor to the home position of a new page 

= Carriage return - cursor to the beginning of the same line 

= Cursor movement to a specific row and column on a display 
You can place DICE sequences anywhere in a message. As you 


can see in Figure F-2, DICE sequences simplify message 
formatting. 
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Coding with DICE 


Using input DICE 


Stripping DICE 
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MESSAGE FORMATTING 


OUTPUT TEXT AND DICE 





%%, OOD 
BSSATEXT RSI TEX 
> stare! ete! 

RO sates 





USER ee 
PROGRAM HANDLERS 
LEGEND: 


Mm ee DICE Characters 


Terminal-Oriented 
Control Characters 








Figure F-2. Using Dice Sequences to Format Messages 


Input Messages 


For input, the remote device handler converts control characters 
received in a message into DICE sequences. For certain terminals, 
your program can analyze these sequences to determine cursor 
position. In addition, input DICE is handy for message switch 
applications because control characters in each input message 
are converted to DICE sequences. The remote device handler 
converts these sequences into the appropriate control characters 
for the destination terminal. 


When you specify EDIT=c or EDIT=tablename in the ACTION 
section of the IMS configuration, input DICE is stripped from your 
input message. You should specify EDIT=c or EDIT =tablename 
in your IMS configuration. (Specify EDIT=tablename only when 
you generate an edit table for the action. See Appendix E.) 


F.3. DICE AND ICAM 


Defining DICE at network 
definition 


You can turn DICE on or off when you define your 
communications network with the DICE operand of the TERM 
macroinstruction. 


(tp 
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DICE=(ON) 


DICE=(OFF) 


DICE=(ON) is 
recommended 


SPERRY UNIVAC OS/3 F-4 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


where: 


DICE=ON 
Remote device handler creates input DICE according to 
your input terminal cursor movements. 


DICE=OFF 
Remote device handler does not create input DICE. 


The default is DICE=(ON). We recommend that you specify 
DICE=(ON) or omit this operand because many IMS features 
require the use of input DICE. Certain terminal commands and 
IMS transaction codes are not available when you _ specify 
DICE =(OFF). 


See ICAM concepts and facilities, UP-8194 (current version), for 
a detailed explanation of input DICE creation, and the IMS system 
support functions user guide, UP-8364 (current version), for 
specific IMS considerations. 
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DICE SEQUENCES 


F.4. THE FORMAT OF DICE SEQUENCES 


The format of a DICE sequence is: 


DICE format 


select function 


character code 





select character 
Hexadecimal character (10) designates the start of a 
DICE sequence. 


function code 
Defines the device control sequence that is recognized 
by the remote device handlers on input. On output, this 
code is a 1-character field defining the operation to be 
performed on the text message. DICE function codes are 
listed in Table F-1. 


m field and n field 
These fields are treated as parameters to the DICE 
function code. Their actual definition varies and is 


& determined by the individual DICE macroinstruction. 
- Horizontal/vertical Generally, m relates to vertical positioning and n refers 
positioning to horizontal positioning. 
Text message These fields may be expressed in absolute values (m, and n,) or 
alignment relative displacement values (m, and n,). The absolute values align 


the text message to the actual location (row and column) on a 
page or screen. The relative displacement values give a relative 
Cursor movement location from the present position of the cursor, that is, move 
cursor two rows down and one column to the right. All values 
are expressed in hexadecimal notation. If you choose to use DICE 
macroinstructions, these parameters must be specified. 
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F.5. USING DICE MACROINSTRUCTIONS IN BAL PROGRAMS 


Purpose 


Output DICE code 
conversion 


Input DICE code 
conversion 


Specifying m 
and n coordinates 


Absolute positions 


DICE macroinstructions let you create DICE sequences (DICE 
constants) in the same way you would create constants in your 
program; when the assembler expands a DICE macroinstruction, 
your program creates a constant at that location. 


On output, when your program is ready to send a message, it 
moves the DICE constants created from the DICE 
macroinstructions into the appropriate places in your message 
before it issues the output request. The remote device handler 
converts the DICE constants into the corresponding control 
characters to produce the necessary positioning. 


On input, DICE sequences are automatically created by the 
remote device handlers unless you specify the DICE=(OFF) 
parameter in your network definition. Table F-1 lists the DICE 
macroinstructions, function code generated, and m and n 
coordinates as they apply to particular devices on input and 
output. 


You must specify m and n coordinates in your program according 
to the absolute and relative values expressed in Table F-1. m, 
and n, are absolute values of m and n; m, and n, are relative 
displacements of m and n. For CRT terminals, the home position 
is (m, .n,)=(1,1). For character- or page-oriented devices that 
allow position to top of form, the top-of-form position is 
(m,.n,)(1,1). 

m Absolute Positions 

Absolute positions of m, and n, May range as follows: 
m, ranges 1 tor 


where: 


r = maximum number of rows (CRT), or maximum 
number of lines per page. 


n, ranges 1 toc 


where: 
Cc = maximum number of columns (CRT), or 
maximum number of character positions per 
line. 
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DICE MACROINSTRUCTIONS 








Relative positions a Relative Displacement 


Relative displacements of m, and n, may begin at zero and 
range to the bottom and right margin of the screen or page. 


lf a value of m or n falls outside of the legal range, that 
value of m or n will cause the following action: 


m, orn, = O is interpreted as m, orn, = 1 


Specifying an absolute or relative value for m or n that is greater 
than the screen or page size causes unpredictable results. 


F.6. GENERATING DICE CODES 


Macroinstructions are issued to generate the DICE codes. 





DICE macro format LABEL AOPERATIONA OPERAND 
[symbol ] dice-macroinstruction m,n 
@ where: 
Label [symbol ] 


An optional alphanumeric character string, from one to 
eight characters long, that identifies the specific 
instruction line. 


Operation dice-macroinstruction 
You specify the appropriate name _ from the 
Macroinstruction column of Table F-1 for the desired 
DICE sequence. 


Positional parameter 1 m 
A decimal number (O to 255) indicating the number of 
lines or rows the terminal should advance before 
starting output of the message (Table F-1). 

Positional parameter 2 n 


A decimal number (O to 255) indicating the number of 
spaces or columns to the right the terminal should 


space before starting output of the message (Table 
F—1). 
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DICE MACROINSTRUCTIONS 


Examples 


FWN = 


Line 5—5 
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1 10 16 
1. jwewuine ZOHPOS 0,0 
2. tCOORDI ZOHCOORD 5,10 


This DICE sequence causes movement to a new line. 


New text starts at line 5, column 10. 


Column a 


123456789 1% 





F-8 
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DICE CODE INTERPRETATION 





Table F-1. Dice Input/Output Commands, Codes, and Device Interpretation 
(Part 1 of 4) 


ZO#COORD 


20#FORM 





ZO#FORMC 


Set coordinates 


Forms control 


Forms control 
with clear 
unprotected 
data 


0216 


=—cCUz— aces ocoO aAaAcwsz— 


Soa 4 OS 


| 
N 
Pp 
U 
T 
0 
U 
u 
p 
U 
T 


m and n represent 
the start-of-entry 
(SOE) cursor 
coordinates. 


Move cursor to row 
™m and column n. 


Form feed 


Move cursor to row 
carriage return, }m and column n 
and advance to 
line m and 

column n (m-1 


line feeds and 





Move cursor to row 
m and column n, 
and clear unpro- 
tected data to 

end of screen. 





Not used 


Iaction is optional.) 


Not used 


Top of form and 
advance to line m 
(m-1 line feeds) 


Not used 





Action is optional@ Action is optional. @ 


Not used 


Action 1s optional. 


Not used 


Form feed, line feed, 
and advance to 

line m and column 

n (m—1 line feeds 
and n—1 spaces to the 
right) 


Not used 





ZO#POS 





ZOHPOSC 





New line control 





New line control 
with clear 


0516 


sc tTsCoO;s Cc VUz— 





ee ie le 






Carriage return, | Cursor return 


line feed 


. | Move cursor to 
line feed, fol- | beginning of next 
jowed by m line|line. Then move 
cursor m lines 
down and n col- 
umns to the right 


Not used 





tine feed, fol. jcept area between 
lowed by m line|start and end posi- 
feeds and n tions ts cleared 
spaces to the 

night 


Not used 


Advance (m+ 1) 
lines. 


Not used 


lines. 


Not used 


Line feed, followed 
by m line feeds and 
n spaces to the 
right. 


Not used 


Line feed, fotlowed 
by m line feeds and 
n spaces to the right 
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Table F-1. Dice Input/Output Commands, Codes, and Device Interpretation 


(Part 2 of 4) 


ZO#CUR Current position 














End of input card 


1 
control N 
p 
U 
i 
0 m line teeds Move cursor m ines jAdvance m lines. Insert spaces if 
U and spaces to} down and n columns; Aonsignificant space 
y to the right suppression 1s allowed. 
P If not, insert n DC3 
U characters; m 1s not 
q interpreted. 
ZOH#CURC Current position ! Not used 
control N 
with clear Pp 
U 
T 
0 Insert a spaces if Advance m lines Insert n spaces if 
U nonsignificant space nonsignificant space 
T suppression is suppression ts allowed 
Pp allowed if not, insert It not. insert n DC3 
U a DC3 characters; m characters; m 1s not 
T 1s not interpreted. ©) interpreted 
ZO#BEG Beginning ! Carriage return | Not used 
of current N 
tine control Pp 
U 
T 
0 Carriage return | Move cursor to dvance m lines. m line feeds and n 
U followed by m [beginning of current spaces to the right. 
T line feeds and | line. Then move 
P fh spaces to the| cursor m lines down 
U right and n columns to 
T 
ZO#TABS Set tab stop ! 
at an N 
absolute Pp 
position @ U 
T 
0 No line feed, | Set tab stop at row jAdvance m lines. 
U space to right. |m and column n. 
T 
Pp 
U 
T 
ZOH#FORMA | Forms controt Not used 


with clear; 
protected/ 
unprotected 
data 


1 
N 
Pp 
U 
q 
0 
U 
T 
Pp 
U 
T 


Move cursor to row [Action is optional. Action 1s optional. @) 


m and column n 
and clear pro- 
tected/ unprotected 
data to end of 
screen 
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DICE CODE INTERPRETATION 





Table F-1. Dice Input/Output Commands, Codes, and Device Interpretation 
(Part 3 of 4) 





ZO#ERSLN 









Erase to 
end of line 


OBie 





Not used Not used 


acwz— 


Cursor does not Advance 0 lines. Not used 
move. Unprotected 
data to the end of a 
line or to the end 
of the first unpro- 
tected field is 
cleared, whichever 
comes first. 













Se ie = oe ol 





NOTES: 


@ 


Most character-oriented terminals can be strapped to handle the carriage return (CR) 
character and the line feed (LF) character as follows: 


r CR 
di print mechanism moves to beginning of the same line; or 
2. print mechanism moves to the beginning of the same line followed by a 
line feed. 
2 LF 
1: line feed (no column change); or 
2. line feed followed by return of the print mechanism to the beginning of 


the new line. 


To achieve device independence between terminal types, the character-oriented 
terminals must use the first option for CR and the first option for LF if the device 
macroinstruction is ZO#CUR or ZO#BEG. 


Use the first option when the character-oriented terminals are a part of a message 
switch environment. 


Certain terminals do not have a form feed capability (i.e., some teletypewriters). For 
these terminals, the DICE expressions that specify form feed will line feed. 
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Table F-1. Dice Input/Output Commands, Codes, and Device Interpretation 
(Part 4 of 4) 


The set coordinates macroinstruction (ZO#COORD) or the forms contro! with clear 
macroinstruction (ZO#FORMC), when acted upon by _ character-oriented or 
page-printing terminals, will vary in its action, depending on the usage of the DICE 
keyword parameter of the TERM macroinstruction at network definition time: 


TERM aaa | et a 
NEWLINE 


When FORMS is specified, the set coordinates macroinstruction is interpreted as the 
forms control macroinstruction. 


When NEWLINE is specified, the set coordinates macroinstruction and the forms 
control with clear macroinstruction result in a carriage return, line feed for 
character-oriented terminals, or advance one line for page-oriented terminals; m and 
n are not interpreted. 


When the DICE parameter is not specified, the default option is NEWLINE. 


The UNISCOPE display terminal suppresses nonsignificant spaces on each line 
(except for the line containing the cursor) when text is transmitted to the processor 
or printed locally on the COP or TP. 


Your program may send data to the UNISCOPE screen containing significant biank 
segments that include the last column of the screen. If this data is transmitted from 
the terminal to the processor or is printed locally on the COP or TP, the blank 
segments must consist of nonspace characters that are nondisplayable. The DC3 
character meets these qualifications. The ICAM interface provides your program 
with the capability to prevent nonsignificant space suppression on the UNISCOPE 
display terminal. The ‘‘current position control with clear’’ is the only DICE 
macroinstruction that can perform a clear function if your program is preventing 
nonsignificant space suppression. 


NOTE: 


The ASCIli-to-EBCDIC translation table is modified so that the DC3 character is 
translated to space 40,, for input from the UNISCOPE display terminal. 


Using DICE function code 09,, for setting a tab stop, m=O and n=O results in a 
tab stop being placed at the current cursor location (no cursor positioning is 
performed). This applies to UNISCOPE and UTS 400 devices only. For 
teletypewriters and DCT 500 terminals, a space character is inserted. 


When m or n is greater than the maximum allowable m or n, action varies 
depending on the remote terminal: 


2 UNISCOPE display terminals - wraparound occurs on the screen. 


rT] Character-oriented terminals - gives different results depending on device 
characteristics. 


® 
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F.7. INTERPRETING DICE SEQUENCES 


Device independent When using DICE, your program does not need to be aware of 
the terminal type. A particular DICE denotes the same positioning 
on any terminal. There are some exceptions that result from 
terminal limitations. 


Factors controlling The interpretation of a DICE by the remote device handler is 
interpretation of controlled by: 


DICE sequences 
1. DICE function code 
2. DICE m and n fields 


3. The terminal involved 


4. The particular device on the terminal being used. 


Remote terminals The remote device handlers currently provide device-independent 
supported support for three classes of remote terminal devices: 

Hard copy character- 1. Hard copy character-oriented devices, such as the SPERRY 
oriented devices UNIVAC Data Communications Terminal 475 (DCT 475), 


Data Communications Terminal 500 (DCT 500), Data 
Communications Terminal 524 (DCT 524), and Data 
Communications Terminal 100 (DCT 1000), and Teletype 
teletypewriter models 28, 32, 33, 35, and 37. 


Hard copy page 2. Hard copy page printer type device, such as the SPERRY 

printer devices UNIVAC 1004 Card Processor System, Data 
Communications Terminal 2000 (DCT 2000), and the IBM 
2780. 

CRT terminals 3. CRT-type terminals, such as the UNISCOPE 100 and 200 


and the UTS 400 Display Terminals. 


Primary devices Table F-2 defines the primary output device and the primary 
input device for each terminal type. 


Table F-2. DICE Primary Devices 












Character-oriented terminals Keyboard 
CRT terminals Keyboard 
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Auxiliary devices supported |n addition to the specified primary devices, each terminal has the 
ability to support one or more auxiliary devices. The auxiliary 
devices suggested by each terminal are listed in Table F-3. 


Table F-3. DICE Usage for Auxiliary Devices (Part 1 of 2) 





UNISCOPE Tape cassette (TCS) DICE is applied to the COP. @ 
Communications output printer 
(COP) 
800 terminal printer (TP) 








DCT 1000 Card reader/card punch DICE is applied as if the 
Paper tape reader/punch output/input is to/from 
the primary device, even 
DCT 500/TTY Paper tape reader/punch though it is for the auxiliary 
device. @ 
DCT 524 Tape cassette (TCS) in paper 
tape read and write only 
Batch terminals Punch DICE is used for end of 
network buffer sentinel. 
No forms control action 
is taken. 
NOTES: 


@) When the print transparent option is not used, DICE is applied to the UNISCOPE 
screen even though the output is sent to an auxiliary device of the UNISCOPE 
terminal. In this case, the format of the data printed on the COP or TP is identical to 
the screen format. Nonsignificant space suppression by the UNISCOPE terminal may 
have to be prevented to keep the formats identical. 


The full capability of DICE cannot be applied to to the COP because of hardware 
characteristics. All data to a UNISCOPE auxiliary device passes through the 
UNISCOPE terminal. When DICE is applied to the COP, the use of print transparent 
mode means that no carriage returns are transferred to the COP. Line feeds and 
form feeds take a storage position in the UNISCOPE storage and are nondisplayable. 
These characters are passed to the COP where: 


s an LF causes a line feed followed by return of the print mechanism to the 
beginning of the new line; and 


a an FF causes a page eject and positioning of the print mechanism at the 
beginning of the first line of the form. 


The COP has no tabbing capability. 


These characteristics are reflected in the interpretation of DICE output function 
codes for the COP as shown in Table F-2. 


For messages sent to a UNISCOPE auxiliary device with transparent transfer, the 
cursor to home (ESC e) sequence is inserted at the beginning of the text by the 
RDH. 
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Table F—-3. DICE Usage for Auxiliary Devices (Part 2 of 2) 


@ The control characters that are generated from the DICE macroinstructions are 
always created for the primary device of a character-oriented device, even though 
your program is sending to an auxiliary device. The message and these control 
characters (carriage returns, line feeds, form feeds, and spaces) will be 
punched/written by the output auxiliary device that was specified by your program 
or was switch-selected by the terminal operator. If the punched/written data is later 
read by the terminal’s input auxiliary device, the carriage returns, line feeds, and 
form feeds are converted to input DICE as specified in Table F-1. 
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F.8. USING DICE SEQUENCES IN A COBOL ACTION PROGRAM 





Though COBOL action programs do_ not issue’ DICE 
macroinstructions, they do use the function code values in 
PICTURE clauses to position messages and control the cursor. 
Table F-1 lists and explains the possible DICE input/output 
commands. The following example of output message coding 
(Figure F-3) illustrates a COBOL action program’s use of DICE 
sequences to issue the terminal message shown following the 
code (Figure F-4). 


@1 0-M-A COPY OMA. 

@2 DESTINATION- TERMINAL -ID X(4). 

02 SFS-OPTIONS. 
03 SFS-TYPE x(2). 
@3 SFS-LOCATION X(2). 
FILLER X(2). 
CONTINUOUS - OUTPUT - CODE X(4). 
TEXT-LENGTH 9¢4) 
AUXILIARY-DEVICE-ID. 
@3 AUX- FUNCTION Ks 
03 AUX-DEVICE-NO K. 
OUTPUT - TEXT. 
03 DICE-SEQ-1 x(4) VALUE =" 1000NEE 
03 LINE-1 X(22) VALUE "YOU USE DICE 

SEQUENCES’. 

03 DICE-SEQ-2 x(4) VALUE =' 100 EE 
03 LINE-2 X(18) VALUE 'ON THE OUTPUT FORM'. 
03 DICE-SEQ-3 X(4) VALUE =! 1004032 
@3 LINE-3 X(14) VALUE ‘TO FORMAT YOUR'. 
@3 ODICE-SEQ-4 X(4) VALUE =' 100810 72oams 
@3 LINE-4 X(7) VALUE ‘MESSAGE’. 


Figure F-3. COBOL Action Program Using DICE Sequences to Format Output 
Message 


COLUMN 30 32 34 38 





Figure F-4. A DICE Formatted Output Message on the Terminal Screen 
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Here is a brief description of the DICE sequences used in Figure 
F-3. 














100AOA1E The select character 10 signals the start of the DICE sequence. 


The function code (OA) clears all protected and unprotected data from 
the terminal screen. 


The m field (OA) and the n field (1E) position the cursor to row 10, 
column 30. 


10010C20 The select character 10 is always the same and signals the start of the 


DICE sequence. The function code (01) sets coordinates as directed by 
the m and n fields of the DICE sequence. 


The m field (OC) and the n field (20) position the cursor at row 12, 
column 32. 





10040E22 The select character is the same as before. The function code (04) 


moves the cursor to the beginning of the next line and then sets the 
coordinates as directed by the m and n fields. 


The m field (OE) and the n field (22) position the cursor two rows below 
where it presently is and in column 34. 
1008 1026 The select character is again the same. The function code (08) returns 
the cursor to the beginning of the current line. The m field (10) and the 


n field (26) position the cursor two rows below the current line and in 
column 38. 
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F.9. USING FIELD CONTROL CHARACTERS 


Field control character 
format 


US - preface 
control character 


R - row number 


C - column number 


M - operation 


N — operation 


Each field control character (FCC) sequence contains a preface 
control character, a screen row number, screen column number, 
and two character places that define the screen operations being 
performed by the sequence. The field control character sequence 
format is: 


FCC SEQUENCE 


TEXT EXT 





US is the control character that signals the start of a field control 
character sequence. It corresponds to a hexadecimal 1F. 


R is the number of the row in which the field control character is 
placed. This is the hexadecimal value equivalent to the row code 
for the screen row indicated in Figure F-5. 


C is the number of the column in which the field control 
character is placed. This is the hexadecimal value equivalent to 
the column code for the screen column indicated in Figure F-5. 


M is a hexadecimal value placed in the sequence to define bits 4, 
5, 6, and 7 of the field control character operation. Table F-4 
lists the hexadecimal codes you can use. 


N is a hexadecimal value placed in the sequence to define bits O, 
1, 2, and 3 of the field control character operation. Table F-5 
lists the hexadecimal codes you can use. 
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ASS A SS SS A SS NS SS 9 RR OS a 6 
protec} TPP Ee ee Ceara ee 
ASS = DO A DS A Oe ee ee ee 
SS a De 
es a 
| fy 


A 
END OF 


64-COLUMN 
DISPLAY 


ORR ES A A A SG HR A SO GO a 











X COORDINATE 
(COLUMN POSITION) 
9 
E 
i 
i 
| 
| 
E 
i 
q 
Hl 
E 
i 
E 
i 
i 
i 
i 
d 
Ny 
i 
a 








7 
p 
g 
E 
| 
i 
| 
a 
E 
Z 
i 
a 
a 
i 
| 
| 
ii 
i 
A 
Hl 
a 
a 
i 
li 
E 
Figure F-5. Row and Column Coordinate Values Used in Field Control Sequences 








ere eo ae Ga es Cae st OG Se em AG PS Et 
aa ES ee Ee Ee 


Mow Ei caeS 

CEE PEEP EEE EEE EEE 
ae ala; JopPl]>rapataypatata 
> 
< 
a. 
2 
a 


Y position (lines 1 through 12, 16, or 24); 
then X position (columns 1 through 64 or 80). 


NOTE: 
The addressing sequence will always be: 


(NOI LISOd 3NI7 YO MOY} 
3LVNIGHOOO A 


COLUMN 
CODE 
END OF 
12-LINE 
END OF 
16-LINE 
DISPLAY 
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Table F-4. Hexadecimal Codes Used as M in the FCC Sequence 





0 Tab stop, normal intensity, changed field* 

1 Tab stop, display off (no intensity), changed field* 

2 Tab stop, low intensity, changed field* 

3 Tab stop, blinking display, changed field* 

4 Tab stop, normal intensity 

5 Tab stop, display off (no intensity) 

6 Tab stop, low intensity 

7 Tab stop, blinking display 

8 Not tab stop, normal intensity, changed field* 

9 Not tab stop, display off (no intensity), changed field* 
Not tab stop, low intensity, changed field* 
Not tab stop, blinking display, changed field* 

< Not tab stop, normal intensity 

= Not tab stop, display off (no intensity) 

> Not tab stop, low intensity 


Not tab stop, blinking display 





* Normally, when an FCC is generated by the host processor, the changed-field designator 
is cleared. However, the host processor can generate individual FCCs with the 
changed-field designator set; this capability may be used for selective transfer or 
transmission of fields which were not in fact changed by the terminal operator. By 
sending an ESC u code to the terminal in a text message, the host processor can clear 
the changed-field designators in all FCCs without regenerating each FCC and without 
altering the data within the fields. 
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Table F-5. Hexadecimal Codes Used as N in the FCC Sequence 











Any input allowed 


Alpha only allowed 


2 Numeric only allowed 

3 Protected (no entries and no changes allowed) 
4 Any input allowed, right-justified 

5 Alpha only allowed, right-justified 


Numeric only allowed, right-justified 


Example The following diagram illustrates a field control character 
sequence and the resulting output display of a numeric field to 
which this sequence is applied. Notice the 1F preface control 
character is followed by a row and column positioning of the 
field at 6 rows down (6C,¢) and 30 columns across (7E;,.) the 

& screen. At this screen location, the next character, the operation 
— value, (3746, Table F-4) specifies a tab stop with blinking display. 
The last character (32,6, Table F-5) specifies numeric fields only 
allowed. For detailed information on using field control 
characters, consult the UTS 400 programmer reference, UP-8359 

(current version). 


FCC SEQUENCE “TREC E GUERGEL 2 unenne ONLY NEXT FCC ores CEOUENCE 


ALLOWED (32) 


TAB STOP 
BLINKING DISPLAY (37) 
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G.1. 


Appendix G. Differences Between Extended 
COBOL and 1974 American 
National Standard COBOL 


DIFFERENCES 
If you use the extended COBOL compiler, there are three main 


differences in coding, compiling, and linking your action 
programs. Table G—1 explains. 


Tabie G-1. Differences for Extended and 1974 COBOL Action Programs 


















Shared code parameter format is: Shared code parameter format is: 






// PARAM OUT =(M) // PARAM IMSCOD= YES 


Linkage editor INCLUDE statement: Linkage editor INCLUDE statement: 









INCLUDE prog-id00 INCLUDE prog-id 


1/O function code format is: 





1/O function code format is: 
ENTER LINKAGE. CALL statement. 
CALL statement. 


ENTER COBOL. 












DICE code sequences expressed 
as DICE value multipunch 
equivalent. (See Figure G-3.) 


DICE code sequences expressed as 
DICE value hexadecimal 
equivalent. 












Restricted reserved words 
different from 1974 COBOL. 
(See 2.3.) 


Restricted reserved words 
different from extended COBOL. 
(See G.6.) 





G.2. SHARED CODE PARAMETER 


Purpose 


Using the shared code parameter allows the extended or 1974 
COBOL compilers to check the program for conformance to IMS 
syntax and to issue appropriate compilation diagnostics. If you 
use this option along with the configurator parameters, 
TYPE=SHR and SHRDSIZE, programs are allowed to run as 
shared under multithread IMS. 
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For shared code parameter formats for extended and 1974 
COBOL, see Table G-1. Section 11 provides more details about 
compiling sharable and nonsharable action COBOL programs. 


G.3. OBJECT MODULE NAME IN LINKAGE EDITOR CONTROL STREAM 


INCLUDE coding format When the extended COBOL compiler compiles your action 

for extended COBOL program, it appends the first six characters of your program-id 
with zeros. Thus, when naming the object modules on your 
linkage editor INCLUDE statement, you must append the two 
zeros. 


INCLUDE coding format The 1974 COBOL object module name is composed of the first 
for 1974 COBOL six characters of the program-id. Thus, the object name on the 
INCLUDE statement should be the same. 


G.4. ENTER STATEMENTS 


CALL coding format When you use the extended COBOL compiler, each I/O function 
call you issue from your action program must be preceded by an 
ENTER LINKAGE statement and followed by an ENTER COBOL 
statement. For example, if you issued a CALL ‘GET’ function, you 
must use the following coding format: 


ENTER LINKAGE. 
CALL 'GET' USING filename record-area key. 
ENTER COBOL. 


For compiling action programs with the 1974 COBOL compiler, 
only the I/O function call is needed. The ENTER statements are 
accepted by the compiler but cause warning diagnostics. 


Figure G-2 illustrates the extended COBOL coding required for the 
DISP action program. In addition, Figure G-3 illustrates the 
multipunch DICE code equivalents that DISP copies from the IMS 
COPY library (Figure G-2, line 12). 


Initiating DISP program You initiate the DISP action program by entering the transaction 
code, DISP (in this case the same name as the program), and the 
5-digit numeric key of the record desired. Figure G-1 shows the 
input message and corresponding output display. 
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DISP 01234 
CODE CUSTOMER NAME ADDRESS CITY-STATE ZIP 
1234 JOHN DOE 1212 JACKSON PHILA.,PA 19101 
BALANCE - DUE PAYMENT -DUE YR-TO-DATE VOL 
358.22 50.90 1,065.38 





Figure G-1. Sample Transaction Displaying Customer Record 


DISP retrieves a record from the customer file (CUSTFIL) and 
displays it at the terminal (Figure G-2, line 75). In case of an 
invalid record key in the input message, or any error condition 
detected by IMS, the program moves an error message to the 
output message area and terminates the transaction (line 77 and 
86-95). 


Note that DISP uses DICE, previously coded and filed in a copy 
library (Figure G-3) for homing the cursor, clearing the screen, 
and repositioning the cursor to a new line (line 70-72). 


IDENTIFICATION DIVISION. 
PROGRAM-ID. DISP. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-9030. 
OBJECT-COMPUTER. UNIVAC-9930. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 


7 
77 
77 
61 
01 


CUSTFIL PIC X(€7) VALUE 'CUSTFIL'. 

TEXT-1 PIC X(€32) VALUE 'PROCESSING ERROR.STATUS CODE = 
TEXT-2 PIC X(23) VALUE 'DETAILED STATUS CODE = '. 
DICE COPY DICE. 

CUSHDR1. 

@2 CUSHD1 PIC AC6) VALUE ' CODE '. 

@2 CUSHD2 PIC A(20) VALUE 'CUSTOMER NAME 

@2 CUSHD3 PIC AC15) VALUE 'ADDRESS 

@2 CUSHD4 PIC AC15) VALUE 'CITY-STATE 

@2 CUSHD5 PIC AC5) VALUE 'ZIP '. 

CUSHDR2. 

@2 CUSHD6 PIC AC15) VALUE '! BALANCE-DUE 

@2 CUSHD7 PIC AC15) VALUE ' PAYMENT-DUE '. 

@2 CUSHD8 PIC AC15) VALUE ' YR-TO-DATE VOL'. 


LINKAGE SECTION. 


01 
01 


PROGRAM- INFORMATION-BLOCK. COPY PIB. 
INPUT-MESSAGE-AREA. COPY IMA. 





Figure G-2. Sample Extended COBOL Action Program DISP (Part 1 of 3) 
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@2 TRANSAC-CDE PIC X(4). 
@2 FILLER PIC X. 
@2 REC-KEY PIC X(5). 
@2 REC-NO REDEFINES REC-KEY PIC 9(5). 
WORK - AREA. 
@2 CUS-REC. 
@3 CDE PIC X(5). 
@3 NAME PIC X(20). 
@3 ADDR PIC X(15). 
@3 CTY-STE PIC X(15). 
@3 ZIP PIC 9(5). 
@3 BLNCE-DUE PIC S9(9)V99 
@3 DUE-IN PIC $9(9)V99 
@3 YTD-VOL PIC 9(6)V99. 
ERROR -MSGE. 
@3 TXT-1 PIC X(32). 
@3 STAT PIC 9(4). 
@3 TXT-2 PIC X(23). 
@3 DSTAT PIC 9¢4). 
OUTPUT -MESSAGE-AREA COPY OMA. 
02 LINE-0 PIC X(4). 
02 LINE-1 PIC X(64). 
02 CR-1 PIC X(4). 
@2 LINE-2. - 
@3 CDE PIC X(5). 
@3 FILLER PIC X. 
@3 NAME PIC X(20). 
@3 ADDR PIC X(15). 
@3 CTY-STE PIC X(15). 
@3 ZIP PIC X(5). 
CR-2 PIC X(4). 
LINE-3 PIC X(45). 
CR-3 PIC X(4). 
LINE-4. 
03 FILLER PIC X. 
@3 OUT-BAL PIC 2ZZ2Z.22Z.229.99. 
@3 FILLER PIC X(5). 
@3 OUT-DUE PIC 222.222.222.99. 
@3 FILLER PIC X(5). 
@3 OUT-VOL PIC 2ZZ.222.99. 
@2 CR-4 PIC X¢4). 
@2  LINE-13 PIC X(4). 
PROCEDURE DIVISION USING PROGRAM- INFORMATION -BLOCK 
INPUT -MESSAGE-AREA WORK-AREA OUTPUT-MESSAGE - AREA. 
STRT-CDE-SECT. 
MOVE CURS-COORD TO LINE-O. 





Figure G-2. Sample Extended COBOL Action Program DISP (Part 2 of 3) 
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MOVE 


CUSTOMER - 


L AND BAL 


G-5 
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CURS-HME TO LINE-13. 
CR TO CR-1, CR-2, CR-3, CR-4. 
FILE-SECT. : 


ENTER LINKAGE. 


CALL 


'GET' USING CUSTFIL CUS-REC RE 


ENTER COBOL. 
IF STATUS-CODE IS NOT = @ GO TO PROCESS-ERROR. 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


CUSHDR1 TO LINE-1. 

CORR CUS-REC TO LINE-2. 
CUSHDR2 TO LINE-3. 
BLNCE-DUE TO OUT-BAL. 
DUE-IN TO OUT-DUE. 
YTD-VOL TO OUT-VOL. 


GO TO NORMAL - TERM. 
PROCESS-ERROR. 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


TEXT-1 TO TXT-1. 

STATUS-CODE TO STAT. 

TEXT-2 TO TXT-2. 
DETAILED-STATUS-CODE TO DSTAT. 
ERROR-MSGE TO LINE-1. 

REC-KEY TO ADDR OF LINE-2. 


NORMAL - TERM. 
ENTER LINKAGE. 


CALL 


*RETURN'. 


ENTER COBOL. 


C-KEY. 





Figure G-2. Sample Extended COBOL Action Program DISP (Part 3 of 3) 


DICE COPY DICE. 
DICE SPECIAL CHARACTERS FOR PROGRAM DISP. 


FORMS CONTROL & CLEAR. CURSOR TO 


SCREEN. X'100030201' 
MULTIPUNCHES 12-11-9-8-1. 12-9-3. 


@2 


CURS-COORD. 


@3 DICE-1 PIC X(2) VALUE 
93 ROW-Y1 PIC X(1) VALUE 
03 COL-X1 PIC X€1) VALUE 


ROW Y. 


COLUMN X. AND CLEAR 


12-9-2. 12-9-1. 


POSITION CONTROL NEW LINE.X'10040000'. 
MULTIPUNCHES 12-11-9-8-1. 12-9-4. 


12-9-9-8-1. 





12-0-9-8-1. 


Figure G-3. Example of DICE Sequences Filed in a COPY Library (Part 1 of 2) 





UP-9207 SPERRY UNIVAC OS/3 G-6 
IMS ACTION PROGRAMMING IN COBOL AND BAL 


COBOL DIFFERENCES 








CR PIC X(4) VALUE ! 


SET COORD-CURSOR TO HOME. X'10010000'. 
MULTIPUNCHES 12-11-9-8-1. 12-9-8-1. 12-0-9-8-1. 12-0-9-8-1. 


CURS - HME PIC X(4) VALUE ! 

POSITION CONTROL & CLEAR. CLEAR TO END OF LINE & NEW LINE. 
X '19050000'. 

MULTIPUNCHES 12-11-9-8-1. 12-9-5. 12-0-9-8-1. 12-0-9-8-1. 


CLR-LINE PIC X(4) VALUE ! 


APPENDING CODE FOR UNISCOPE-10@ COP. X'12'. 
MULTIPUNCH 11-9-2. 


DC PIC X€1) VALUE! '. 


START OF ENTRY CHARACTER SOE. X'1E'. 
MULTIPUNCH 11-9-8-6. 


SOE PIC X(1) VALUE ' '. 





Figure G-3. Example of DICE Sequences Filed in a COPY Library (Part 2 of 2) 


G.5. DICE CODES 


Multipunch DICE When you compile an action program with the extended COBOL 

equivalents compiler, you must express DICE sequences using the multipunch 
equivalents of the DICE values. Figure G-3 shows an example of 
the statement describing multipunch DICE values used in the DISP 
action program (Figure G-2, line 12). The comments in this copy 
library module explain the hexadecimal values equivalent to the 
blank multipunch values. 


Hexadecimal DICE The 1974 COBOL compiler permits you to use the hexadecimal 

equivalents DICE values directly in the action program. The following 
examples illustrate three possible applications of hexadecimal 
DICE values that conform to 1974 standards. 
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Example 1 


Example 2 


Example 3 


01 DICE 
@3 FIELD-1 PIC X. 
@3 FIELD-2 PIC xX. 
@3 FIELD-3 PIC X. 
@3 FIELD-4 PIC X. 
MOVE ='1@6' TO FIELD-1. 
MOVE ='@3' TO FIELD-2. 
MOVE ='@1' TO FIELD-3. 
MOVE ='@1' TO FIELD-4. 


@3 DICE PIC X¢4). 
MOVE ='10030101' TO DICE. 


77 DICE PIC X(4) VALUE ='10030101'. 


For more detail about DICE code sequences, their interpretation, 
and use, see Appendix F. 


G.6. EXTENDED COBOL LANGUAGE RESTRICTIONS 


@ IMlegal syntax 


Reserved words 


Some COBOL verbs, clauses, and sections are illegal in extended 
COBOL action programs. If you compile them with the shared 
code parameter, PARAM OUT=(M), the compiler locates and 
deletes them from your program. (See Section 11.) 


The following reserved words are illegal in extended COBOL 
action programs: 


ALTER REWRITE 
CLOSE SEEK 
DECLARATIVE SECTION SEGMENT-LIMIT 
ENTRY SORT 
EXHIBIT STOP 
EXIT-PROGRAM SYSCHAN-t 
FILE SECTION SYSCONSOLE 
INPUT-OUTPUT SECTION SYSERR [-m] 
INSERT SYSIN 

OPEN SYSIN-96 
READ SYSIN-128 
READY TRACE SYSLOG 
RELEASE SYSLST 
RESET TRACE WRITE 
RETURN 
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Illegal verbs 
with working- 
storage items 


Precautionary 
diagnostics 


Other COBOL verbs must not have working-storage items as 
receiving operands. These verbs are: 


ADD PERFORM (varying option) 
COMPUTE SEARCH (varying option) 
DIVIDE SET 


EXAMINE (replacing option) SUBTRACT 
MOVE TRANSFORM 
MULTIPLY 





If you compile your action program with the shared code 
parameter, the compiler flags the erroneous statement and issues 
a precautionary diagnostic. 
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Term 


Abnormal termination 
after SEND function 
how IMS handles 
involuntary 
remote transaction 
snap dumps 
voluntary 


Abnormal termination indicator 
description 
display error codes at terminal 
error message formats 
resulting operations 
successor-id 
voluntary termination 


Absolute position, DICE sequence 


Access methods 


Action 
definition 
identification (date/time stamp) 
updating files 


Action program load area 
in termination snap dump 
to find error causes 


Action program routing 
ACTIVATE function call 
description 
program-initiated transaction 


Reference 


6.15 
3.10 
3.10 
9.9 

12.2 
3.10 


3.10 
3.10 
3.10 
Table 3-1 
3.10 
3.10 


F.5 


5.1 
Table 5-1 


13 
48 
5.16 


12.2 
Fig. 12-1 


9.6-.7 
9.2 
9.5 


Page 


6-23 
3-21 
3-22 
9-15 
12-3 
3-21 


Term 





Index 1 





Action programs 


activation record 
CALL funtions 
calling subprograms 


compile streams 
definition 

delivery notice scheduling 
efficient coding 

ending, CALL ‘RETURN’ 
fast load use 

interface with IMS 
interface with subprograms 
languages used 

link streams 

online recompilation 
recovery 

routine for DDP 
scheduling 

snap dumps 

store in load library 
succession 


ACTIVATE function call 


BAL format 

COBOL format 

description 

errors, unsuccessful remote transaction 
multiple ACTIVATE cails 


Activation record 


allocation 
contents 


structure 


ALTER statements 


Index 


Reference 


1.6 
1.6 
8.1 
8.2 
11.2 
13 
B.6 
15 
2.1 
11.4 
1.6 
8.2 
1.2 
11.3 
11.5 
Section 12 
9.2 
2.5 
12.1 
11.4 
1.4 
3.10 


9.7 
9.7 
9.6 
9.9 
Fig. 9-4 


2.5 
1.6 
Fig. 1-8 
24 


11.5 


Page 
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ASM jproc, in job stream 
Assembling action programs 


Audit file 
before-images saved 
Online recovery 
prefix area contents 
prefix area format 
rolling back updates 
unrecoverable errors 


AUX-DEVICE-NO field, OMA 
AUX operand, network definition 
continuous output 
description and use 
displaying screen format 


AUX-FUNCTION field, OMA 
byte setting 
continuous output 
description 
displaying screen format 
downline load program 
line disconnect 
output to auxiliary device 


AUXILIARY-DEVICE-ID field, IMA 
auxiliary device number 
example use, BAL 
example use, COBOL 
function 


AUXILIARY-DEVICE-ID field, OMA 


Auxiliary devices 

identification field in IMA 

identification field in OMA 

input options continuous output 

print transfer options, continuous 
output 

print/transfer options, screen 
formatting 

receiving formatted messages 

supported for continuous output 

supported for screen formatting 


Reference 


Fig. 11-5 


11.2 


3.11 

3.11 

Table 12-3 
Fig. 12-12 
3.11 

12.10 


6.13 
6.20 
6.11 
7.13 


Table 6-2 
6.20 
6.11-.12 
7.13 

10.1 

10.5 

6.12 

Fig. 6-8 


4.10 
Fig. 4-11 
Fig. 4-10 
4.10 


6.11 


4.10 
6.11 
6.23 


6.19 


Table 7-1 
7.13 
6.18 
7.13 
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Page 


11-6 


11-2 


3-25 
33-25 
12-48 
12-48 
3-25 
12-47 


6-27 
6-31 
6-15 
7-26 
10-1 
10-13 
6-15 
6-16 


Index 2 





Term 


B 


Backward-one-block option, cassette/diskette 


BAL action program examples 
dialog transaction, delayed succession 


simple transaction 


successive simple transactions 


BAL action programs 
assembling 
calling subprograms 
characteristics 
interface areas, describing 
interface areas, DSECT names 
interface with IMS 
link editing 
structure 


Basic asembly language (BAL) 


Before-images 


Buffer, output 
defining for screen format 
moving length to TEXT-LENGTH field 
parameter, BUILD function 
parameter, REBUILD function 
parameter, SEND function 


BUILD function 
BAL format 
COBOL formats 
error returns 
example of use, BAL 
example of use, COBOL 
issuing 
restrictions 





Reference 


6.23 


C.4 

Fig. C-10 
C.2 

Fig. C-2 
C.3 

Fig. C.7 


11.2 

8.4 

2.4 

Fig. 2-5 
2.5 

Fig. 2-7 
11.3 

2.4 


Page 


11-2 
8-5 
2-11 
2-9 
2-15 
2-15 
11-7 
2-9 


See BAL action 


programs. 


3.11 


7.3 
74 
74 
7.10 
6.15 


7.4 
74 
7.6 
Fig. 7-5 
Fig. 7-4 
73 
7.3 
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Term 


CALL function 
description 
macroinstruction in BAL 
replacing verbs in COBOL 
See also function calls. 


Cassette auxiliary device 
continuous output use 
displaying screen format 


COBOL action program examples 
continuous output 
dialog transactions, external succession 
output-for-input queueing 
screen formatted messages 
simple transactions 


COBOL action programs 
calling subprograms 
compared to standard COBOL programs 
compiling 
COPY library 
differences between extended COBOL and 
1974 COBOL 
interface areas, describing 
interface with IMS 
link editing 
linkage section 
restritions 
sharable and nonsharable code 
structure 
volatile data area 


COBOL jproc, use in job streams 


COBOL, 1974 American National Standard, 
differences between extended COBOL 


Coding rules 
BAL action programs 
COBOL action programs 
COBOL language restrictions 
edit table generator 
extended COBOL 
statements and parameters 


Column number, FCC sequence 
coordinate values 
description 


Reference 


1.6 
2.4 
Fig. 


6.23 
7.13 


Fig. 
Fig. 
Fig. 
Fig. 
Fig. 
Fig. 
Fig. 
Fig. 


8.3 
2.2 
11.2 
2.5 


Appendix G 


Fig. 
Fig. 
11.3 
2.1 
2.3 
11.2 
2.1 
11.2 


Fig. 
Fig. 


Appendix G 


2.4 
2.1 
2.3 
E.2 


Appendix G 
Appendix A 


Fig. 
F.9 


2-3 


B-25 
B-21 
B-24 
B-23 
B-14 
B-15 
B-16 
B-17 


2-2 
2-6 


11-1 
11-3 


F-5 


Page 


B-55 
B-23 
B-50 
B-57 
B-14 
B-17 
B-21 
B-25 


8-4 
2-5 
11-2 
2-14 


2-14 
11-7 
2-2 
2-7 
11-3 
2-1 
11-3 
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Term 


Common storage area files 


Communications output printer, listing output 
messages 


Compiling action programs 

BAL action program with jproc 

BAL action program without jproc 

compile/link stream with jprocs 

compile/link stream without jprocs 

extended COBOL action program 
with jproc 

extended COBOL action program 
without jproc 

1974 COBOL action program 
with jproc 

1974 COBOL action program 
without jproc 


Configuration specifications 
sample IMS configuration 


TERMINAL section and TERM parameter 
Console, sending messages 


Continuity data area 
building output message 
CONTINUITY-DATA-INC field 
CONTINUITY-DATA-INPUT-LENGTH field 
CONTINUITY-DATA-OUTPUT-LENGTH field 
continuous output use 
find error causes in dump 
IMS use 


CONTUINITY-DATA-AREA-INC field, PIB 


CONTINUITY-DATA-INPUT-LENGTH field, PIB 
CONTITUITY-DATA-OUTPUT-LENGTH field, PIB 


Continuous output 
AUX-FUNCTION byte setting, OMA 
backward-one-block option 
COBOL example 


continuing via succession 
delivery notice status codes 


devices receiving continuous output 
handling delivery notice code 
identifying code 

IMS delivery notice code 

message and screen size 
output-only screen format 


Reference 


5.16 


6.12 


Fig. 
Fig. 
Fig. 
Fig. 


Fig. 
Fig. 
Fig. 
Fig. 
C.5 
Fig. 
6.7 
6.28 
6.16 
3.16 
3.16 
3.16 
6.20 
12.6 
2.5 


3.16 
Fig. 


3.16 


3.16 


11-5 
11-6 
11-9 
11-10 
11-3 
11-4 
11-1 


11-2 


C-12 


3-17 


Table 6-2 


6.23 
B.6 
Fig. 
6.20 


B-25 


Table 6-3 
Table 6-4 


6.18 
6.23 
6.23 
6.21 
6.20 
7.2 


6-5] 


6-24 
3-37 
3-37 
3-37 
6-31 
12-34 
2-12 


6-27 
6-44 
B-54 
B-55 
6-32 
6-36 
6-37 
6-26 
6-45 
6-44 
6-34 
6-32 
7-3 


Term 
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Reference = Page Term Reference = Page 
Continuous output (cont) COPY library 
print form 6.19 6-30 COBOL names, 1974 2.5 2-1 
print mode 6.19 6-29 COPY statement 1.6 1-1 
print-transparent mode 6.19 6-28 extended COBOL names 25 2-1 
read option 6.23 6-42 interface area format headers 1.6 1-1 
read transparent option 6.23 6-42 
receiving continuous output code B.6 B-63 COPY statement 
recovery after unsuccessful delivery status 6.22 6-36 copying IMA format 44. 4-4 
reinitiating continuous output message 6.22 6-35 Fig. 4-2 4-5 
report address option 6.23 6-43 copying OMA format 6.4 6-4 
search-and-position option Table 6-6 6-44 Fig. 6-2 6-5 
6.23 6-44 copying PIB format 3.2 3-3 
search-and-read option 6.23 6-42 use 2.5 2-13 
search-and-read-transparent option 6.23 6-43 
search option Table 6-5 6-43 Cursor, movement and control F.4 F-5 
set control page for screen bypass 6.23 6-45 Table F-1 F-9 
to an auxiliary device 6.19 6-28 
to a terminal 6.19 6-28 
to cassette 6.19 6-28 
6.23 6-42 
to diskette 6.23 6-42 
transfer all 6.19 6-30 
transfer changed 6.19 6-30 
transfer variable 6.19 6-30 
use and configuration 6.17-.20 6-26 
use of AUX-DEVICE-NO indicator 6.20 6-31 
use of AUX-FUNCTION indicator 6.20 6-31 
use of code 6.21 6-34 
use of AUX-DEVICE-NO indicator 6.20 6-31 
use of AUX-FUNCTION indicator 6.20 6-21 
use of code 6.21 6-34 
with output-for-input queueing 6.26 6-49 
CONTINUOUS-OUTPUT-CODE field, OMA 
continuous output code setting 6.21 6-34 
description 6.9 6-13 
example, receiving continuous output code B.6 B-63 
Control stream examples 
assemble BAL action program Fig. 11-5 11-6 
Fig. 11-6 11-6 
compile and link with jprocs Fig. 11-9 11-9 
compile and link without jprocs Fig. 11-10 11-9 
compile extended COBOL action program Fig. 11-3 11-5 
Fig. 11-4 11-5 
compile 74 COBOL action program Fig. 11-1 11-4 
11-2 11-4 
edit table execution Fig. E-2 E-10 
link edit stream using LINK jproc Fig. 11-7 11-7 
online compile and fink stream Fig, 11-11 =. 11-11 
standard link edit stream Fig. 11-8 11-8 


COP 








See communications output printer. 
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Term 


DAM files 
accessing 
preformatting 
unlocking files 
work and record area considerations 


DATA-DEF-REC-NAME field, PIB 
description and use 
pass name to successor 


Data files 


DATE-TIME-STAMP field, IMA 
description and use 
testing input message sequence 


DDP-MODE field, PIB 
distributed data. processing 
IMS values returned in PIB 
tested after remote transaction 


Debugging action programs 


DEFINED-FILE-NAME FIELD, PIB 
description and use 
pass name to successor 


successive action, access source file 


Defined files 
accessing 
function call formats 
identifiers 
PIB fields 
random 1/0 functions 
record types 
sequential 1/0 functions 
status byte returns 


Defined record area 


Delayed internal succession 
advantages 
description 
examples of use 
output-only screen 
resulting IMS operations 
termination indicator 
transaction structure 


Reference 


5.7 
5.7 
5.15 
5.16 


3.13 
Fig. 3-14 
Fig. 3-15 


See files. 


48 
Fig. 4-8 


9.3 
3.19 
9.8 


Page 


9-5 
3-41 
9-13 


See snap dumps. 


3.13 
Fig. 3-14 
Fig. 3-15 
3.13 
Fig. 3-16 


5.10 
5.11 
5.11 
3.13 
5.13 
5.12 
5.14 
5.12 
Table 5-4 


2.5 


3.10 

3.10 

Fig. 3-9 
7.2 

Table 3-1 
3.10 

1.4 


5-44 
5-45 
5-45 
3-32 
5-54 
5-48 
5-56 
5-52 
5-53 


2-13 





Index 5 
Term Reference 
DELETE function call 
defined files 5.13 
indexed files 5.4 
relative files 57 
DELIVERED-RECORD-TYPE field See RECORD- 
TYPE field. 
Delivery notice code 
evaluation when TRANSLAT configured 6.2.2 
example of delivery notice scheduling B.6 
purpose and use 6.21 
recover continuous output messages 6.22 
status codes Table 6-3 
testing in BAL action program 6.22 
Fig. 6-14 
testing in COBOL action program 6.22 
Fig. 6-13 
Destination terminal 
description and use 6.7 
identifying screen format 7.3 
output for-input queueing 6.25 
sending messages to 6.15 
DESTINATION-TERMINAL-ID field, OMA 
description and use 6.7 
found in snap dump 12.6 
DETAILED-STATUS-CODE field, PIB 
codes for all function calls Table D-2 
Table D-3 
Table D-4 
Table D-5 
Table D-6 
internal message control 3.6 
invalid request error 3.6 
1/0 error 3.6 
screen formatting errors 3.6 
values from main to subprogram 8.3 
Detailed status codes 
BUILD function 7.6 
GETLOAD function 10.4 
internal message control errors Table D-5 
invalid key errors Table D-2 
invalid request errors Table D-3 
1/0 errors Table D-4 
REBUILD function 7.12 
screen formatting errors Table D-6 
SEND function Table 6-1 
SETLOAD function 10.3 


Page 
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7-14 
10-11 
D-5 


D-3 
D-5 
7-25 
D-6 
6-22 
10-10 
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Term Reference Page Term Reference Page 
Device independent control expressions (DICE) routing to remote IMS 9.6 9-10 
absolute and relative positions F5 F-6 screen formatting 7.14 7-28 
aux-devices supporting Table F-3 F-14 termination types allowed 9.5 9-8 
description Appendix F terminology 9.1 9-1 
devices supporting F.7 F-14 use of screen formats’ 7.14 7-28 
Table F-2 —-F-13 
example coding receiving DICE Fig. 4-12 4-18 DLOAD transaction code 10.1 10-2 
format of sequence F.4 F-5 
formatted output message example Fig. F-4 F-16 Downline joad 
formatting input messages F.2 F-3 configuration option 10.1 10-1 
formatting output messages F.2 F-1 DLOAD transaction code 10.1 10-2 
function code interpretation Table F-1 F-9 error byte description for 
functions performed F.2 F-2 rejected load Table 10-1 10-9 
in output messages 6.4 6-4 GETLOAD function call 10.4 10-11 
input/output code conversion F.5 F-6 how to write user programs 10.1 10-1 
1/0 commands Table F-1 F-9 sample program Fig. 10-1 10-4 
interpretation of DICE sequences F.7 F-13 SETLOAD function call 10.3 10-10 
macroinstruction format F.6 F-7 UTS programs, storing 11.4 11-10 
macroinstructions F.5-.6 F-6 UTS 40/UTS 400 programs 10.1 10-1 
message positioning on screen F.4 F-5 
multipunch hexadecimal equivalents, coding 6.5 G-6 DSECT 
network definition F.3 F-3 Multithread thread control block Fig. 12-5 12-14 
sample filled sequences in COPY library Fig. G-3 G-5 single-thread thread control block Fig. 12-4 12-10 
stripping DICE F.2 F-3 TCS DSECT labels Table 6-3 6-36 
use with input messages 411 4-16 ZA#DPIB 3.3 3-5 
ZA#IMH 45 4-6 
DICE ZAHOMH 6.5 6-7 
See device independent control expressions. 
Dump analysis 
Direct access method (DAM) See DAM files. See snap dumps. 
Directory routing, description 9.2 9-3 Duplicate-key-count, parameter 
‘ on function call 5.2 5-4 
Diskette auxiliary device 
continuous output use 6.23 6-42 Dynamic allocation, 1/0 areas 5.16 5-60 
displaying screen format 7.13 7-26 
Dynamic main storage 
Display constants output buffer length 79 7-20 
example Fig. 7-2 7-3 requested for screen formats 73 7-7 
screen formatted output messages 72 7-3 
Distributed data processing 
action programs routing 9.2 9-3 
action program succession 9.4 9-6 
ACTIVATE function call 9.6-.7 9-10 
DDP-MODE field in PIB 3.19 3-41 
directory routing 9.2 9-3 
error returns after CALL ACTIVATE 9.9 9-14 
initiating a remote transaction 9.6 9-10 
operator-initiated transaction 9.4 9-6 
operator routing 9.2 9-3 
output to aux-device restriction 9.3 9-6 
processing remote transaction 9.3 9-5 
program-initiated transaction 9.5 9-7 
receiving screen formatted input 7.14 7-29 
requirements for use 9.1 9-1 





UP-9207 





@ Term 


EDIT parameter, configuration 


Edit table generator 
coding rules for input 
diagnostic messages 
duplicate edit table name 
error processing 
errors 
entering input fields for editing 
example action program 
example edit table and use 
execution 
parameters 
positional and keyword fields 
purpose and use 


Edited headers 
CALL SNAP dump 


termination snap dump 


& Edited snap dump 


ENTER statement 
ERET parameter, configuration 


Error codes 
BUILD function 
data management 
DETAILED-STATUS-CODE field 
detailed-status-codes 
displaying at terminal or console 
error termination code testing 
input validation, screen formatting 
output validation, screen formatting 
REBUILD function 
SEND function 
SETL function 
STATUS-CODE field 


Error returns 
AUDCONF/AUDFILE errors 
COBOL action programs 


COBOL, 1974 error message 
data file 1/0 errors 
detailed status codes 





Reference 


43 


E.2 


Table E-1 


E.4 
E.5 
E.4 
E.6 


Fig. E-5 


E.7 
E.4 
E.3 
E.3 
E.1 


12.3 


Fig. 12-3 


12.2 


Fig. 12-1 


12.1 


G4 


3.5 


76 
3.6 
3.6 
3.6 
3.9 


Fig. 3-6 


78 
76 
7.12 
Table 


3.5 
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12-6 
12-6 
12.3 
12-2 


12-1 


3-10 


12-47 
12-50 
12-50 
12-51 
12-50 
12-47 
D-2 

D-3 


D-5 
D-6 


Term 


distributed data processing 


extended COBOL error message 


output to console 
status codes 


UPSI byte, edit table generation 


ESETL function call 
indexed files 
defined files 
relative files 


ETAB parameter, edit table input 


Example programs, BAL 
dialog transations 
screen formatting 
simple transaction 
successive transactions 


Example programs, COBOL 
calling a subprogram 
continuous output 
dialog transactions 
edit table generated 
extended COBOL 
output-for-input queueing 
screen formatted messages 
simple transactions 
snap dump generated 
subprogram 


Extended COBOL consideration 


External succession 
continuous output use 
description 
example of use 
resulting IMS operations 
termination indicator 
transaction structure 


Index 7 


Reference 


9.9 

Table 12-6 
6.28 

Table D-1 
E.5 


5.5 
5.14 
5.8 


E.3 


C4 
Fig. 7-5 
0.2 
0.3 


Fig. 8-1 
B.6 
B.3 
Fig. E 
Fig. G- 
B.5 

B.4 

B.2 

Fig. 12-7 
Fig. 8-2 


Appendix G 


6.20 

3.10 

Fig. 3-7 
Table 3-1 
3.10 

1.4 


Page 


9-14 
12-51 
6-52 


E-12 


6-32 
3-17 
3-18 
3-24 
3-17 
1-6 





UP-9207 SPERRY UNIVAC OS/3 Index 8 


IMS ACTION PROGRAMMING IN COBOL AND BAL 











Term Reference Page Term Reference Page & 
F ESETL, defined files 5.14 5-59 
ESETL, indexed files 55 5-27 
Fast load feature ESETL, relative files 5.8 5-40 
fast load file 11.4 11-10 GETLOAD 10.4 10-11 
separate action program library 11.4 11-10 GETUP, defined files 5.13 5-54 
use 11.4 11-10 GETUP, indexed files 5.4 5-12 
GETUP relative files 5.7 5-30 
FCC See field control INSERT, defined files 5.13 5-55 
characters. INSERT, indexed files 5.4 5-17 
INSERT, relative files 5.7 5-34 
Field control characters obtaining completion status 3.5 3-10 
example of use F.9 F-18 PUT, defined fites 5.13 5-55 
format F.9 -18 PUT, indexed files 5.4 5-14 
hexadecimal codes, M coordinate Table F-4 ~—- F-16 PUT, relative files 5.7 5-30 
hexadecimal codes, N coordinate Fig. F-5 9 PUT, sequential files 5.9 5-43 
row and column values Fig. F-5 9 random GET, defined files 5.13 5-54 
random GET, indexed files 5.4 5-9 
FIL parameter, edit table input E.3 E-8 random GET, relative files 5.7 5-29 
REBUILD 7.10 7-21 
File allocation map, interpretation and use 12-6 12-29 RETURN, BAL 2.4 2-11 
RETURN, COBOL 2.1 2-4 
Filename RETURN, subprograms 8.3 8-4 
parameter on defined file function call 5.11 5-45 8.4 8-6 
parameter on function call 5.2 5-4 returns from 3.5 3-10 
RUN 10.6 10-14 
Files SEND 6.15 6-18 
accessing defined files 5.10 5-44 sequential GET, defined files 5.14 5-56 
accessing indexed files 5.3 5-8 sequential GET, indexed files 5.5 5-26 
accessing relative files 5.6 5-28 sequential GET, relative files 5.8 5-39 
accessing sequential files 5.9 5-41 sequential GET, sequential files 5.9 5-42 
closing and reopening 5.16 5-60 SETK, indexed files 55 5-21 
common storage area 5.16 5-62 SETL, defined files 5.14 5-56 
dynamic allocation of |/0 areas 5.16 5-60 SETL, indexed files 55 5-23 
function calls 5.2 5-3 SETL, relative files 5.8 5-37 
identifying to IMS 5.16 5-60 SETLOAD 10.3 10-10 
IMS. supported Table 5-1 5-1 SNAP 12.3 12-7 
1/0 function call summary Table 5-2 5-2 status codes Table D-1 D-2 
logical deletion 5.7 5-32 SUBPROG, BAL 84 8-5 
open/close 5.16 5-60 SUBPROG, COBOL 8.3 8-4 
physical deletion 5.7 5-32 successful delivery 5.12 5-52 
preformatting DAM files 5.7 5-28 UNLOCK 5.15 5-59 
5.8 5-36 
shared access 9.9 9-19 Function code, DICE sequence F.A F-5 
test mode effects on 1/0 5.16 5-61 
See also defined files, indexed files, 
1/0 function calls, relative files, 
sequential files. 
Function calls 
ACTIVATE 9.7 9-11 
BUILD 7.4 7-9 
DELETE, defined files 5.13 5-55 
DELETE, indexed files 5.4 5-15 
DELETE, relative files 5.7 5-32 
detailed status codes Tables D-2 D-2 
determining last successful issued 12.6 12-37 


Table 12-1 12-37 
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GET function call 
errors, sequential GET 


random for defined files 
random for indexed files 
random for relative files 
sequential files 

sequential for defined files 
sequential for indexed files 
sequential for relative files 
status codes returned 


GETLOAD function call 
COBOL and BAL formats 


error-byte definition for rejected load 


receiving control after error 
status/detailed status codes 


successtul/unsuccessful message header 


transfer record 


GETUP function call 
defined files 
indexed files 
relative files 
status codes returned 


HANGUP action program 


Hold record locks (H indicator) 


Reference 


55 

5.8 

5.13 

5.4 

57 

5.9 

5.14 

55 

5.8 

Table D-1 


10.4 
Table 10-1 
10.2 
10.4 
10.2 
10.2 


5.13 

5.4 

57 

Table D-1 


10.5 


3.11 
Fig. 3-12 
Table 3-2 
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Page 


10-13 


3-28 
3-29 
3-26 


Term 


ICAM 


IMA 


continuous output requirements 

DDP requirements 

interface during continuous output 
labels equated to delivery notice code 
SEND function considerations 

TCS DSECT 

terminal name 


Immediate internal succession 


IMS 


description 

example use 

files allocated to first program 
resulting IMS operations 
successor programs 
termination indicator 
transaction structure 


local 
primary 
remote 
secondary 
terms 


Indexed files 


accessing 

changing access modes 
random 1/0 functions 
sequential 1/0 functions 
shared file access 


Indexed sequential access method 


Initiating terminal 


displaying screen format at 
sending output message to 


Input message 


delivery notice code 

INSIZE parameter 

obtaining text length 

receiving control sequences 
receiving DICE sequences 
receiving from previous program 
receiving screen formatted input 
response from remote transaction 
status bytes, screen formats 
use of field control characters 
using edit table generator 





Index 9 


Reference Page 


6.17 6-2 
9.1 9-1 
6.21 6-3 
6.22 6-3 
6.15 6-2 
6.22 6-4 
6.7 6-1 


See input message area. 


3.10 3-17 
Fig. 3-8 3-19 
3.10 3-19 
Table 3-1 3-24 
3.10 3-18 
3.10 3-21 
14 1 


9.1 9-2 
9.1 9-2 
9.1 9-2 
9.1 9-2 
13 1-3 


5.3 5-8 
5.5 5-1 
5.4 5-8 
5.5 5-1 
9.9 5-2 


See ISAM files. 


7.14 7-28 
6.14 6-17 


6.21 6 
4.2 4 
49 4 
4.11 4 
4.11 4 
41 4- 
4.11 4 
9.8 9 
78 7 
4.11 4 
4ll 4 
Appendix E 
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Term 


Input message area (IMA) 
automatic space allocation 
AUXILIARY-DEVICE-ID field 
BAL control header format 


COBOL control header format 


configuring size 

contents 

DATE-TIME-STAMP field 

description 

errors returned after unsuccessful 
remote transaction 


find error causes in dump 
general layout 

IMS _ use 

overestimating size 

size 

SOURCE-TERMINAL-ID. field 
TEXT-LENGTH field 


INSERT function call 
defined files 


indexed files 
relative files 
status codes returned 


INSIZE parameter, configuration 
Integrated communications access method 


Interface areas 
description in BAL action program 
description in COBOL action program 
generated by BAL DSECTs 
in CALL SNAP dump 
in termination snap dump 
relationship to action program 


single/multithread dump layout differences 
use 
USING clause 


Internal message control errors, detailed status 
codes 


Invalid key errors, detailed status codes 
Invalid request, detailed status codes 


Involuntary termination 
See also abnormal termination. 


Reference 


43 

4.10 

45 

Fig. 4-3 
4.4 

Fig. 4-1} 
43 

4.6 

48 

41 


9.9 

Table 9-1 
12.6 

4.2 

2.5 

43 

43 

47 

49 


5.13 


5.4 
5.7 
Table D-1 


4.2 


See ICAM. 


Fig. 2-5 
Fig. 2-2 
2.4 
12.3 
12.2 
1.6 
Fig. 1-9 
12.4 
1.6 
2.1 


Table D-5 
Table D-2 


Table D-3 
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Page Term Reference Page 
1/0 error, detailed status codes Table D-4.—s 0-5 

4-3 

4-14 1/0 function calls 

4-6 detailed status codes Table D-2.—-D-2 

4-6 Tabie D-3. —-D-3 

4-4 Table D-4 D-5 

4-4 Table D-5 D-5 

4-2 format 5.2 5-3 

4-7 parameters 5.2 5-3 

4-10 random for defined files 5.13 5-54 

4-1 random for indexed files 54 5-8 
random for relative files 5.7 5-28 

9-14 sequential files 59 5-46 

9-14 sequential for defined files 5.14 5-56 

12-35 sequential for indexed files 55 5-19 

4-2 sequential for relative files 5.8 5-36 

2-12 status codes Table D-1 D-2 

4-3 summary Table 5-2 5-2 

4-2 See also function calls. 

4-8 

4-12 ISAM files 
access methods 5.3 5-8 
logical deletion 5.4 5-15 

5-55 no changing key field values 5.4 5-13 
positioning parameters on SETL Table 5-35 5-25 

5-17 unlock for 5.15 5-59 

5-34 

D-2 

4-2 

2-9 

2-3 

2-11 

12-7 

12-4 

1-12 

1-12 

12-9 

1-11 

2-2 

D-5 

D-2 

D-3 

3-22 


3.10 
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Job control 


assembling BAL action programs 
compiling COBOL action programs 
edit table generator 

link editing action programs 
recompiling and linking 

See also control stream examples. 


Job initiation, RUN function 


JUS parameter, edit table input 


Key 


MIRAM partial key search 

parameter for edit table input 
parameter on defined file function call 
parameter on function call 


Key-of-reference 


changing 

omitting 

parameter on function call 
setting 


Reference 


11.2 
11.2 
E.4 

11.3 
11.5 


10.6 


5.5 
E.3 
5.11 
5.2 


5.5 
5.5 
5.2 
5.5 





Page 


11-6 
11-4 
E-10 
11-7 
11-11 


10-14 


E-8 


Term 


LEN parameter, edit table input 
Line disconnect 


Link editing action programs 
LINK jproc format and use 
object module name 
standard link edit stream 
stream using LINK jproc 


LINK jproc, format and use 


Link map 
example link map 
purpose and use 


Load code prefix, DLL program 


Load library 
fast load requirement 
replacing action programs 
storing action programs 
storing UTS programs 


Load module name 
Local IMS 


Local terminal 
display screen format 
sending message 


Locap-name 


LOCK-ROLLBACK-INDICATOR field, PIB 
automatic record locking 
before-images 
description 
found in snap dump 
holding record locks 
lock for update 
releasing record locks 
rollback prints 


Locks 
for update 
lock rollback indicator setting 
record, automatic 
releasing, UNLOCK function 


Logical delete 
defined files 
indexed files 
relative files 
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Reference 


E.3 


10.5 


11.3 

6.3 

Fig. 11-8 
Fig, 11-7 


11.3 


Fig. 12-9 
12.7 


10.2 


11.4 
11.5 
11.4 
10.1 


11.3 


9.1 


7.14 
9.3 


9.1 


3.11 
3.11 
3.11 
12.6 
3.11 
3.11 
3.11 
3.11 


3.11 
3.11 
3.11 
5.15 


5.13 
5.4 
5.7 


Page 


E-6 


10-13 


ll-7 
G-2 

11-8 
li-7 


11-10 
11-11 
11-10 
10-1 


11-7 


9-2 
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Term Reference Page Term Reference Page 
M N 
M coordinate, DICE sequence N coordinate, DICE sequence 
description F.4 F-5 description F.4 F-5 
use F.5 F-6 use F.5 F~6 
Macro library, format header DSECTs 1.6 1-13 Network definition See ICAM. 
MAN parameter, edit table input E.3 E-8 New rollback point (N indicator) 3.11 3-26 
Fig. 3-10 3-26 
Master parameter, SEND function 6.15 6-18 Table 3-2 = 3-26 
Fig. 6-9 6-19 
Nonsharable COBOL programs 
Master terminal, sending message 6.15 6-18 link editing 11.3 11-7 
PARAM statement for compile 11.2 11-2 
Master workstation 6.28 6-51 Table 11-1 11- 
MAX parameter, edit table input E.3 E-8 Normal termination 
default termination value 3.10 3-17 
Message size description 3.10 3-17 
STANDARD-MSG-LINE-LENGTH field 3.14 3-36 N termination indicator 3.10 3-17 
STANDARD-MSG-NUMBER-LINES. field 3.14 3-36 resulting IMS operations Table 3-1 3-24 
transaction structure 14 1-5 
Messages 
DICE formatted output Fig. F-4 F-16 
input Section 4 
output Section 6 
positioning on screen F.4 F-§ 
processing screen formatted 7.2 7-3 
screen formatted Section 7 
MIN parameter, edit table input E.3 E-8 
MIRAM files 
access methods 5.3 5-8 
changing key field values 54 5-13 
configuring for random access 5.3 5-8 
; 5.6 5-28 
file extension 5.7 5-32 
key of reference 5.4 5-9 
logical deletion 5.4 5-15 
multikeyed 5.3 5-8 
partial key search 5.5 5-23 
physical deletion 5.4 5-16 
positioning parameters on SETL Table 5-3 = 5-25 
sequential 5.9 5-41 
single keyed 5.4 5-15 
Muitiple-segment identifier 5.11 5-46 
Multipunch, DICE values G5 G-6 
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Term Reference Page Term 
O IMS_ use 
purpose 
Old rollback point (0 indicator) 3.11 3-27 SFS-LOCATION field 
Fig. 3-11 3-27 SFS-OPTIONS field 
Table 3-2 3-26 SFS-TYPE field 
size 
OMA See output text description, BAL 
message area. text description, COBOL 


TEXT-LENGTH field 


Operator routing 9.2 9-3 
Output status area 
Option indicator defining 
coding 75 7-10 output validation error codes 
input 7] 7-18 
setting bytes 73 7-7 
75 7-13 
temporary screen format changes 7.2 7-6 
use instead of REBUILD 79 7-21 
Output-for-input queueing 
description and requirements 6.24 6-46 
errors 6-25 6-48 
example action program B.5 B-49 
Fig. B-24 = B-50 
use 6.25 6-47 © 
with continuous output 6.26 6-49 
with screen bypass device 6.27 6-50 
Output message 
building in CDA 6.16 6-24 
building in input area 6.16 6-24 
building in work area 6.16 6-24 
continuous output 6.19-.20 6-19 
DICE sequences 6.4 6-4 
displayed at source or destination terminal 6.14 6-17 
issuing multiple 6.15 6-18 
listed at auxiliary device 6.14 6-17 
output-for-input queueing 6.26-.27 6-49 
printed as continuous output 6.14 — 6-17 
queued as input to successor program 6.14 6-17 
screen formatted 7.3 7-8 
sent from work area 6.15 6-18 
to another terminal 6.1 6-1 
Output message area (OMA) 
AUXILIARY-DEVICE-ID field 6.11 6-15 
AUX-DEVICE-NO field 6.13 6-16 
AUX-FUNCTION field 6.12 6-15 
contents and layout 6.2 §-2 
CONTINUOUS-OUTPUT-CODE field 6.9 6-13 
DESTINATION-TERMINAL-ID field 6.7 6-10 
header-format, BAL 6.5 6-6 
Fig. 6-3 6-6 
header format, BAL 6.5 - 


6-6 
Fig. 6-3 6-6 
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Reference 


2.5 
6.1 
6.8 
6.8 
6.8 
6.3 
6.5 
6.4 
6.10 


73-4 
76 


eit 
- 
RO 
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Term 


PARAM statement, compile 
sharable/nonsharable COBOL 
program 


Parameter list 
determining number of 
parameters passed 
DSECT labels to locate 
location, main to subprogram 
register 1 contents 


Partial-key-count, parameter 
on function call 


Physical delete 
indexed files 
relative files 


PIB 


Polled devices, continuous 
output 


POS parameter, edit table 
input 


Position 
parameter on defined file 
function call 
parameter on function call 


PREDICTED-RECORD-TYPE field 


Preface control character, 
FCC sequence 


Primary device 
delivery notice status 
codes returned 
device independent control 
expression 
displaying messages 


Primary IMS 


Primary key, update MIRAM 
files 


Print form, continuous output 
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Reference Page 


11.2 11-3 
Table 11-1 11-3 


12.6 12-37 
12.6 12-36 
8.4 8-5 
2.4 2-10 
5.2 5-6 
5.4 5-16 
5.7 5-33 


See program 
information block. 


6.22 6-37 
E.3 E-8 
5.11 5-45 
5.2 5-7 
See RECORD- 

TYPE field. 

F.9 F-18 
Table 6-3 6-36 
Table F-2 F-13 
6.11 6-15 
9.1 9-2 
5.3 5-8 
6.19 6-30 


Term 


Print mode 
continuous output 
write screen formats 
to aux-devices 


PRINT NOGEN, BAL instruction 


Print transparent mode 
continuous output 
write screen formats to 
aux-devices 


Program information block 
BAL format 


COBOL 1974 PIB format 


Contents 


CONTINUITY-DATA-AREA-INC field 
CONTINUITY-DATA-INPUT- 
LENGTH field 
CONTINUITY-DATA-OUTPUT- 
LENGTH field 
DATA-DEF-REC-NAME field 
DEFINED-FILE-NAME field 
DETAILED-STATUS-CODE field 
extended COBOL PIB format 
IMS_ use 
LOCK-ROLLBACK-INDICATOR 
field 
RECORD-TYPE field 
SOURCE-TERMINAL-CHARS 
SUCCESS-UNIT-ID field 
STANDARD-MSG-LINE- 
LENGTH field 
STANDARD-MSG-NUMBER- 
LINES field 
STATUS-CODE field 
SUCCESSOR-ID field 
TERMINATION-INDICATOR 
field 
TRANSACTION-ID field 
WORK-AREA-INC field 
WORK-AREA-LENGTH field 


Reference Page 


6.19 6-28 
7.13 7-26 
Table 7-1 7-26 
45 4-6 
6.19 6-28 
7.13 7-26 
Table 7-1 7-26 
3.3 3-5 
Fig. 3-3 3-5 
3.2 3-3 
Fig. 3-2 3-2 
3.1 3-1 
3.4 3-8 
Fig. 3-1 3-2 
3.16 3-37 
3.16 3-36 
3.16 3-37 
3.13 3-32 
3.13 3-32 
3.6 3-11 
3.2 3-3 
2.5 2-12 
3.11 3-25 
3.7 3-13 
3.18 3-3 
3.17 3-37 
3.14 3-36 
3.14 3-36 
3.5 3-8 
3.8 3-14 
3.10 3-17 
3.12 - 

3.15 3-36 
3.15 3-36 
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Term Reference Page Term Reference Page 
Program status word, to determine 
cause of abnormal termination 
snap 12.8 12-41 Random access 
defined files 5.13 5-54 
Program registers indexed files 5.4 5-8 
abnormal termination snap 12.2 12-3 MIRAM consideration 5.3 5-8 
in termination snap dump 12.2 12- relative files 5.7 5-28 
Fig. 12-1 12-2 
voluntary termination snap 12.2 12-3 Read option, cassette/diskette 6.23 6-42 
PUT function call Read transparent option, 
defined files 5.13 5-55 cassette/diskette 6.23 6-42 
indexed files 5.4 5-14 
placement in program 57 5-31 REBUILD function call 
relative files 5.75-30 COBOL and BAL formats 7.10 7-21 
sequential files 5.9 5-43 description 7.10 7-21 
status codes returned Table D-1  D-2 error returns 7.12 7-25 
example of use, BAL Fig. 7-10 7-22 
example of use, COBOL Fig. 7-9 7-22 
Record area 
ISAM and DAM considerations 5.2 5-5 
parameter on function call 5.2 5-3 
size 5.2 5-5 
Record-number parameter 5.2 5-5 
RECORD-TYPE field, PIB 
delivered record type 3.7 3-13 
description 3.7 3-13 
predicted record type 3.7 -13 
predicted record type, 
found 5.12 5-50 
predicted record type, 
not found 5.12 5-49 
skipping to other 
record type 5.12 5-50 
Records 
accessing defined 5.12 5-50 
area size 5.16 5-61 
defined records, types 5.12 -48 
determining defined record 
type 5.12 5-48 
empty set 5.14 5-57 
locking 3.11 3-25 
retrieving logically deleted, 
indexed 5.4 5-11 
retrieving logically deleted, 
relative 5.7 5-29 
selecting record areas 5.14 5-57 
unlock function 5.15 5-59 
Recovery 
audit file 12.10 12-46 
online file recovery 12.10 12-46 
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Term Reference Page Term Reference Page 
Reentrant code Rollback 
definition 15 1-9 abnormal termination 3.10 3-21 
subprograms 8.2 8-2 automatic file 12.10 12-46 
establishing rollback 
Register point 3.11 3-25 
assigning interface areas 2.4 2-9 LOCK-ROLLBACK-INDICATOR 
contents for subprogram 8.4 8-5 field 3.11 3-25 
parameter list, register 1 2.4 2-10 
Rollback points 3.11 3-25 
Relative files 
accessing 5.6 5-28 Row number, FCC sequence 
random 1/0 functions 5.] 5-28 coordinate values Fig. F-5 F-19 
sequential 1/0 functions 5.8 5-36 description F-9 - 
shared file access 5.8 5-36 
RUN fucntion call 10.6 10-14 
Relative position, DICE sequence F5 F-7 
Release record locks 
(R indicator) 3.11 3-28 
Fig. 3-13 3-30 
Table 3-2 3-26 
Remote IMS 9.1 9-2 
Remote transaction 
DDP-mode field, PIB 3.19 3-4] 
error returns 9.9 9-14 
initiating 9.7 9-11 
operator-initiated 9.4 9-6 
processing 9.3 9-5 
program-initiated 9.5 9-7 
receiving response message 9.8 9-13 
status 3.19 3-41 
unsuccessful 9.9 9-14 
Replenish screen 7.10 7-21 
Report address option, 
cassette/diskette 6.23 6-43 
RETURN function 
after REBUILD function 79 7-20 
BAL action program 2.4 2-11 
COBOL action program 2.1 2-1 
description 2.1 2-4 
issuing output messages 6.1 6-1 
not issued after ACTIVATE 9.7 9-12 
screen formatted messages 7.2 7-4 
sending message at end of action 6.14 6-17 
subprogram, BAL 8.4 8-5 
Subprogram, COBOL 8.3 8-4 
versus SEND functions 6.16 6-24 
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@ Term Reference Page Term Reference Page 
S output message size 6.3 6-3 
process screen formatted 
Screen bypass device, output- messages 7.2 7-3 
for-input queueing 6.27 6-50 REBUILD function call 7.10 7-21 
receive screen formatted 
Screen format services input 4.11 4-16 
configuration 7.1 7-2 using screen format 
data management considerations 71 7-1 services 7A 7-1 
requirements 7.1 7-1 validate input data 78 7-19 
terminal restrictions 71 7-1 
terminals supporting 7.1 7-1 Search-and-position option, 
See also screen formats, cassette/diskette 6.23 6-42 


screen formatting. 
Search-and-read option, 


Screen formats cassette/diskette 6.23 6-42 
build menu screen B.4 B-36 
building error screen 7.2 7-5 Search-and-read transparent, 
display at initiating cassette/diskette 6.23 6-42 
terminal 7.14 7-28 
display at local terminal 7.14 7-29 Secondary IMS 9.1 9-2 
display error format 79 7-20 
display screen format 73 7-7 Select character, DICE 
display screen format, BAL Fig. 7-5 7-12 sequence F.4 F-5 
display screen format, COBOL Fig. 7-4 7-10 
display transaction code Fig. 7.8 7-18 SEND function 
@ example action program Fig.B-23 B-37 format and description 6.15 6-18 
identifying 7.3 7-7 in distributed data processing 7.14 7-28 
input fields replenished 7.2 7-6 issue multiple output messages 6.15 6-18 
input/output use 7.2 7-3 master parameter 6.15 6-18 
input validation 7.2 7-5 Fig. 6-9 6-19 
making temporary changes 7.2 7-6 output-for-input queueing 6.24-.25 6-46 
output display constants 7.2 7-3 output message to another 
output-only use 7.2 7-3 terminal 6.1 6-1 
print/transfer options Table 7-1 = 7-26 6.15 6-18 
replenish screen 79 7-20 Fig. 6-10 6-20 
send to aux-devices 7,13 7-26 requirements for use 6.15 6-20 
setting text length 7.3 7-7 send message from work area 6.15 6-18 
variable data 7.2 7-3 status/detailed status 
codes returned Table 6-1 6-22 
Screen formatting versus RETURN function 6.16 6-24 
BUILD function call 74 7-9 with screen formatted 
build in dynamic main messages 7.2 7-4 
storage 75 7-13 
creation and use of SEP parameter, edit table input E.3 E-5 
screen formats 7.1 7-1 
Fig. 7-1 7-2 Sequential access 
display error screen in DDP 7.14 7-30 defined files 5.14 5-56 
display screen format, BAL Fig. 7-5 7-12 indexed files 5.5 5-19 
display screen format, COBOL Fig. 7-4 7-10 relative files (MIRAM) 5.8 - 
input validation error codes 78 7-19 sequential files 59 5-4] 
output message, SFS- 
LOCATION field 6.8 6-12 Sequential files 


output message, SFS- accessing 5.9 5-4] 
@ TYPE field 6.8 6-12 1/0 functions 5.9 5-41 
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Term Reference Page Term Reference Page 
Serially reusable code termination snap dump 12.1 12-1 
definition 15 1-9 12.6 12-29 
subprograms 8.2 8-2 termination snap dump 
layout Fig. 12-1 12-2 
SETK function call 
indexed files 55 5-21 Snap termination indicator 
status codes returned Table D-1  D-2 description 3.10 3-22 
displaying error codes 
SETL function call at terminal 3.10 3-23 
defined files 5.14 5-56 resulting IMS operations Table 3-1 3-24 
errors 5.8 5-38 successor-id 3.10 3-22 
indexed files 55 5-23 voluntary termination 3.10 3-22 
relative files 5.8 5-37 
status codes returned Table D-1 D-2 Source terminal 
characteristics 3.18 3-39 
SETLOAD function call identifying 47 4-8 
COBOL and BAL formats 10.3 10-10 types 3.18 3-39 
program control after DLL 10.2 10-8 
status/detailed status codes 10.3 10-10 SOURCE-TERMINAL-CHARS field, PIB 
example use 3.18 3-40 
SFS-OPTIONS field, OMA terminal attributes 3.18 3-41 
clearing SFS-LOCATION 7.3 7-8 terminal types 3.18 3-39 
description 6.8 6-12 
SFS-LOCATION field values 6.8 6-12 SOURCE-TERMINAL-ID field, IMA 
SFS-TYPE field values 6.8 6-12 contains locap-name, DDP 9.3 9-5 
defining terminal to ICAM Fig. 4-6 4-8 
Sharable code example coding Fig. 4-7 4-9 
definition 15 1-9 testing 47 4-9 
PARAM statement for 
COBOL 11.2 11-3 STANDARD-MSG-LINE-LENGTH field, 
use of working-storage PIB 3.14 3-36 
section 2:1 2-1 
Fig. 2-1 2-2 STANDARD-MSG-NUMBER-LINES field, 
volatile data area 11.2 11-2 PIB 3.14 3-36 
Shared code parameter 11.2 11-2 Status byte returns, defined 
files 5.12 5-52 
Snap dumps Table 5-4 = 5-53 
abnormal snap dump analysis 12.8 12-41 
analysis of termination snap 12.6 12-7 STATUS-CODE field, PIB 
CALL SNAP dump 12.1 12-1 description 3.5 3-8 
12.3 12-6 invalid request 1/0 errors 3.5 3-10 
CALL SNAP dump layout Fig. 12-3 12-6 receiving error returns 3.5 3-10 
edited/unedited dumps 12.1 12-1 status codes, 1/0 function 
error code interpretation 12.8 12-41 calls Table D-1 D-2 
error codes in PIB 12.6 12-33 testing in BAL action program Fig. 3-5 3-9 
example program to testing in COBOL action program Fig. 3-4 3-9 
generate snaps Fig. 12-7 12-22 values and meanings 39 3-8 
locate bad instruction values from main to subprogram 8.3 8-4 
address 12.8 12-41 
sample abnormal termination 
snap Fig. 12-10 = 12-42 
sample CALL SNAP dump Fig. 12-11 12-44 
sample termination snap 
dump Fig. 12-8 12-30 
SNAP function call format 12.3 12-7 
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Status codes Successor action program 
1/0 function calls Table D-1  D-2 continuous output 6.20 6-32 
BUILD function 7.6 7-14 example formatted input 
GETLOAD function 10.4 10-11 fields Fig. 7-6 
meanings 3.5 3-8 Fig. 7-7 
output delivery notice codes Table 6-3 6-36 identifying 3.8 - 
REBUILD function 7.12 7-25 receiving defined file 
SEND function Table 6-1 6-22 name Fig. 3-14 3-33 
SETLOAD function 10.3 10-10 receiving delivery notice 
code 6.21 6-35 
Subcode, data management error 3.6 3-11 receiving formatted input 7] 7-16 
remote transaction 9.8 -13 
SUBPROG function call 
BAL format 8.4 8-5 SUCCESSOR-ID field, PIB 
COBOL format 8.3 8-4 continuous output 6.20 6-32 
description 8.3 8-4 interpretation with 
termination indicators 3.8 -14 
Subprograms description 3.8 -14 
calling/called program displaying error codes 3.9 3-14 
languages 8.2 8-3 Fig. 3-6 3-15 
example application Fig. 8-1 8-8 use 3.9 3-14 
Fig. 8-2 8-10 with subprograms 3.8 3-14 
interface with action programs 8.2 8-3 
not recompiled online 11.5 11-11 
parameter list location 8.4 8-5 
& reentrant 8.2 8-2 
register contents 8.4 8-5 
save status/detailed status, 
BAL program 8.4 8-6 
save status/detailed status, 
COBOL program 8.3 8-4 
serially reusable 8.2 8-2 
SUBPROG function call, 
BAL format 8.4 8-5 
SUBPROG function call, 
COBOL format 8.3 8-4 
successor-id, BAL subprogram 8.4 8-5 
use 8.2 8-1 
SUCCESS-UNIT-ID field, PIB 3.17 3-37 
Succession 
definition 1.4 1-5 
delayed internal 1.4 1-7 
Fig. 1-5 1-7 
external 14 1-6 
Fig. 1-4 1-6 
immediate internal 14 1-7 
Fig. 1-6 1-7 
SUCCESSOR-ID field, PIB 3.8 3-14 
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Term 


TCS DSECT 


ICT 


Terminal control table, snap 
dump format 


Terminal printer 


Terminals 
attributes 
DESTINATION-TERMINAL-ID field 
names, configuration 
names, network definition 
SOURCE-TERMINAL-CHARS field 


supporting screen format services 


types 


Termination 
involuntary 
normal 
snap dump 


types 

types allowed, formatted input 

types allowed, program-initiated 
transactions 

voluntary 


TERMINATION-INDICATOR field, PIB 
default value 
description all indicator vatues 
in snap dump 
involuntary termination 
resulting IMS operations 
summary of indicators 
voluntary termination 


TEXT-LENGTH field, IMA 
example testing 
function 
qualifying as data name 


TEXT-LENGTH field, OMA 
additional bytes required 
description 
found in snap dump 
OUTSIZE parameter on 

configuration 


Reference 


6.22 


See terminal 
control table. 


12.2 
Fig. 12-6 


6.12 


3.18 
6.7 
67 
6.7 
3.18 
71 
3.18 


3.10 

Fig. 1-3 
12.1-.2 
12.6 

Fig. 12-1 
14 

77 


9.5 
3.0 


3.10 
3.10 
12.6 
3.10 
3.10 
Table 3-1 
3.10 


Fig. 4-9 
49 
49 


6.10 
6.10 
12.6 


6.10 


Page 


6-40 


3-17 
3-17 
12-33 
3-22 
3-24 
3-24 
3-21 


6-14 
6-14 
12-34 


6-14 


Term 


THCB 


Thread control block 
find action program load 
area errors 
locations in dumps 
multithread format 
single-thread format 
termination snap dump 


TP 

Transactions 
code 
definition 
dialog 


dynamic structure 


local 

processing 
program-initiated 
remote 

simple 

structure 
termination types 


Transaction code 
definition 
dialog 
edit table consideration 
screen formatted message 
single-thread IMS 
TRANSACTION-ID field, PIB 
Transfer all, continuous output 
Transfer changed, continuous output 
Transfer record 


Transfer variable, continuous output 


TYP parameter, edit table input 


Index 20 
Reference Page 
See thread 


contro! block. 


12.6 
12.2 
Fig. 12-5 
Fig. 12-4 
Fig. 12-1 


See terminal 
printer. 


13 
13 
Fig. 1-2 
14 
Fig. 1-7 
9.1 
1.3 
9.5 
9.3 
Fig. 1-1 
1.4 
14 


13 
13 
E.3 
7.2 
13 
3.12 
6.19 
6.19 
10.2 
6.19 


£.3 


12-36 
12-4 
12-14 
12-10 
12-2 


I 1 I 1 


i) 1 1 
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6-30 


10-8 


6-30 
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Term Reference Page Term Reference Page 
U W 
Unedited snap dump 12.1 12-1 Work area 
action program use 2.5 2-12 
UNLOCK function call 5.15 5-59 storage media considerations 5.16 5-61 
to build output messages 6.16 6-24 
Unpolled devices, continuous output 6.22 6-37 to find error causes in dump 12.6 12-35 
to send output message 6.15 6-18 
to transfer contents to 
subprogram 8.3 8-4 
WORK-AREA-INC field 3.15 3-36 
Vv WORK-AREA-LENGTH field 3.15 3-36 
WORK-AREA-INC field, PIB 3.15 3-36 
Variable data 
defining area 7.3 7-7 WORK-AREA-LENGTH field, PIB 3.15 3-36 
example Fig. 7-2 7-3 
screen formatted messages 7.2 7-3 


Variable fields, screen formatting 


error screens 7.10 7-21 
example displaying transaction code Fig. 7-8 7-19 
input, input/ouput, or 
output only 7.2 7-3 
74 7-9 
input validation error codes 78 7-19 
output validation error codes 7.6 7-14 
transaction code as variable 
field 7] 7-17 
Volatile data area 
configuration specification 11.2 
description 11.2 
shared code differences in dump 12.4 
Voluntary termination 3.10 3-21 


See also abnormal termination. 
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Term Reference Page Term Reference Page 
Z ZAHPSID field, PIB 3.8 3-14 
ZAHCONT field, OMA 6.9 6-13 ZA#HPSIND field, PiB 3.10 3-17 
ZAHDDPMD, PIB ZA#PTID field, PIB 3.12 3-32 
description 3.19 3-41 
tested after remote transaction 98 9-13 ZAHPWA field, PIB 3.15 3-36 
ZA#HDPIB DSECT ZAHPWAI field, PIB 3.15 3-36 
contents Fig. 3-3 3-5 
generation 3.3 3-5 ZA#HSFLOC field, OMA 6.8 6-12 
ZA#DTE field, PIB 3.17 3-37 ZAHSFTYP field, OMA 6.8 6-12 
ZA#IDEV field, IMA 4.10 4-14 ZAHTATIR field, PIB 3.18 3-41 
ZA#HIDTS field, IMA 48 4-10 ZAHTME field, PIB 3.17 3-37 
ZAH#IMH DSECT ZA#TITYP field, PIB 3.18 3-39 
contents Fig. 4-3 4-6 
generation 45 4-6 ZGH#CALL macroinstruction 2.4 2-11 
PRINT NOGEN 45 4-6 
ZM#DIMH macroinstruction 45 4-6 
ZA#ISTID field, IMA 47 4-8 
ZM#DOMH macroinstruction 6.5 6-7 
ZA#ITL field, IMA 49 4-12 
ZM#DPIB macroinstruction 3.3 3-5 
ZAHOAUX field, OMA 6.11-.12 6-15 
ZUKLOD action program 10.1 10-1 
ZAH#ODTID field, OMA 6.7 6-10 
ZZPCH command 11.5 11-11 
ZAHOSFSO field, DMA 6.8 6-12 
ZAHOTL field, OMA 6.10 6-14 
ZA#PCDI field, PIB 3.16 3-37 
ZA#PCDIN field, PIB 3.16 3-37 
ZAH#PCDO field, PIB 3.16 3-37 
ZAHPDORN field, PIB 3.13 3-32 
ZAH#PDFN field, PIB 3.13 3-32 
ZAHPDSC field, PIB 3.6 3-11 
ZA#PLRI field, PIB 3.11 3-25 
ZAH#PMLL field, PIB 3.14 3-36 
ZAHPMNL field, PIB 3.14 3-36 
ZAHPSC field, PIB 3.5 3-8 
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